Skip to content
Snippets Groups Projects
test-touch-system-2.script 788 B
Newer Older
;;; -*- Lisp -*-

;;; test system def reloading if touched
;;; system that canNOT be found using *system-definition-search-functions*

(load "script-support")
(load "../asdf")
(quit-on-error
          (let ((data (asdf::system-registered-p name)))
            (when data
              (car data)))))
   (setf asdf:*central-registry* nil)
   (load (merge-pathnames "test1.asd"))
   (assert (asdf:find-system :test1))
   (let ((date1 (system-load-time :test1))
         (file (namestring (merge-pathnames "test1.asd"))))
     (assert date1)
     (assert file)
     (sleep 1)
     (asdf:run-shell-command "touch ~a" file)
     (asdf:find-system :test1)
     (let ((date2 (system-load-time :test1)))
       (assert date2)
       (assert (> date2 date1))))))