spaces and options in test file names
authorMischa POSLAWSKY <perl@shiar.org>
Mon, 9 Sep 2019 20:43:34 +0000 (22:43 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 9 Sep 2019 22:37:53 +0000 (00:37 +0200)
Replace underscores by spaces to facilitate human-readable titles in sane
file names, and apply parts following a space and dash ( -*) as command
parameters to allow testing of different options.

t/regress.t

index ef28f6f934e17160acb53972ef620ee0aa685eb3..5daf496eb2a91b1ee916c16c8744fe9c3b2eaaf5 100755 (executable)
@@ -10,8 +10,14 @@ diffcmd='diff --unchanged-line-format= --old-line-format=<%L --new-line-format=>
 for candidate in ${@:-t*.in}
 do
        test_count=$((test_count+1))
-       name="${candidate%.out}"
-       barcat <"$name.in" | $diffcmd "$name.out" - || printf 'not '
+       file="${candidate%.in}"
+       test -r "$file.in" || continue
+
+       name="$(echo ${file#*-} | tr _ \ )"
+       cmd="barcat $file.in"
+       case "$name" in *\ -*) cmd="$cmd -${name#* -}";; esac
+
+       $cmd 2>&1 | $diffcmd "$file.out" - || printf 'not '
        echo "ok $test_count - $name"
 done