suzanne.soy/anaphoric
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Get 100% code coverage for the amap and afilter tests

Browse Source
This commit is contained in:
Suzanne Soy 2021-07-28 20:06:28 +01:00
parent 0562921c67
commit 81c21f81d8
2 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/afilter-test.rkt
View File

@ -15,7 +15,15 @@
(afilter ((* it it) . > . 50) lst) (afilter ((* it it) . > . 50) lst)
"Multiple 'it' in a nested expression.") "Multiple 'it' in a nested expression.")
(define (f lst)
(afilter (= it 42) lst))
(check-equal? (check-equal?
'() '()
(afilter (= it 42) '()) (f '())
"Empty list.") "Empty list.")
(check-exn
exn:fail?
(f '(1))
"To get 100% code coverage for the f function.")

10
test/amap-test.rkt
View File

@ -13,7 +13,15 @@
(amap (number->string (+ it it)) '(1 2)) (amap (number->string (+ it it)) '(1 2))
"Multiple 'it' in a nested expression.") "Multiple 'it' in a nested expression.")
(define (f lst)
(amap (/ it 0) lst))
(check-equal? (check-equal?
'() '()
(amap (/ it 0) '()) (f '())
"Empty list.") "Empty list.")
(check-exn
exn:fail?
(f '(1))
"To get 100% code coverage for the f function.")