aboutsummaryrefslogtreecommitdiff
path: root/tools/test.nom
blob: 52e548fcc963828563e099566b31baf9f431bb01 (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
#!/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"

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# 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_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 (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")"