From e665d9725c4bb02f4c18d16527367f424cb880fa Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Wed, 20 Mar 2019 15:55:57 -0700 Subject: Auto-updated to 7.0.0 syntax and removed some shims. --- lib/tools/test.nom | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'lib/tools/test.nom') diff --git a/lib/tools/test.nom b/lib/tools/test.nom index 9aecd94..8244f70 100755 --- a/lib/tools/test.nom +++ b/lib/tools/test.nom @@ -1,5 +1,6 @@ -#!/usr/bin/env nomsu -V6.15.13.8 -# +#!/usr/bin/env nomsu -V7.0.0 + +### 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 ... @@ -10,7 +11,7 @@ use "commandline" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ command line program with $args: - for $filename in $args.extras at $i: + for ($i = $filename) in $args.extras: $file = (read file $filename) unless $file: fail "Couldn't find \$filename" @@ -22,7 +23,7 @@ command line program with $args: ]* nomsu %-V[ ]*([%d.]*) ") $file_tests = [] - for $src = $test in (nomsu environment, Module $filename).TESTS: + for ($src = $test) in (nomsu environment, Module $filename).TESTS: if $version: $test = (" #!/usr/bin/env nomsu -V\$version @@ -64,4 +65,4 @@ command line program with $args: say (red (bright "FAIL")) ..else: say "\r[\(red (bright "FAIL"))" - say "\($failures, joined with "\n", indented)" + say "\($failures, joined with "\n", indented)" \ No newline at end of file -- cgit v1.2.3