Skip to content
Snippets Groups Projects
test-force.script 643 B
Newer Older
(load (compile-file-pathname "../asdf"))
(quit-on-error
 (setf asdf:*central-registry* '(*default-pathname-defaults*))
 (asdf:operate 'asdf:load-op 'test-force)
 (defvar file1-date (file-write-date (asdf:compile-file-pathname* "file1"))))
 ;; unforced, date should stay same
 (sleep 1)
 (asdf:operate 'asdf:load-op 'test-force)
 (assert (= (file-write-date (asdf:compile-file-pathname* "file1")) file1-date))
 ;; forced, it should be later
 (sleep 1)
 (asdf:operate 'asdf:load-op 'test-force :force t)
 (assert (> (file-write-date (asdf:compile-file-pathname* "file1")) file1-date)))