(cond-expand
 (chicken-4
  (use test)
  (use section-combinators))
 (chicken-5
  (import test)
  (import 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))

(cond-expand
 (chicken-4
  (use sort-combinators))
 (chicken-5
  (import sort-combinators)))

(test "make-less-than/key" '#t ((make-less-than/key car) '(2) '(3)))

(unless (zero? (test-failure-count)) (exit 1))