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

Test for Ilya Perminov's report

Added new test to test-deferred-warnings.script to assess how undefined
variable warnings are handled.
parent 12098f99
No related branches found
No related tags found
No related merge requests found
(defpackage fun-with-undefined-locals-package
(:use :common-lisp))
(in-package :fun-with-undefined-locals-package)
(defun foo ()
(+ a b))
...@@ -28,6 +28,8 @@ ...@@ -28,6 +28,8 @@
:depends-on (:unintern-foo) :depends-on (:unintern-foo)
:serial t :serial t
:components ((:file "use-setf-foo") (:file "defsetf-foo"))) :components ((:file "use-setf-foo") (:file "defsetf-foo")))
(def-test-system :undefined-variables
:components ((:file "fun-with-undefined-locals")))
(DBG :tdw0 *compile-file-warnings-behaviour*) (DBG :tdw0 *compile-file-warnings-behaviour*)
(handler-bind (handler-bind
...@@ -95,3 +97,18 @@ ...@@ -95,3 +97,18 @@
((or compile-file-error compile-warned-error) () t) ((or compile-file-error compile-warned-error) () t)
;;(t (c) (DBG :ustdf0 c)) ;;(t (c) (DBG :ustdf0 c))
(:no-error (&rest values) (DBG :ustdf1 values) nil))) (:no-error (&rest values) (DBG :ustdf1 values) nil)))
(assert
(flet ((expected-error (x)
(format t "Expected error type: ~a" (type-of x))
t))
(handler-case
(let ((*compile-file-warnings-behaviour* :error))
(trace compile-file)
(load-system :undefined-variables)
nil)
(compile-failed-error (x) (expected-error x))
(compile-file-error (x) (expected-error x))
(error (x)
(format t "Unexpected error type: ~a" (type-of x))
nil))))
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