(use-modules (d-)
	     (rnrs base))

(define-syntax-rule (define-unit-test (test-name body ...))
  (let () body ...))

(define-syntax-rule (define-test module-name tests ...)
  (begin (define-unit-test tests) ...))

(define-test ~>
  (unwrapped
   (define value (~> 1 1+ 1+))
   (assert (= value 3)))
  (wrapped
   (define value (~> 1 (/ 2) (/ 2)))
   (assert (= value 1/4))))

(define-test ~>>
  (unwrapped
   (define value (~>> 1 1+ 1+))
   (assert (= value 3)))
  (wrapped
   (define value (~>> 1 (/ 2) (/ 2)))
   (assert (= value 1))))

(define-test partial
  (test
   (define value (partial / 2))
   (assert (= (value 4) 1/2))
   (assert (= (value 1) 2))))

(define-test argmin
  (test
   (assert (equal? (argmin cdr '(a . 5) '(b . 2) '(c . 3)) '(b . 2)))))