GothenburgBitFactory/taskwarrior
1
0
Fork 0
mirror of https://github.com/GothenburgBitFactory/taskwarrior.git synced 2025-06-26 10:54:26 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

List expected failures with test/problems

Browse source
This commit is contained in:
Renato Alves 2015-05-25 17:57:00 +01:00
parent 5a0120f0f2
commit 53899296b1
1 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test/problems
View file

@ -8,12 +8,14 @@ if (open my $fh, '<', 'all.log')
my $test_file; my $test_file;
my %errors; my %errors;
my %skipped; my %skipped;
my %expected;
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 /; $skipped{$test_file}++ if $line =~ /^skip /;
$expected{$test_file}++ if $line =~ /^# EXPECTED_FAILURE: /;
} }
close $fh; close $fh;
@ -26,6 +28,11 @@ if (open my $fh, '<', 'all.log')
print "Skipped\n"; print "Skipped\n";
printf "%-32s %4d\n", $_, $skipped{$_} printf "%-32s %4d\n", $_, $skipped{$_}
for sort {$skipped{$b} <=> $skipped{$a}} keys %skipped; for sort {$skipped{$b} <=> $skipped{$a}} keys %skipped;
print "\n";
print "Expected failures\n";
printf "%-32s %4d\n", $_, $expected{$_}
for sort {$expected{$b} <=> $expected{$a}} keys %expected;
} }
exit 0; exit 0;