application/octet-stream
•
1.80 KB
•
51 lines
#!/usr/bin/env nujel
[def test/beginning [time/milliseconds]]
[test-run]
[println [ansi-purple "Now running the AoC Tests, this might take a while."]]
[path/change "tests/"]
[def ext-nuj? [path/ext?! "nuj"]]
[defun directory/read-relative [path]
[map [\ [α] [cat path "/" α]]
[directory/read path]]
]
[defun prog-str [fun-color i path start]
[cat "[" [fun-color [string/pad-start i 2]]
"/" [string/pad-start test/count 2]
"] " [string/pad-end [substr path 2 [length path]] 24]
[if start [cat " " [ansi-blue [string/pad-start [- [time/milliseconds] start] 5]] "ms"] #nil]]
]
[def test/start [time/milliseconds]]
[def test/success 0]
[def test/errors 0]
[def i]
[defun file/test [path]
[++ i]
[def test/start/file [time/milliseconds]]
[try [\ [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 [ω]]
[++ test/success]
[print "\r"]
[println [prog-str ansi-green i path test/start/file]]
]
]
[def test-paths [list/sort [filter ext-nuj? [directory/read-relative "."]]]]
[def test/count [length test-paths]]
[for-each file/test test-paths]
[newline]
[def dur [- [time/milliseconds] test/start]]
[if [and [> test/success 0] [zero? test/errors]]
[do [println [cat [ansi-green "AoC Tests succeeded"] " - [" [ansi-green test/success] " / " [ansi-red test/errors] "] in " dur "ms"]]]
[do [println [cat [ansi-red "AoC 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]
