From a6fc65c6de3fbc39ec5258cafad0d9e82d7aa0ea Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Wed, 25 Aug 2004 01:05:35 +0000
Subject: [PATCH] More tests, in particular exercise #t result on empty body.

---
 test-suite/tests/and-let-star.test | 48 +++++++++++++++++++++++++++++-
 1 file changed, 47 insertions(+), 1 deletion(-)

diff --git a/test-suite/tests/and-let-star.test b/test-suite/tests/and-let-star.test
index 16439463f..e1f40e062 100644
--- a/test-suite/tests/and-let-star.test
+++ b/test-suite/tests/and-let-star.test
@@ -29,4 +29,50 @@
 
   (pass-if "cond-expand srfi-2"
     (cond-expand (srfi-2 #t)
-		 (else   #f))))
+		 (else   #f)))
+
+  (with-test-prefix "no bindings"
+
+    (pass-if "no result expression (gives #t)"
+      (and-let* ()))
+
+    (pass-if "result expression"
+      (and-let* ()
+	#t))
+
+    (pass-if "two result expressions"
+      (and-let* ()
+	#f
+	#t)))
+
+  (with-test-prefix "one binding"
+
+    (pass-if "no result expression (gives #t)"
+      (and-let* ((x 123))))
+
+    (pass-if "result expression"
+      (and-let* ((x 123))
+	#t))
+
+    (pass-if "result variable"
+      (and-let* ((x #t))
+	x))
+
+    (pass-if "two result expressions"
+      (and-let* ((x 123))
+	#f
+	#t)))
+
+  (with-test-prefix "one test"
+
+    (pass-if "no result expression (gives #t)"
+      (and-let* (( 123))))
+
+    (pass-if "result expression"
+      (and-let* (( 123))
+	#t))
+
+    (pass-if "two result expressions"
+      (and-let* (( 123))
+	#f
+	#t))))