mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

Update and-let-star.test

Browse source 
* test-suite/tests/and-let-star.test ("and-let*"): Update test
  expectations.
This commit is contained in:
Andy Wingo 2016-06-21 13:39:37 +02:00
parent daf8d33036
commit b8f5cdce15
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test-suite/tests/and-let-star.test
View file

@ -46,8 +46,8 @@
(with-test-prefix "one binding" (with-test-prefix "one binding"
(pass-if "no result expression (gives #t)" (pass-if "no result expression (gives binding value)"
(and-let* ((x 123)))) (equal? (and-let* ((x 123))) 123))
(pass-if "result expression" (pass-if "result expression"
(and-let* ((x 123)) (and-let* ((x 123))
@ -64,8 +64,8 @@
(with-test-prefix "one test" (with-test-prefix "one test"
(pass-if "no result expression (gives #t)" (pass-if "no result expression (gives test value)"
(and-let* (( 123)))) (equal? (and-let* (( 123))) 123))
(pass-if "result expression" (pass-if "result expression"
(and-let* (( 123)) (and-let* (( 123))