22 linhas
367 B
Perl
Arquivo executável
22 linhas
367 B
Perl
Arquivo executável
#!/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";
|
|
exit $num_failed;
|