Hi Ivan,
I added the 'test-collect' container:
(test/collect "Collect Form 1"
(do ([i 0 (+ 1 i)]) [(> i 9)]
(+ i i) ; some code
(collect-test (expect-eqv (conc "cft " i) i (modulo i 10))) )
)
The above will generate ten tests, sort of. Really only one test
evaluated ten times, so ten test results. (The '(conc "cft " i)' is
just a way of generating a test name at runtime.) A collect container
has the same basic semantics as a case container.
Also 'define-expect-nary' which is similar to a feature of SchemeUnit.
Best Wishes,
Kon
_______________________________________________
Chicken-users mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users
