source: project/release/4/combinators/trunk/tests/run.scm @ 21916

Last change on this file since 21916 was 21916, checked in by Kon Lovett, 10 years ago

Added test-depends & test exit code.

File size: 398 bytes
Line 
1(use test)
2(use section-combinators)
3
4(test "arguments-chain" '6 ((arguments-chain + list) 1 2 3))
5
6(test "arguments-each" '(#f #f #f #f #f #f #f) ((arguments-each even? odd?) 1 2 3 4 5 6 7))
7
8(test "arguments-all" '(6 -4 6) ((arguments-all + - *) 1 2 3))
9
10(use sort-combinators)
11
12(test "make-less-than/key" '#t ((make-less-than/key car) '(2) '(3)))
13
14(unless (zero? (test-failure-count)) (exit 1))
Note: See TracBrowser for help on using the repository browser.