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