mirror of
https://github.com/troydhanson/tpl.git
synced 2024-12-27 08:05:39 +08:00
21 lines
349 B
Plaintext
21 lines
349 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
my @tests;
|
||
|
|
for (glob "test*[0-9]") {
|
||
|
|
push @tests, $_ if -e "$_.ans";
|
||
|
|
}
|
||
|
|
|
||
|
|
my $num_failed=0;
|
||
|
|
|
||
|
|
for my $test (@tests) {
|
||
|
|
`./$test > $test.out`;
|
||
|
|
`diff $test.out $test.ans`;
|
||
|
|
print "$test failed\n" if $?;
|
||
|
|
$num_failed++ if $?;
|
||
|
|
}
|
||
|
|
|
||
|
|
print scalar @tests . " tests conducted, $num_failed failed.\n";
|