(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)))