35 lines
764 B
Scheme
35 lines
764 B
Scheme
(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)))))
|