kzccm1d4if10m2xaz1wqy3xar821pp1r-my-site-anaphoric-git.test.suzanne.soy-0.0.1

commit cac2bf99286b6452f8c0bd81406bec4a6929c50f
parent 44240e4d055729ecdc84411b631b54fd070d459e
Author: Suzanne Soy <ligo@suzanne.soy>
Date:   Sat, 27 Feb 2021 16:05:28 +0000

100% test coverage

Diffstat:
M
cond-let.rkt
 | 
6
+++---
M
test/cond-let-test.rkt
 | 
52
++++++++++++++++++++++++++++++++++++++++++++++++++--
A
test/it-test.rkt
 | 
8
++++++++

3 files changed, 61 insertions(+), 5 deletions(-)
diff --git a/cond-let.rkt b/cond-let.rkt
@@ -15,5 +15,5 @@
     [(cond-let identifier [conditionᵢ . bodyᵢ] ... [else . else-body])
      #'(cond [conditionᵢ => (λ (identifier) . bodyᵢ)] ...
              [else . else-body])]
-    [(cond-let [[identifierᵢ conditionᵢ] . bodyᵢ] ...)
-     #'(cond [conditionᵢ => (λ (identifierᵢ) . bodyᵢ)] ...)]))
-\ No newline at end of file
+    [(cond-let identifier [conditionᵢ . bodyᵢ] ...)
+     #'(cond [conditionᵢ => (λ (identifier) . bodyᵢ)] ...)]))
+\ No newline at end of file
diff --git a/test/cond-let-test.rkt b/test/cond-let-test.rkt
@@ -29,6 +29,29 @@
                [else 'seen-03])
               'seen-03)
 
+;; Common variable name, with else branch
+(check-equal? (cond-let x
+               [(member 'a lst) (set! seen (add1 seen))
+                                (check-equal? x '(a b c))
+                                'seen-01]
+               [(member 'b lst) (fail "cond-let chose wrong branch")]
+               [else (fail "cond-let chose wrong branch")])
+              'seen-01)
+(check-equal? seen 2) ;; multiple body statements
+
+(check-equal? (cond-let x
+               [(member 'absent lst) (fail "cond-let chose wrong branch")]
+               [(member 'b lst) (begin (check-equal? x '(b c))
+                                       'seen-02)]
+               [else (fail "cond-let chose wrong branch")])
+              'seen-02)
+
+(check-equal? (cond-let x
+               [(member 'absent lst) (fail "cond-let chose wrong branch")]
+               [(member 'absent2 lst) (fail "cond-let chose wrong branch")]
+               [else 'seen-03])
+              'seen-03)
+
 ;; Different variable names
 (check-equal? (cond-let
                [[x (member 'a lst)] (begin (check-equal? x '(a b c))
@@ -73,6 +96,11 @@
                [else 'seen-04])
               'seen-04)
 
+;; Common variable name, just else branch
+(check-equal? (cond-let x
+               [else 'seen-04])
+              'seen-04)
+
 ;; Multiple body statements
 
 (check-equal? (cond-let
@@ -81,7 +109,7 @@
                [else (set! seen (add1 seen))
                      'seen-05])
               'seen-05)
-(check-equal? seen 2)
+(check-equal? seen 3)
 
 ;; Without else branch
 (check-equal? (cond-let
@@ -90,7 +118,7 @@
                                     'seen-06]
                [[x (member 'b lst)] (fail "cond-let chose wrong branch")])
               'seen-06)
-(check-equal? seen 3)
+(check-equal? seen 4)
 
 (check-equal? (cond-let
                [[x (member 'absent lst)] (fail "cond-let chose wrong branch")]
@@ -103,6 +131,26 @@
                [[x (member 'absent2 lst)] (fail "cond-let chose wrong branch")])
               (void))
 
+;; Common variable name, without else branch
+(check-equal? (cond-let x
+               [(member 'a lst) (set! seen (add1 seen))
+                                (check-equal? x '(a b c))
+                                'seen-06]
+               [(member 'b lst) (fail "cond-let chose wrong branch")])
+              'seen-06)
+(check-equal? seen 5)
+
+(check-equal? (cond-let x
+               [(member 'absent lst) (fail "cond-let chose wrong branch")]
+               [(member 'b lst) (begin (check-equal? x '(b c))
+                                       'seen-07)])
+              'seen-07)
+
+(check-equal? (cond-let x
+               [(member 'absent lst) (fail "cond-let chose wrong branch")]
+               [(member 'absent2 lst) (fail "cond-let chose wrong branch")])
+              (void))
+
 ;; No branch
 (check-equal? (cond-let)
               (void))
diff --git a/test/it-test.rkt b/test/it-test.rkt
@@ -0,0 +1,8 @@
+#lang racket
+
+(require anaphoric/it
+         rackunit
+         syntax/macro-testing)
+
+(check-exn #rx"Use of the \"it\" identifier is only allowed within anaphoric macros\\."
+           (lambda () (convert-compile-time-error it)))