[Guile-commits] 08/11: Update and-let-star.test

[Andy Wingo]

wingo pushed a commit to branch stable-2.0
in repository guile.

commit 64039f3d129becefa906d6fbff22010c254c50fa
Author: Andy Wingo <address@hidden>
Date:   Tue Jun 21 13:39:37 2016 +0200

    Update and-let-star.test
    
    * test-suite/tests/and-let-star.test ("and-let*"): Update test
      expectations.
---
 test-suite/tests/and-let-star.test |    8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/test-suite/tests/and-let-star.test 
b/test-suite/tests/and-let-star.test
index 150600c..12bf4d3 100644
--- a/test-suite/tests/and-let-star.test
+++ b/test-suite/tests/and-let-star.test
@@ -46,8 +46,8 @@
 
   (with-test-prefix "one binding"
 
-    (pass-if "no result expression (gives #t)"
-      (and-let* ((x 123))))
+    (pass-if "no result expression (gives binding value)"
+      (equal? (and-let* ((x 123))) 123))
 
     (pass-if "result expression"
       (and-let* ((x 123))
@@ -64,8 +64,8 @@
 
   (with-test-prefix "one test"
 
-    (pass-if "no result expression (gives #t)"
-      (and-let* (( 123))))
+    (pass-if "no result expression (gives test value)"
+      (equal? (and-let* (( 123))) 123))
 
     (pass-if "result expression"
       (and-let* (( 123))