kekkonen/test-util.scm

(module test-util ()
  (import scheme)
  (import (chicken base))
  (import (chicken syntax))
  (import test)
  (import util)

  (test-group "util"
	      (test '(2 3 4) (map (curry + 1) '(1 2 3)))
	      (test 3 ((applied +) '(1 2)))
	      (test 2 ((thunk (+ 1 1))))
	      (test 5 ((just (lambda () 5)) 6 7 8))
	      (test-group "perhaps"
			  (test 3 (let ((v 2))
				    (perhaps (lambda (n)
					       (+ n 1)) v)))
			  (test #f (let ((v #f))
				     (perhaps (lambda (n)
						(+ n 1)) v))))
	      (test 'apple-orange (compose-symbols 'apple 'orange))))