[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 03/03: Update and-let-star.test
From: |
Andy Wingo |
Subject: |
[Guile-commits] 03/03: Update and-let-star.test |
Date: |
Tue, 21 Jun 2016 11:40:23 +0000 (UTC) |
wingo pushed a commit to branch master
in repository guile.
commit b8f5cdce15ffa529eb9befac2d237058ef20ae7e
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))