test-compile-file-failure.script

;;; -*- Lisp -*-
(load "script-support.lisp")
(load-asdf)

(trace d:match-any-condition-p)

(with-test ()
 #-gcl<2.7
 (assert (handler-case
             (let ((asdf:*compile-file-failure-behaviour* :warn))
               (asdf:load-system 'test-compile-file-failure :force t)
               t)
           (asdf:compile-error () nil)))
 #-gcl<2.7
 (assert (handler-case
             (let ((asdf:*compile-file-failure-behaviour* :error))
               (asdf:load-system 'test-compile-file-failure :force t)
               nil)
           (asdf:compile-error () t))))