Newer
Older
Gary King
committed
;;; -*- Lisp -*-
(load "script-support")
(load (compile-file-pathname "../asdf"))
(quit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
Gary King
committed
(asdf:operate 'asdf:load-op 'test-force)
Francois-Rene Rideau
committed
(defvar file1-date (file-write-date (asdf:compile-file-pathname* "file1"))))
Gary King
committed
;; unforced, date should stay same
(sleep 1)
(asdf:operate 'asdf:load-op 'test-force)
Francois-Rene Rideau
committed
(assert (= (file-write-date (asdf:compile-file-pathname* "file1")) file1-date))
Gary King
committed
;; forced, it should be later
(sleep 1)
(asdf:operate 'asdf:load-op 'test-force :force t)
Francois-Rene Rideau
committed
(assert (> (file-write-date (asdf:compile-file-pathname* "file1")) file1-date)))