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