Fix 'showing' subheader to correctly reflect various --show-* options

raku-community-modules · Nov 1, 2014 · 63330ac · 63330ac
1 parent 8fc4746
commit 63330ac
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/lib/Analyze/Summary.pm b/lib/Analyze/Summary.pm
@@ -72,12 +72,14 @@ sub init {
     $s->{lang_count} = \%lang_count;
     $s->{langs}      = \@langs;
 
-    my   @showing = ('PEAK RATE (/s)');
-    push @showing, 'TIMES SLOWER THAN FASTEST (x)' if $o->{compare};
-    if ($d->{score}) {
+    my   @showing;
+    push @showing, 'PEAK RATE (/s)'                if $o->{'show-rates'};
+    push @showing, 'TIMES SLOWER THAN FASTEST (x)' if $o->{'show-relative'};
+    if ($d->{score} && $o->{'show-relative'}) {
         my $skip = $o->{'skip-incomplete'} ? ' (skipping incomplete data)' : '';
         push @showing, "SUMMARY SCORES$skip";
     }
+    push @showing, 'FAILURE DIAGNOSES' if $o->{'show-failures'};
     $s->{showing} = \@showing;
 
     return $s;