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

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