test-deferred-warnings.script 758 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
;;; -*- Lisp -*-

(clear-system :test-deferred-warnings)
(def-test-system :test-deferred-warnings
  :serial t
  :components ((:file "undefined-function")
               (:file "file1")))
(assert
 (handler-case
     (let ((*compile-file-warnings-behaviour* :ignore))
       (load-system :test-deferred-warnings :force t)
       t)
   (compile-file-error () nil)))

15
#+(or clozure sbcl)
16
17
18
19
20
21
22
23
24
25
26
27
28
29
(assert
 (handler-case
     (let ((*compile-file-warnings-behaviour* :error))
       (load-system :test-deferred-warnings :force t)
       nil)
   (compile-warned-error () t)))

#+(or clozure sbcl)
(assert
 (handler-case
     (let ((*compile-file-warnings-behaviour* :error))
       (perform 'compile-op :test-deferred-warnings)
       nil)
   (compile-warned-error () t)))