about summary refs log tree commit homepage
path: root/t/run.perl
diff options
context:
space:
mode:
authorEric Wong <e@yhbt.net>2020-08-29 03:48:39 +0000
committerEric Wong <e@yhbt.net>2020-08-29 03:48:39 +0000
commit0a3008a577406622a31b2ca3c099f7d61e766522 (patch)
tree134d78ea9222aa611cb8e33f01c0dec1c0ca4b62 /t/run.perl
parent4a2cabdf41a835ca92c8806de90b866df1bc999c (diff)
downloadpublic-inbox-0a3008a577406622a31b2ca3c099f7d61e766522.tar.gz
Link: https://public-inbox.org/meta/20200828221803.GA89978@dcvr/
Diffstat (limited to 't/run.perl')
-rwxr-xr-xt/run.perl7
1 files changed, 2 insertions, 5 deletions
diff --git a/t/run.perl b/t/run.perl
index e3e3e075..0ba5e044 100755
--- a/t/run.perl
+++ b/t/run.perl
@@ -80,11 +80,8 @@ sub test_status () {
                         my @sk = (<$fh> =~ m/^ok [0-9]+ (# skip [^\n]+)/mgs);
                         if (@sk) {
                                 my %nr;
-                                $nr{$_}++ for @sk;
-                                for (@sk) {
-                                        my $n = delete $nr{$_} or next;
-                                        print OLDERR "$pfx$_ ($n)\n";
-                                }
+                                my @err = grep { !$nr{$_}++ } @sk;
+                                print OLDERR "$pfx$_ ($nr{$_})\n" for @err;
                                 $skip = ' # total skipped: '.scalar(@sk);
                         }
                 } else {