nixo
/
gri3-wm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tests: complete-run: display time i3 took for starting up

This commit is contained in:
Michael Stapelberg 2011-09-24 13:13:09 +01:00
parent e244a75801
commit 1a438f12ed
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
testcases/complete-run.pl
View File

@ -27,7 +27,7 @@ use File::Basename qw(basename);
use AnyEvent::I3 qw(:all); use AnyEvent::I3 qw(:all);
use Try::Tiny; use Try::Tiny;
use Getopt::Long; use Getopt::Long;
use Time::HiRes qw(sleep); use Time::HiRes qw(sleep gettimeofday tv_interval);
use X11::XCB; use X11::XCB;
use IO::Socket::UNIX; # core use IO::Socket::UNIX; # core
use POSIX; # core use POSIX; # core
@ -140,6 +140,7 @@ sub take_job {
close($fh); close($fh);
my $activate_cv = AnyEvent->condvar; my $activate_cv = AnyEvent->condvar;
my $time_before_start = [gettimeofday];
my $start_i3 = sub { my $start_i3 = sub {
# remove the old unix socket # remove the old unix socket
unlink("/tmp/nested-$display-activation"); unlink("/tmp/nested-$display-activation");
@ -235,9 +236,14 @@ sub take_job {
# This will be called as soon as i3 is running and answered to our # This will be called as soon as i3 is running and answered to our
# IPC request # IPC request
$activate_cv->cb(sub { $activate_cv->cb(sub {
say "cb"; my $time_activating = [gettimeofday];
my $start_duration = tv_interval($time_before_start, $time_activating);
my ($status) = $activate_cv->recv; my ($status) = $activate_cv->recv;
say "complete-run: status = $status"; if ($dont_start) {
say "[$display] Not starting i3, testcase does that";
} else {
say "[$display] i3 startup: took " . sprintf("%.2f", $start_duration) . "s, status = $status";
}
say "[$display] Running $test with logfile $logpath"; say "[$display] Running $test with logfile $logpath";