summarize: add match for bareword 'fail'

This commit is contained in:
Matt Simerson 2013-04-20 20:31:13 -04:00
parent 8a1a156e60
commit c7671ec329

View File

@ -277,9 +277,10 @@ sub print_auto_format {
sub show_symbol { sub show_symbol {
my $mess = shift; my $mess = shift;
return ' o' if $mess eq 'TLS setup returning'; return ' o' if $mess eq 'TLS setup returning';
return ' -' if $mess eq 'skip';
return ' -' if $mess =~ /^skip[,:\s]/i;
return ' o' if $mess eq 'pass'; return ' o' if $mess eq 'pass';
return ' -' if $mess eq 'skip';
return ' X' if $mess eq 'fail';
return ' -' if $mess =~ /^skip[,:\s]/i;
return ' o' if $mess =~ /^pass[,:\s]/i; return ' o' if $mess =~ /^pass[,:\s]/i;
return ' X' if $mess =~ /^fail[,:\s]/i; return ' X' if $mess =~ /^fail[,:\s]/i;
return ' x' if $mess =~ /^negative[,:\s]/i; return ' x' if $mess =~ /^negative[,:\s]/i;