Skip to content
Snippets Groups Projects
Commit f9f5cecb authored by pfdietz's avatar pfdietz
Browse files

Some more m-v-b tests, motivated by a bug that was found in abl.

parent 0891ab62
No related branches found
No related tags found
No related merge requests found
...@@ -63,6 +63,29 @@ ...@@ -63,6 +63,29 @@
(return 'good))) (return 'good)))
good) good)
;;; Works with single values
(deftest multiple-value-bind.9
(multiple-value-bind (x y z) :foo (list x y z))
(:foo nil nil))
(deftest multiple-value-bind.10
(multiple-value-bind (x) :foo x)
:foo)
(deftest multiple-value-bind.11
(multiple-value-bind () :foo)
nil)
(deftest multiple-value-bind.12
(multiple-value-bind () (values))
nil)
(deftest multiple-value-bind.13
(multiple-value-bind () (values 1 2 3 4 5))
nil)
;;; Error cases
(deftest multiple-value-bind.error.1 (deftest multiple-value-bind.error.1
(signals-error (funcall (macro-function 'multiple-value-bind)) (signals-error (funcall (macro-function 'multiple-value-bind))
program-error) program-error)
......
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