From 4f6795facf7e9195ce440ee947c6cc10f5a941a7 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@gmail.com>
Date: Mon, 3 Nov 2014 15:34:37 -0600
Subject: [PATCH] Add test of behaviors when errors are not deferred.

Per query by Ilya Perminov about behavior on SBCL.
---
 test/test-undeferred-warnings.script | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 test/test-undeferred-warnings.script

diff --git a/test/test-undeferred-warnings.script b/test/test-undeferred-warnings.script
new file mode 100644
index 00000000..810bcd23
--- /dev/null
+++ b/test/test-undeferred-warnings.script
@@ -0,0 +1,22 @@
+;;; -*- Lisp -*-
+
+;;;---------------------------------------------------------------------------
+;;; Intended to test behaviors that we see when the deferred warnings check is
+;;; NOT deferred.
+;;; ---------------------------------------------------------------------------
+
+(in-package :asdf-test)
+
+(def-test-system :undefined-variables
+  :components ((:file "fun-with-undefined-locals")))
+
+(errors #+(or allegro clozure) compile-file-error
+        #+(or cmu scl) null
+        #+sbcl compile-failed-error
+        (let ((*compile-file-warnings-behaviour* :error))
+          (load-system :undefined-variables)))
+(errors #+(or allegro clozure) compile-file-error
+        #+(or cmu scl) null
+        #+sbcl compile-failed-error
+        (let ((*compile-file-warnings-behaviour* :warning))
+          (load-system :undefined-variables :force t)))
-- 
GitLab