mirror of
https://github.com/janet-lang/janet
synced 2024-12-23 15:00:27 +00:00
f1afc5b0b4
This adds several common patterns, which are defined in boot.janet. This essentially gives more primitive patterns to work with out of the box. Fix build when JANET_REDUCED_OS is defined.
45 lines
1.1 KiB
Plaintext
45 lines
1.1 KiB
Plaintext
# Helper code for running tests
|
|
|
|
(var num-tests-passed 0)
|
|
(var num-tests-run 0)
|
|
(var suite-num 0)
|
|
(var numchecks 0)
|
|
(var start-time 0)
|
|
|
|
(defn assert [x e]
|
|
(++ num-tests-run)
|
|
(when x (++ num-tests-passed))
|
|
(if x
|
|
(do
|
|
(when (= numchecks 25)
|
|
(set numchecks 0)
|
|
(print))
|
|
(++ numchecks)
|
|
(file/write stdout "\e[32m✔\e[0m"))
|
|
(do
|
|
(file/write stdout "\n\e[31m✘\e[0m ")
|
|
(set numchecks 0)
|
|
(print e)))
|
|
x)
|
|
|
|
(defmacro assert-error
|
|
[msg & forms]
|
|
(def errsym (keyword (gensym)))
|
|
~(assert (= ,errsym (try (do ,;forms) ([_] ,errsym))) ,msg))
|
|
|
|
(defmacro assert-no-error
|
|
[msg & forms]
|
|
(def errsym (keyword (gensym)))
|
|
~(assert (not= ,errsym (try (do ,;forms) ([_] ,errsym))) ,msg))
|
|
|
|
(defn start-suite [x]
|
|
(set suite-num x)
|
|
(set start-time (os/clock))
|
|
(print "\nRunning test suite " x " tests...\n "))
|
|
|
|
(defn end-suite []
|
|
(def delta (- (os/clock) start-time))
|
|
(printf "\n\nTest suite %d finished in %.3f seconds" suite-num delta)
|
|
(print num-tests-passed " of " num-tests-run " tests passed.\n")
|
|
(if (not= num-tests-passed num-tests-run) (os/exit 1)))
|