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

aif-test.rkt (410B)

      1 #lang racket
      2 
      3 (require anaphoric/aif
      4          rackunit)
      5 
      6 (define lst '(x y z a b c))
      7 
      8 (check-equal? (aif (member 'a lst)
      9                 (begin (check-equal? it '(a b c))
     10                        'seen)
     11                 (fail "aif selected wrong branch"))
     12               'seen)
     13 
     14 (check-equal? (aif (member 'absent lst)
     15                 (fail "aif selected wrong branch")
     16                 'seen)
     17               'seen)