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