From 02281587dc23aa85e23f5421fc6a39b10083fdc0 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@gmail.com> Date: Thu, 30 Oct 2014 09:18:38 -0500 Subject: [PATCH] Expand undefined warnings test. Check for both cases of *compile-file-warnings-behaviour*. --- test/test-deferred-warnings.script | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/test/test-deferred-warnings.script b/test/test-deferred-warnings.script index 1f62b418e..9580694a1 100644 --- a/test/test-deferred-warnings.script +++ b/test/test-deferred-warnings.script @@ -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))) -- GitLab