test-compile-file-failure.script 565 Bytes
Newer Older
1
;;; -*- Lisp -*-
2
(load "script-support.lisp")
3 4
(load-asdf)

5
(with-test ()
6
 #-gcl<2.7
7 8 9 10
 (assert (handler-case
             (let ((asdf:*compile-file-failure-behaviour* :warn))
               (asdf:load-system 'test-compile-file-failure :force t)
               t)
11
           (asdf/lisp-build:compile-file-error () nil)))
12
 #-gcl<2.7
13 14 15 16
 (assert (handler-case
             (let ((asdf:*compile-file-failure-behaviour* :error))
               (asdf:load-system 'test-compile-file-failure :force t)
               nil)
17
           (asdf/lisp-build:compile-file-error () t))))