From b8f5cdce15ffa529eb9befac2d237058ef20ae7e Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 21 Jun 2016 13:39:37 +0200 Subject: [PATCH] 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 150600c34..12bf4d300 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))