blob: bdbec54007231fef3d4a369b29789902f123dcea (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
#!/usr/bin/env nomsu -V4.11.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"
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%args = (command line args)
if (%args.1 == "-v"):
%args::remove index 1
%verbose = (yes)
%to_run = [..]
:
for %path in (command line args):
for %filename in (files for %path):
if (%filename == "-"):
%filename = "stdin"
if ((%filename::matches "%.nom$") or (%filename == "stdin")): add %filename
# Make sure all the files get run
for %filename in %to_run:
use %filename
%tests = {: for %s = %t in (tests): add (=lua "Source:from_string(\%s)") = %t}
for %filename in %to_run:
%file_tests = []
for %src = %test in %tests:
if (%src.filename == %filename):
%file_tests::add {test: %test, source: %src}
unless (%file_tests is empty):
sort %file_tests by % -> %.source
lua> "io.write('[ .. ] ', \%filename); io.flush()"
if %verbose: say ""
for % in %file_tests:
if %verbose:
say " \(yellow (%.test::with "\n" -> "\n "))"
run %.test
if %verbose:
say (green "PASS")
..else:
say "\r[\(green "PASS")"
|
