66 lines
2.2 KiB
Plaintext
66 lines
2.2 KiB
Plaintext
|
#!/usr/bin/env nomsu -V6.14
|
||
|
|
#
|
||
|
|
Tool to run all tests in a file (i.e. the code block inside a call to 'test $'). Usage:
|
||
|
|
nomsu tools/test.nom file1 file2 directory1 ...
|
||
|
|
|
||
|
|
use "filesystem"
|
||
|
|
use "consolecolor"
|
||
|
|
use "commandline"
|
||
|
|
|
||
|
|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||
|
|
|
||
|
|
command line program with $args:
|
||
|
|
for $filename in $args.extras at $i:
|
||
|
|
$file = (read file $filename)
|
||
|
|
unless $file:
|
||
|
|
fail "Couldn't find \$filename"
|
||
|
|
|
||
|
|
$(test environment) = (new environment)
|
||
|
|
$(test environment), export $filename
|
||
|
|
$version =
|
||
|
|
$file, matching ("
|
||
|
|
#![^
|
||
|
|
]* nomsu %-V[ ]*([^
|
||
|
|
]*)
|
||
|
|
")
|
||
|
|
$file_tests = []
|
||
|
|
for $src = $test in $(test environment).TESTS:
|
||
|
|
if $version:
|
||
|
|
$test = ("
|
||
|
|
#!/usr/bin/env nomsu -V\$version
|
||
|
|
\$test
|
||
|
|
")
|
||
|
|
$file_tests, add {.test = $test, .source = $src}
|
||
|
|
|
||
|
|
unless ($file_tests is empty):
|
||
|
|
sort $file_tests by $ -> $.source
|
||
|
|
say "[ .. ] \$filename" inline
|
||
|
|
$io.flush()
|
||
|
|
|
||
|
|
if $args.v: say ""
|
||
|
|
|
||
|
|
$failures = []
|
||
|
|
for $ in $file_tests:
|
||
|
|
if $args.v:
|
||
|
|
say " \(yellow ($.test, with "\n" -> "\n "))"
|
||
|
|
try:
|
||
|
|
$(test environment), run $.test
|
||
|
|
..if it fails with $msg:
|
||
|
|
$src = ($Source, from string $.source)
|
||
|
|
$l1 = ($file, line number at $src.start)
|
||
|
|
$l2 = ($file, line number at $src.stop)
|
||
|
|
$failures, add "\(yellow "\($src.filename):\($l1)-\$l2:")\n\(bright (red ($msg, indented)))"
|
||
|
|
|
||
|
|
if ($failures is empty):
|
||
|
|
if $args.v:
|
||
|
|
say (green "PASS")
|
||
|
|
..else:
|
||
|
|
say "\r[\(green "PASS")"
|
||
|
|
..else:
|
||
|
|
if $args.v:
|
||
|
|
say (red (bright "FAIL"))
|
||
|
|
..else:
|
||
|
|
say "\r[\(red (bright "FAIL"))"
|
||
|
|
say "\($failures, joined with "\n", indented)"
|
||
|
|
|