Changeset 19028 in project for release/4/combinators/trunk/tests

Timestamp:

07/31/10 03:14:44 (11 years ago)

Author:

Kon Lovett

Message:

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

File:

• release/4/combinators/trunk/tests/run.scm (modified) (1 diff)

release/4/combinators/trunk/tests/run.scm

@@ +1 @@
+(use test)
+(use section-combinators)
+
+(test "arguments-chain" '6 ((arguments-chain + list) 1 2 3))
+
+(test "arguments-each" '(#f #f #f #f #f #f #f) ((arguments-each even? odd?) 1 2 3 4 5 6 7))
+
+(test "arguments-all" '(6 -4 6) ((arguments-all + - *) 1 2 3))
+
+(use sort-combinators)
+
+(test "make-less-than/key" '#t ((make-less-than/key car) '(2) '(3)))