1 files changed, 4 insertions, 0 deletions
diff --git a/t/run.perl b/t/run.perl
index b90715a6..f68dab60 100755
--- 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;