Ben / Nujel

#!/usr/bin/env nujel

[def test/beginning [time/milliseconds]]
[def test/testsuite-errors 0]

[defn prog-str [fun-color i path start]
  [cat "[" [fun-color [string/pad-start i 2]]
       "/" [string/pad-start test/count 2]
       "] " [string/pad-end [cut path 2 [length path]] 48]
       [if start [cat " " [ansi-blue [string/pad-start [- [time/milliseconds] start] 8]] "ms"] #nil]]]

[when [not [tree/has? repl/options :only-test-suite]]
  [println [ansi-purple "First we test the basic functions of the runtime."]]]
[for-each [sort [directory/read-relative "testsuite"]]
          file/eval]

[def output-passes #f]
[when [tree/has? repl/options :verbose]
  [set! output-passes #t]]

[set! test/testsuite-errors [test-run output-passes]]

[when [tree/has? repl/options :only-test-suite]
  [exit test/testsuite-errors]]

[println [ansi-green "Great, Now we can do some more complicated and thorough tests."]]

[def test/slow [or [ref repl/options :slow-test] #f]]
[def test/ridiculous [or [ref repl/options :ridiculous-test] #f]]
[def test/start [time/milliseconds]]
[def test/success 0]
[def test/errors 0]
[def i 0]
[defn file/test [path]
  [++ i]
  [def test/start/file [time/milliseconds]]
  [try [fn [err]
           [print "\r"]
           [println [prog-str ansi-red i path test/start/file]]
           [++ test/errors]
           [display/error err]
           [newline]]
       [print [prog-str ansi-yellow i path #nil]]
       [file/eval path [environment*]]
       [++ test/success]
       [print "\r"]
       [println [prog-str ansi-green i path test/start/file]]]]

[def test-paths [list/sort [filter [append [directory/read-relative "./tests/fast"]
                                           [when test/slow [directory/read-relative "./tests/slow"]]
					   [when test/ridiculous [directory/read-relative "./tests/ridiculous"]]]
                                   [path/ext?! "nuj"]]]]

[def test/count [length test-paths]]
[for-each test-paths file/test]
[newline]
[def dur [- [time/milliseconds] test/start]]
[if [and [> test/success 0] [zero? test/errors]]
    [do [println [cat [ansi-green "Extended Tests succeeded"] " - [" [ansi-green test/success] " / " [ansi-red test/errors] "] in " dur "ms"]]]
    [do [println [cat [ansi-red   "Extended Tests failed"]    " - [" [ansi-green test/success] " / " [ansi-red test/errors] "] in " dur "ms"]]]]

[println [cat "Running everything took " [ansi-blue [- [time/milliseconds] test/beginning]] "ms"]]
[exit test/errors + test/testsuite-errors]