In rackunit, a cps interface like: (search where what found-proc not-found-proc)
Could be tested like:
(test-begin
(search
where
what
(lambda (value) (fail "found something"))
(lambda () (check-true #t "not found"))))
But, the second check would be nicer as (success "not found"), but I
don't see a "success" check. It is my first time using rackunit, so
maybe I'm overlooking something.
--
Anthony Carrico
signature.asc
Description: OpenPGP digital signature
_________________________________________________ For list-related administrative tasks: http://lists.racket-lang.org/listinfo/users
