@@ -1109,6 +1109,10 @@ sub new ($$$$$$$$)
11091109 $self -> {LAST_DESCRIPTION } = ' ' ;
11101110 $self -> {FAILED_TESTS } = $failed_tests_ref ;
11111111 $self -> {FAILED_TESTS_ONLY } = $failed_tests_only ;
1112+
1113+ if ($failed_tests_only ) {
1114+ $self -> {TOTALS } = new Prettify::Totals_HTML ($basename );
1115+ }
11121116
11131117 if (!$failed_tests_only ) {
11141118 # Initialize the hash table of handlers for each section
@@ -1143,6 +1147,7 @@ sub new ($$$$$$$$)
11431147 (
11441148 ' begin' => \&Normal_Handler,
11451149 ' setup' => \&Setup_Handler,
1150+ ' config' => \&Config_Handler,
11461151 ' test' => \&Test_Handler,
11471152 );
11481153
@@ -1364,7 +1369,7 @@ sub Setup_Handler ($)
13641369 return ;
13651370 }
13661371
1367- my $totals = (@{$self -> {OUTPUT }})[2];
1372+ my $totals = $self -> { FAILED_TESTS_ONLY } ? $self -> { TOTALS } : (@{$self -> {OUTPUT }})[2];
13681373
13691374 if ($s =~ m / Executing: (?:.*\/ )?cvs(?:.exe)? / i ) # # Prismtech still use some CVS please leave
13701375 {
@@ -1570,10 +1575,12 @@ sub Config_Handler ($)
15701575 my $state = $self -> {STATE };
15711576
15721577 # We only want to output config stuff to the Config_HTML class (and FULL)
1573- $outputs [0]-> Normal($s , $state );
1574- $outputs [3]-> Normal($s , $state );
1578+ if (!$self -> {FAILED_TESTS_ONLY }){
1579+ $outputs [0]-> Normal($s , $state );
1580+ $outputs [3]-> Normal($s , $state );
1581+ }
15751582
1576- my $totals = (@{$self -> {OUTPUT }})[2];
1583+ my $totals = $self -> { FAILED_TESTS_ONLY } ? $self -> { TOTALS } : (@{$self -> {OUTPUT }})[2];
15771584
15781585 if ($s =~ m / SVN_REVISION(_(\d ))?=(\d +)/ )
15791586 {
0 commit comments