t/regress: perl conversion of file loop

[barcat.git] / t / regress.t

diff --git a/t/regress.t b/t/regress.t
index 099b944632d4166f22891e1bdc55fec56a727907..7980b84bde4de1add470350e9d5bcc1f8a3caab8 100755 (executable)
--- a/t/regress.t
+++ b/t/regress.t
@@ -1,31 +1,54 @@
-#!/bin/sh
-
-cd "${0%/*}" || exit 1
-
-test_count=0
-
-COLUMNS=40
-diffcmd='diff --unchanged-line-format= --old-line-format=<%L --new-line-format=>%L'
-
-for option in "$@"
-do
-       case "$option" in
-       -*) echo "Usage: $0 [<files>...]"; exit 64;;
-       esac
-done
-
-for candidate in ${@:-t*.in}
-do
-       test_count=$((test_count+1))
-       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
-
-echo "1..$test_count"
+#!/usr/bin/env perl
+use 5.014;
+use warnings;
+use re '/ms';
+use Getopt::Long qw(2.32 :config gnu_getopt);
+use Test::More;
+use File::Basename;
+use IPC::Run 'run';
+use Data::Dump 'pp';
+
+chdir dirname($0) or exit 1;
+
+GetOptions(\my %opt,
+       'regenerate|G!',
+) or do {
+       say "Usage: $0 [-G] [<files>...]";
+       exit 64;  # EX_USAGE
+};
+
+local $ENV{COLUMNS} = 40;
+
+my @params = @ARGV ? @ARGV : glob 't*.out';
+plan(tests => int @params);
+
+for my $candidate (@params) {
+       my $file = basename($candidate, '.out');
+       (my $name = $file =~ s/^[^-]*-//r) =~ tr/_/ /;
+       my $todo = $name =~ s/ #TODO$//;
+
+       my $diff;
+       if ($opt{regenerate}) {
+               if (-e "$file.sh") {
+                       skip("$file.out", 1);
+                       next;
+               }
+               #run(\@run, '>&', "$file.out");
+       }
+       elsif (!-e "$file.out") {
+               local $TODO = 'missing output';
+               fail($name);
+               next;
+       }
+       else {
+               run(['./cmddiff', "$file.out"], '>', \$diff);
+       }
+
+       local $TODO = $todo ? ' ' : undef;
+       is($? >> 8, 0, $name) or do {
+               #diag('command: ', pp(@run));
+               diag($diff);  #TODO native
+       };
+}
+
+done_testing();