37 lines
1.3 KiB
Plaintext
Executable File
37 lines
1.3 KiB
Plaintext
Executable File
#!/usr/bin/env nomsu -V5.12.12.8
|
|
#
|
|
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 "lib/os.nom"
|
|
use "lib/consolecolor.nom"
|
|
|
|
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
# Make sure all the files get run
|
|
for $filename in (command line args).extra_args: use $filename
|
|
$tests = {: for $s = $t in (tests): add (=lua "Source:from_string(\$s)") = $t}
|
|
for $filename in (command line args).extra_args:
|
|
$file = (read file $filename)
|
|
$version = ($file|matching "#![^\n]* nomsu %-V[ ]*([^\n]*)")
|
|
$file_tests = []
|
|
for $src = $test in $tests:
|
|
if ($src.filename == $filename):
|
|
if $version:
|
|
$test = "#!/usr/bin/env nomsu -V\$version\n\$test"
|
|
$file_tests|add {test: $test, source: $src}
|
|
|
|
unless ($file_tests is empty):
|
|
sort $file_tests by $ -> $.source
|
|
lua> "io.write('[ .. ] ', \$filename); io.flush()"
|
|
if (command line args)."-v": say ""
|
|
for $ in $file_tests:
|
|
if (command line args)."-v":
|
|
say " \(yellow ($.test|with "\n" -> "\n "))"
|
|
run $.test
|
|
|
|
if (command line args)."-v":
|
|
say (green "PASS")
|
|
..else:
|
|
say "\r[\(green "PASS")"
|