diff options
Diffstat (limited to 'Lisp/asdf/test/test2.script')
-rw-r--r-- | Lisp/asdf/test/test2.script | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/Lisp/asdf/test/test2.script b/Lisp/asdf/test/test2.script new file mode 100644 index 0000000..bca6012 --- /dev/null +++ b/Lisp/asdf/test/test2.script @@ -0,0 +1,19 @@ +;;; -*- Lisp -*- +(load "../asdf") +(setf asdf:*central-registry* '(*default-pathname-defaults*)) +;(trace asdf::perform) +;(trace asdf::find-component) +;(trace asdf::traverse) +(asdf:oos 'asdf:load-op 'test2b1) +(assert (and (probe-file (compile-file-pathname "file3")) + (probe-file (compile-file-pathname "file4")))) +(handler-case + (asdf:oos 'asdf:load-op 'test2b2) + (asdf:missing-dependency (c) + (format t "load failed as expected: - ~%~A~%" c)) + (:no-error (c) (error "should have failed, oops"))) +(handler-case + (asdf:oos 'asdf:load-op 'test2b3) + (asdf:missing-dependency (c) + (format t "load failed as expected: - ~%~A~%" c)) + (:no-error (c) (error "should have failed, oops"))) |