Fix Windows compiler warnings
[dyninst.git] / testsuite / x86_64-unknown-linux2.4 / make_test_xml.pl
1 #!/usr/bin/perl
2
3 my %testResults;
4
5 my $crashed = 0;
6 my $failed = 0;
7 my $skipped = 0;
8 my $passed = 0;
9
10 while(<>)
11 {
12     my($testname, $result) = /([\w]+).*result:.*?([\w]+)/;
13     $testResults{$testname} = [] unless exists $testResults{$testName};
14     push @{$testResults{$testname} }, $result;
15
16     $crashed++ if($result eq "CRASHED");
17     $failed++ if($result eq "FAILED");
18     $skipped++ if($result eq "SKIPPED");
19     $passed++ if($result eq "PASSED");
20 }
21
22 my $errors = $crashed + $skipped;
23 my $total = $errors + $failed + $passed;
24 print "<testsuite errors=\"$errors\" failures=\"$failures\" tests=\"$tests\">\n";
25 foreach $k(keys %testResults)
26 {
27     print "\t<testcase classname=\"global\" name=\"$k\">\n";
28     foreach $r(@{$testResults{$k}})
29     {
30         if($r eq "FAILED")
31         {
32             print "\t\t<failure>FAILED</failure>\n";
33         }
34         elsif($r eq "SKIPPED")
35         {
36             print "\t\t<skipped message=\"$r\"/>\n";
37         }
38         elsif($r ne "PASSED")
39         {
40             print "\t\t<error>$r</error>\n";
41         }
42
43     }
44     print "\t</testcase>\n";
45 }
46 print "</testsuite>\n";