diff options
| author | Samuel Dionne-Riel <samuel@dionne-riel.com> | 2019-01-08 21:27:20 -0500 |
|---|---|---|
| committer | Samuel Dionne-Riel <samuel@dionne-riel.com> | 2019-01-11 22:36:31 -0500 |
| commit | 5d93e2c01cc422d386cb00a011e11757edbd1500 (patch) | |
| tree | e6e0ba95bc9eb8bbae7ce22d187fd8739e549454 /nixos/lib | |
| parent | 1fe0018df81a423a3b85faa09b2f8fdabfe143c3 (diff) | |
| download | nixpkgs-5d93e2c01cc422d386cb00a011e11757edbd1500.tar nixpkgs-5d93e2c01cc422d386cb00a011e11757edbd1500.tar.gz nixpkgs-5d93e2c01cc422d386cb00a011e11757edbd1500.tar.bz2 nixpkgs-5d93e2c01cc422d386cb00a011e11757edbd1500.tar.lz nixpkgs-5d93e2c01cc422d386cb00a011e11757edbd1500.tar.xz nixpkgs-5d93e2c01cc422d386cb00a011e11757edbd1500.tar.zst nixpkgs-5d93e2c01cc422d386cb00a011e11757edbd1500.zip | |
test-driver: Logs time taken for nests
Diffstat (limited to 'nixos/lib')
| -rw-r--r-- | nixos/lib/test-driver/Logger.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/nixos/lib/test-driver/Logger.pm b/nixos/lib/test-driver/Logger.pm index 3fe5ef67c14..080310ea34e 100644 --- a/nixos/lib/test-driver/Logger.pm +++ b/nixos/lib/test-driver/Logger.pm @@ -4,6 +4,7 @@ use strict; use Thread::Queue; use XML::Writer; use Encode qw(decode encode); +use Time::HiRes qw(clock_gettime CLOCK_MONOTONIC); sub new { my ($class) = @_; @@ -46,10 +47,12 @@ sub nest { print STDERR maybePrefix("$msg\n", $attrs); $self->{log}->startTag("nest"); $self->{log}->dataElement("head", $msg, %{$attrs}); + my $now = clock_gettime(CLOCK_MONOTONIC); $self->drainLogQueue(); eval { &$coderef }; my $res = $@; $self->drainLogQueue(); + $self->log(sprintf("(%.2f seconds)", clock_gettime(CLOCK_MONOTONIC) - $now)); $self->{log}->endTag("nest"); die $@ if $@; } |