From f9f5cecbe8f15a46bb3d78a5c61c8599642a6909 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 9 May 2004 13:20:37 +0000 Subject: [PATCH] Some more m-v-b tests, motivated by a bug that was found in abl. --- ansi-tests/multiple-value-bind.lsp | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/ansi-tests/multiple-value-bind.lsp b/ansi-tests/multiple-value-bind.lsp index 81602e93..e88cfec1 100644 --- a/ansi-tests/multiple-value-bind.lsp +++ b/ansi-tests/multiple-value-bind.lsp @@ -63,6 +63,29 @@ (return '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 (signals-error (funcall (macro-function 'multiple-value-bind)) program-error) -- GitLab