Skip to content
Snippets Groups Projects
Commit 02281587 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Expand undefined warnings test.

Check for both cases of *compile-file-warnings-behaviour*.
parent 180bd5ae
No related branches found
No related tags found
No related merge requests found
......@@ -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)))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment