diff -r afc583cfa176 -r da2ae96f639b cryptomgmtlibs/securitytestfw/test/autotesting/newdigest.pl --- a/cryptomgmtlibs/securitytestfw/test/autotesting/newdigest.pl Fri Oct 02 13:15:59 2009 +0300 +++ b/cryptomgmtlibs/securitytestfw/test/autotesting/newdigest.pl Mon Oct 12 10:17:04 2009 +0300 @@ -65,10 +65,33 @@ parseLog($entry, \$failed, \$passed); #printf SUMMARY (" %45s: %d tests failed out of %d\r\n", $entry, $failed, $failed+$passed); } - elsif ($entry =~ /\.htm/) - { - parseHtm($entry, \$failed, \$passed, \$ntestcasefailed, \$ntestcasepassed); - #printf SUMMARY (" %45s: %d tests failed out of %d\r\n", $entry, $ntestcasefailed, $ntestcasepassed+$ntestcasefailed); + + elsif ($entry =~ /\.htm/) + { + open (HTML_LOG, "$entry" ) or die("open failed"); + my $Is_Tef_Htm = 1; + + while() + { + chomp; + + my $line = $_; + $line =~ s/\x0//g; + + if ($line =~ /tests failed/) + { + parseLog($entry, \$failed, \$passed); + #printf SUMMARY (" %45s: %d tests failed out of %d\r\n", $entry, $failed, $failed+$passed); + $Is_Tef_Htm = 0; + } + + } + + close HTML_LOG; + if( $Is_Tef_Htm ) + { + parseHtm($entry, \$failed, \$passed, \$ntestcasefailed, \$ntestcasepassed); + } } if ( $passed > 0 or $failed > 0) {