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

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

if-let-test.rkt (703B)

      1 #lang racket
      2 
      3 (require anaphoric/if-let
      4          rackunit)
      5 
      6 (define lst '(x y z a b c))
      7 
      8 (check-equal? (if-let [x (member 'a lst)]
      9                 (begin (check-equal? x '(a b c))
     10                        'seen)
     11                 (fail "aif selected wrong branch"))
     12               'seen)
     13 
     14 (check-equal? (let ([x 'outer])
     15                 (if-let [x (member 'a lst)]
     16                   (begin (check-equal? x '(a b c))
     17                          'seen)
     18                   (fail "aif selected wrong branch")))
     19               'seen)
     20 
     21 (check-equal? (let ([x 'outer])
     22                 (if-let [x (member 'absent lst)]
     23                   (fail "aif selected wrong branch")
     24                   'outer))
     25               'outer)