kword/tests/checkFilter.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

#!/usr/bin/perl

foreach $in (<STDIN>) {
    if($in=~/^# Running normal tests... #$/) { $testsStarted=1; }
    elsif($testsStarted != 1 || $in=~/^$/) { print "$in"; }
    elsif($in=~/^check: (.*?)\[(\d+)\](| failed)$/) {
#print "++ $_ a: '$1', b: '$2'\n";
        $file = $1;
        $line = $2;
        $failed = $3;
        if($file ne $currentFile) {
            print "$file: ";
            $currentFile = $file;
        }
        if($lines ne "") {
            if($lines=~/\n$/) {
                $lines = "$lines...";
            } else {
                $lines = "$lines, ";
            }
        }
        if($failed ne "") { # it failed!
            $lines = "$lines\[F:$line\]";
        } else {
            $lines = "$lines$line";
        }
    }
    elsif($in=~/ ((\d+) test(|s) passed, (\d+) test(|s) failed)/) {
#print "passed: '$2' failed: '$4'\n";
        if($4 ne "0") {
            print "$lines\n";
        }
        print "$1\n";
        $lines = "";
        $currentFile = "";
    }
    elsif($currentFile eq "") {
        print $in;
    } else {
        # debug output in between lines..
        if(!($lines eq "" || $lines=~/\n$/)) {
            $lines = "$lines\n";
        }
        $lines = "$lines$in";
    }
}

if($lines ne "") {
    print "$lines\n";
    print $in;
    print "WARN: unexpected end of stream, check test $file after line $line\n";
}