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

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

Export Scheme-ish uni, etc. & arguments-X routines

File size: 350 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)))
Note: See TracBrowser for help on using the repository browser.