Commit 7761fd2d authored by Gary King's avatar Gary King

Added test8 and test9 to check for changes in missing-component and

missing-dependency handling.
parent e57927a8
#!/bin/sh
# do_tests {lisp invocation} {fasl extension}
# do_tests {lisp invocation} {scripts-regex}
# - read lisp forms one at a time from standard input
# - quit with exit status 0 on getting eof
# - quit with exit status >0 if an unhandled error occurs
......
;;; -*- Lisp -*-
;;; make sure we get a missing-component error
(load "script-support")
(load "../asdf")
(in-package #:common-lisp-user)
(exit-on-error
(setf asdf:*central-registry* '(*default-pathname-defaults*))
(handler-case
(asdf:oos 'asdf:load-op 'system-does-not-exist)
(asdf:missing-component-of-version (c)
(error "Should not have gotten 'missing-component-of-version, dang"))
(asdf:missing-component (c)
(format t "got missing-component as expected: - ~%~A~%" c))
(:no-error (c) (error "should have failed, oops"))))
;;; -*- Lisp -*-
(asdf:defsystem test9-1
:version "1.1"
:components ((:file "file1"))
:depends-on ((:version :test9-2 "2.0")))
;;; -*- Lisp -*-
(asdf:defsystem test9-2
:version "1.0"
:components ((:file "file2")))
;;; -*- Lisp -*-
;;; make sure we get a missing-component-of-version error
(load "script-support")
(load "../asdf")
(in-package #:common-lisp-user)
(exit-on-error
(setf asdf:*central-registry* nil)
(load (merge-pathnames "test9-1.asd"))
(load (merge-pathnames "test9-2.asd"))
(handler-case
(asdf:oos 'asdf:load-op 'test9-1)
(asdf:missing-component-of-version (c)
(format t "got missing-component-of-version as expected: - ~%~A~%" c))
(:no-error (c) (error "should have failed, oops"))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment