63 if ( $entry =~ /\.log/ || $entry =~ /\.txt/) |
63 if ( $entry =~ /\.log/ || $entry =~ /\.txt/) |
64 { |
64 { |
65 parseLog($entry, \$failed, \$passed); |
65 parseLog($entry, \$failed, \$passed); |
66 #printf SUMMARY (" %45s: %d tests failed out of %d\r\n", $entry, $failed, $failed+$passed); |
66 #printf SUMMARY (" %45s: %d tests failed out of %d\r\n", $entry, $failed, $failed+$passed); |
67 } |
67 } |
68 elsif ($entry =~ /\.htm/) |
68 |
69 { |
69 elsif ($entry =~ /\.htm/) |
70 parseHtm($entry, \$failed, \$passed, \$ntestcasefailed, \$ntestcasepassed); |
70 { |
71 #printf SUMMARY (" %45s: %d tests failed out of %d\r\n", $entry, $ntestcasefailed, $ntestcasepassed+$ntestcasefailed); |
71 open (HTML_LOG, "$entry" ) or die("open failed"); |
|
72 my $Is_Tef_Htm = 1; |
|
73 |
|
74 while(<HTML_LOG>) |
|
75 { |
|
76 chomp; |
|
77 |
|
78 my $line = $_; |
|
79 $line =~ s/\x0//g; |
|
80 |
|
81 if ($line =~ /tests failed/) |
|
82 { |
|
83 parseLog($entry, \$failed, \$passed); |
|
84 #printf SUMMARY (" %45s: %d tests failed out of %d\r\n", $entry, $failed, $failed+$passed); |
|
85 $Is_Tef_Htm = 0; |
|
86 } |
|
87 |
|
88 } |
|
89 |
|
90 close HTML_LOG; |
|
91 if( $Is_Tef_Htm ) |
|
92 { |
|
93 parseHtm($entry, \$failed, \$passed, \$ntestcasefailed, \$ntestcasepassed); |
|
94 } |
72 } |
95 } |
73 if ( $passed > 0 or $failed > 0) |
96 if ( $passed > 0 or $failed > 0) |
74 { |
97 { |
75 $scriptsRun++; |
98 $scriptsRun++; |
76 $nTotalPassedStep += $passed; |
99 $nTotalPassedStep += $passed; |