diff options
| -rwxr-xr-x | challenge-082/abigail/test.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/challenge-082/abigail/test.pl b/challenge-082/abigail/test.pl index 310382b62b..349ee00c1e 100755 --- a/challenge-082/abigail/test.pl +++ b/challenge-082/abigail/test.pl @@ -60,11 +60,16 @@ foreach my $challenge (1, 2) { my $output_exp = ($input =~ s/input/output/r) . ".exp"; my $exp = `cat $output_exp`; + my $name = $input; + if ($exp =~ s/^\s*#\s*(.*)\n//) { + $name = $1; + } + my $got = `$perl_exe -ple '$filter' $input |\ $exe @args ./$solution`; s/\h+$//gm for $exp, $got; - is $got, $exp, $input; + is $got, $exp, $name; } } } |