;;; -*- Lisp -*-

(load "script-support.lisp")

(load-asdf)

(quit-on-error

 (setf asdf:*central-registry* '(*default-pathname-defaults*))
 (asdf:operate 'asdf:load-op 'test-force)

  (let* ((file1 (asdf:compile-file-pathname* "file1"))

         (file1-date (file-write-date file1))
         (date1 (- file1-date 600))
         (date2 (- file1-date 300)))

    (assert file1)
    (assert file1-date)

    ;; unforced, date should stay same

    (touch-file "test-force.asd" :timestamp date1)

    (touch-file "file1.lisp" :timestamp date1)
    (touch-file file1 :timestamp date2)

    (asdf:operate 'asdf:load-op 'test-force)

    (assert (equal (file-write-date file1) date2))

    ;; forced, it should be later
    (asdf:operate 'asdf:load-op 'test-force :force t)