Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Eric Timmons
asdf
Commits
91af4196
Commit
91af4196
authored
Feb 15, 2016
by
Robert Goldman
Browse files
Test scripts.
parent
9f8aa9d2
Changes
2
Hide whitespace changes
Inline
Side-by-side
test/test-deferred-warnings.script
View file @
91af4196
...
...
@@ -2,6 +2,7 @@
(in-package :asdf-test)
(uiop:uiop-debug)
(enable-deferred-warnings-check)
(def-test-system :unintern-foo
...
...
@@ -9,6 +10,13 @@
(def-test-system :use-foo-only
:depends-on (:unintern-foo)
:components ((:file "use-foo")))
(def-test-system :use-foo-with-wrapper
:depends-on (:unintern-foo)
:components ((:file "use-foo"
:perform (compile-op :around (op c)
(declare (ignorable op c))
(let ((asdf:*compile-file-warnings-behaviour* :error))
(call-next-method))))))
(def-test-system :use-then-defun-foo
:depends-on (:unintern-foo)
:serial t
...
...
@@ -37,6 +45,10 @@
(let ((*compile-file-warnings-behaviour* :ignore))
(load-system :use-foo-only :force t)))
(handler-bind
((error (lambda (c) (DBG :cfwbi-ufww c))))
(load-system :use-foo-with-wrapper :force t))
(handler-bind
((error (lambda (c) (DBG :cfwbi-usfo c))))
(let ((*compile-file-warnings-behaviour* :ignore))
...
...
test/test-undeferred-warnings.script
View file @
91af4196
...
...
@@ -10,6 +10,15 @@
(def-test-system :undefined-variables
:components ((:file "fun-with-undefined-locals")))
;;; DEF-TEST-SYSTEM cannot parse :PERFORM arguments
#+nil(def-test-system :undefined-variables-throttled
:components ((:file "fun-with-undefined-locals"
:perform (compile-op :around (op c)
(declare (ignorable op c))
(let ((asdf:*compile-file-warnings-behaviour* :ignore))
(call-next-method))))))
(assert
(asdf:find-system :undefined-variables-throttled))
;; GCL fails to warn; CMUCL, SBCL and presumably SCL defer warning to end of compilation unit;
;; SCL and XCL not actually tested
...
...
@@ -22,3 +31,10 @@
#+(or cmu (and ecl ecl-bytecmp) gcl sbcl scl) null
(let ((*compile-file-warnings-behaviour* :warning))
(load-system :undefined-variables :force t)))
(assert
(let ((*compile-file-warnings-behaviour* :ignore))
(load-system :undefined-variables :force t)))
(assert
(let ((*compile-file-warnings-behaviour* :error))
(asdf:load-system :undefined-variables-throttled :force t)))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment