gergely/taskwarrior-2.x
1
0
Fork 0
Code Issues Actions Packages Projects Releases 1 Wiki Activity

Unit Tests

Browse Source 
- Longer test script names need wider padding.
- Added counts for skipped tests.
This commit is contained in:
Paul Beckingham
2015-03-07 17:50:56 -05:00
parent 29dff399bd
commit 11dab68fce
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
test/problems
View File

@@ -7,17 +7,25 @@ if (open my $fh, '<', 'all.log')
{ {
my $test_file; my $test_file;
my %errors; my %errors;
my %skipped;
while (my $line = <$fh>) while (my $line = <$fh>)
{ {
$test_file = $1 if $line =~ /^# (\S+\.t)$/; $test_file = $1 if $line =~ /^# (\S+\.t)$/;
$errors{$test_file}++ if $line =~ /^not /; $errors{$test_file}++ if $line =~ /^not /;
$skipped{$test_file}++ if $line =~ /^skip /;
} }
close $fh; close $fh;
printf "%-24s %4d\n", $_, $errors{$_} print "Failed\n";
printf "%-32s %4d\n", $_, $errors{$_}
for sort {$errors{$b} <=> $errors{$a}} keys %errors; for sort {$errors{$b} <=> $errors{$a}} keys %errors;
print "\n";
print "Skipped\n";
printf "%-32s %4d\n", $_, $skipped{$_}
for sort {$skipped{$b} <=> $skipped{$a}} keys %skipped;
} }
exit 0; exit 0;