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))))
(module+ test
(define f1 (tbf #(2 -2) 1))
(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))))
(test-case "apply-tbf/boolean"
(define f1 (tbf #(2 -2) 1))
(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)))))