tests: make slow tests easier-to-find

[public-inbox.git] / t / run.perl

diff --git a/t/run.perl b/t/run.perl
index b90715a6ffe09ce86d04e84ad7d7b1f5b71c604d..f68dab607f2693c53edb9d517b9ff93150fbae5a 100755 (executable)
--- a/t/run.perl
+++ b/t/run.perl
@@ -85,6 +85,10 @@ if ($shuffle) {
        @tests = sort {
                ($t->{$b}->{elapsed} // 0) <=> ($t->{$a}->{elapsed} // 0)
        } @tests;
+       say "# top 10 longest tests (`make check' regenerates)";
+       for (@tests[0..9]) {
+               printf "# %0.6f %s\n", $t->{$_}->{elapsed}, $_;
+       }
 }
 
 our $tb = Test::More->builder;