cover
947 of 1273 new or added lines in 19 files covered. (74.39%)
14 existing lines in 3 files now uncovered.1295 of 1769 relevant lines covered (73.21%)
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✔ |
12 |
|
|
NEW
|
(define (->boolean v) (and v #t)) |
× |
14 |
|
|
|
(define true.
|
1✔ |
|
(procedure-rename (const #t) |
1✔ |
|
'true.))
|
1✔ |
18 |
|
|
|
(define false.
|
1✔ |
|
(procedure-rename (const #f) |
1✔ |
|
'false.))
|
1✔ |
22 |
|
|
|
(define (~all? . args) |
1✔ |
NEW
|
(for/and ([v (in-list args)]) v)) |
× |
25 |
|
|
|
(define (~any?-helper args) |
1✔ |
NEW
|
(for/or ([v (in-list args)]) v)) |
× |
28 |
|
|
|
(define (~any? . args) |
1✔ |
NEW
|
(~any?-helper args)) |
× |
31 |
|
|
|
(define (~none? . args) |
1✔ |
NEW
|
(not (~any?-helper args)))
|
× |