;;; -*- Lisp -*-

#+(or f1 f2) (error "This test cannot run if :f1 or :f2 are on *features*")

(load "script-support.lisp")

(load-asdf)

(quit-on-error

 (let* ((fasl1 (asdf:compile-file-pathname* (truename "file1.lisp")))
        (fasl2 (asdf:compile-file-pathname* (truename "file2.lisp")))

        (ns1 (native-namestring fasl1))
        (ns2 (native-namestring fasl2)))

     (asdf:run-shell-command "rm -f ~A ~A" ns1 ns2)

     (setf asdf:*central-registry* '(*default-pathname-defaults*))

     #-gcl

     (handler-case

         (asdf:oos 'asdf:load-op 'test3)

       (asdf:missing-dependency (c)

         (format t "first test failed as expected: - ~%~A~%" c))

       (:no-error (c)

         (declare (ignore c))
         (error "should have failed, oops")))

     (pushnew :f1 *features*)

     (asdf:oos 'asdf:load-op 'test3)

     (format t "testing for~% FASL1=~S and~% FASL2=~S~%" fasl1 fasl2)

     (assert (probe-file fasl1))
     (assert (not (probe-file fasl2)))

     (run-shell-command "rm -f ~A" ns1)

     (setf *features* (cons :f2 (cdr *features*)))
     (asdf:oos 'asdf:load-op 'test3)
     (assert (probe-file fasl2))