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

afilter-test.rkt (463B)

      1 #lang racket/base
      2 
      3 (require anaphoric/afilter
      4          rackunit)
      5 
      6 (define lst '(5 6 7 8 9))
      7 
      8 (check-equal?
      9  '(6 8)
     10  (afilter (odd? (add1 it)) lst)
     11  "Nested function call.")
     12 
     13 (check-equal?
     14  '(8 9)
     15  (afilter ((* it it) . > . 50) lst)
     16  "Multiple 'it' in a nested expression.")
     17 
     18 (define (f lst)
     19   (afilter (/ it 0) lst))
     20 
     21 (check-equal?
     22  '()
     23  (f '())
     24  "Empty list.")
     25 
     26 (check-exn
     27    exn:fail?
     28    (lambda () (f '(1)))
     29    "To get 100% code coverage for the f function.")