scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

functions: Wrap the test for apply-tbf/boolean in test-case.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-07-07 23:24:34 +02:00
parent 194bb1bb10
commit dfe8766424
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
functions.rkt
View file

@ -275,6 +275,7 @@
(01->boolean (apply-tbf tbf (vector-map any->01 inputs)))) (01->boolean (apply-tbf tbf (vector-map any->01 inputs))))
(module+ test (module+ test
(define f1 (tbf #(2 -2) 1)) (test-case "apply-tbf/boolean"
(check-equal? (tabulate/boolean (λ (x y) (apply-tbf/boolean f1 (vector x y)))) (define f1 (tbf #(2 -2) 1))
'((#f #f #f) (#f #t #f) (#t #f #t) (#t #t #f)))) (check-equal? (tabulate/boolean (λ (x y) (apply-tbf/boolean f1 (vector x y))))
'((#f #f #f) (#f #t #f) (#t #f #t) (#t #t #f)))))