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

;;; test system def reloading if touched
;;; system that can 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* '(*default-pathname-defaults*))
   (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)))
       (print (list date1 date2))
       (assert date2)
       (assert (> date2 date1))))))