File: do_tests

package info (click to toggle)
libtpl 1.6.1-1.2
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 2,028 kB
  • sloc: ansic: 5,669; perl: 1,062; makefile: 101; cpp: 32; sh: 18
file content (22 lines) | stat: -rwxr-xr-x 422 bytes parent folder | download | duplicates (14) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!/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 2> $test.err`;
    `diff $test.out $test.ans`;
    print "$test failed\n" if $?;
    $num_failed++ if $?;
    unlink "$test.err" if -z "$test.err";
}

print scalar @tests . " tests conducted, $num_failed failed.\n";
exit $num_failed;