44 lines
1011 B
Scheme
44 lines
1011 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 if-not
|
|
(assert (eq? (if-not #f 'a 'b) 'a)))
|
|
|
|
(define-test when-not
|
|
(positive-case
|
|
(assert (eq? (when-not #f 'do-some-stuff 'return) 'return)))
|
|
(negative-case
|
|
(assert (unspecified? (when-not #t 'do-some-stuff 'return)))))
|
|
|
|
(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)))))
|