Commit 02281587 authored by Robert P. Goldman's avatar Robert P. Goldman

Expand undefined warnings test.

Check for both cases of *compile-file-warnings-behaviour*.
parent 180bd5ae
......@@ -104,7 +104,6 @@
t))
(handler-case
(let ((*compile-file-warnings-behaviour* :error))
(trace compile-file)
(load-system :undefined-variables)
nil)
(compile-failed-error (x) (expected-error x))
......@@ -112,3 +111,9 @@
(error (x)
(format t "Unexpected error type: ~a" (type-of x))
nil))))
(assert
(handler-case
(let ((*compile-file-warnings-behaviour* :warning))
(load-system :undefined-variables :force t)
nil)
(error () t)))
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