cover
952 of 1281 new or added lines in 19 files covered. (74.32%)
1300 of 1777 relevant lines covered (73.16%)
0.73 hits per line
|
#lang racket/base
|
1✔ |
2 |
|
|
|
(require (only-in racket/function |
1✔ |
|
const))
|
1✔ |
5 |
|
|
|
(provide ->boolean |
1✔ |
|
true.
|
1✔ |
|
false.
|
1✔ |
|
~all? |
1✔ |
|
~any? |
1✔ |
|
~none? |
1✔ |
|
~count |
1✔ |
|
~live?) |
1✔ |
14 |
|
|
NEW
|
(define (->boolean v) (and v #t)) |
× |
16 |
|
|
|
(define true.
|
1✔ |
|
(procedure-rename (const #t) |
1✔ |
|
'true.))
|
1✔ |
20 |
|
|
|
(define false.
|
1✔ |
|
(procedure-rename (const #f) |
1✔ |
|
'false.))
|
1✔ |
24 |
|
|
|
(define (~all? . args) |
1✔ |
NEW
|
(for/and ([v (in-list args)]) v)) |
× |
27 |
|
|
|
(define (~any?-helper args) |
1✔ |
NEW
|
(for/or ([v (in-list args)]) v)) |
× |
30 |
|
|
|
(define (~any? . args) |
1✔ |
NEW
|
(~any?-helper args)) |
× |
33 |
|
|
|
(define (~none? . args) |
1✔ |
NEW
|
(not (~any?-helper args)))
|
× |
36 |
|
|
|
(define (~count . args) |
1✔ |
NEW
|
(length args)) |
× |
39 |
|
|
|
(define (~live? . args) |
1✔ |
NEW
|
(not (null? args)))
|
× |