mirror of
https://github.com/janet-lang/janet
synced 2025-02-26 12:50:02 +00:00
Update test helper to be even les noisy.
This commit is contained in:
parent
0284df503f
commit
2aa1ccdd76
@ -34,10 +34,10 @@
|
|||||||
(defn start-suite [x]
|
(defn start-suite [x]
|
||||||
(set suite-num x)
|
(set suite-num x)
|
||||||
(set start-time (os/clock))
|
(set start-time (os/clock))
|
||||||
(eprint "Running test suite " x " tests..."))
|
(eprint "Starting suite " x "..."))
|
||||||
|
|
||||||
(defn end-suite []
|
(defn end-suite []
|
||||||
(def delta (- (os/clock) start-time))
|
(def delta (- (os/clock) start-time))
|
||||||
(eprintf "Test suite %d finished in %.3f seconds" suite-num delta)
|
(eprinf "Finished suite %d in %.3f seconds - " suite-num delta)
|
||||||
(eprint num-tests-passed " of " num-tests-run " tests passed.")
|
(eprint num-tests-passed " of " num-tests-run " tests passed.")
|
||||||
(if (not= num-tests-passed num-tests-run) (os/exit 1)))
|
(if (not= num-tests-passed num-tests-run) (os/exit 1)))
|
||||||
|
Loading…
x
Reference in New Issue
Block a user