Skip to content
Snippets Groups Projects
test-static-and-serial.script 498 B
Newer Older
;;; -*- Lisp -*-
(load "script-support")
(load "../asdf")
(exit-on-error 
 (setf asdf:*central-registry* '(*default-pathname-defaults*))

 (asdf:operate 'asdf:load-op 'static-and-serial)
 (defvar file1-date (file-write-date (compile-file-pathname "file1")))

 ;; cheat
 (setf asdf::*defined-systems* (make-hash-table :test 'equal))
  
 ;; date should stay same
 (sleep 1)
 (asdf:operate 'asdf:load-op 'static-and-serial)
 (assert (= (file-write-date (compile-file-pathname "file1")) file1-date))
 )