tests/test.min
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 |
;; test module
(
("OK") ' .ok
(" " print!) .padding
;; describe
(
.name
"Testing: [" print! name print! "]" put!
padding
()
) :describe
;; assert
(
' .check ; save the check quotation to validate
' .results ; save the result symbol to update
(check -> true ==)
(
ok results append quote :results
"." print!
)
(
check results append quote :results
"x" print!
)
ifte
results
) :assert
;; report
(
newline
' .results ; save the results collected so far
0 .total
0 .failed
results (
total succ :total
(ok !=) (failed succ :failed) () ifte
) map
padding total print! " tests executed - " print! failed print! " failed." put!
(
' .result
result
(ok !=)
(padding "FAILED: " print! result put!)
()
ifte
)
map
) :report
) =test
|