pyrox.dev
lol
test-driver: Show test duration
+6
nixos/lib/test-driver/test-driver.pl
+6
nixos/lib/test-driver/test-driver.pl
···
8
8
use Logger;
9
9
use Cwd;
10
10
use POSIX qw(_exit dup2);
11
+
use Time::HiRes qw(clock_gettime CLOCK_MONOTONIC);
11
12
12
13
$SIG{PIPE} = 'IGNORE'; # because Unix domain sockets may die unexpectedly
13
14
···
179
180
$log->close();
180
181
}
181
182
183
+
my $now1 = clock_gettime(CLOCK_MONOTONIC);
182
184
183
185
runTests;
186
+
187
+
my $now2 = clock_gettime(CLOCK_MONOTONIC);
188
+
189
+
printf STDERR "test script finished in %.2fs\n", $now2 - $now1;
184
190
185
191
exit ($nrSucceeded < $nrTests ? 1 : 0);