applications/i3
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tests: implement does_i3_live for regression tests

Browse Source
This commit is contained in:
Michael Stapelberg 2011-01-28 01:10:45 +01:00
parent 0e8fdab302
commit 2d82868a1a
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
testcases/t/lib/i3test.pm
View File

@ -2,6 +2,7 @@ package i3test;
# vim:ts=4:sw=4:expandtab # vim:ts=4:sw=4:expandtab
use File::Temp qw(tmpnam); use File::Temp qw(tmpnam);
use Test::Builder;
use X11::XCB::Rect; use X11::XCB::Rect;
use X11::XCB::Window; use X11::XCB::Window;
use X11::XCB qw(:all); use X11::XCB qw(:all);
@ -10,7 +11,9 @@ use List::Util qw(first);
use v5.10; use v5.10;
use Exporter (); use Exporter ();
our @EXPORT = qw(get_workspace_names get_unused_workspace get_ws_content get_ws get_focused open_empty_con open_standard_window cmd); our @EXPORT = qw(get_workspace_names get_unused_workspace get_ws_content get_ws get_focused open_empty_con open_standard_window cmd does_i3_live);
my $tester = Test::Builder->new();
BEGIN { BEGIN {
my $window_count = 0; my $window_count = 0;
@ -123,4 +126,12 @@ sub cmd {
i3("/tmp/nestedcons")->command(@_)->recv i3("/tmp/nestedcons")->command(@_)->recv
} }
sub does_i3_live {
my $tree = i3('/tmp/nestedcons')->get_tree->recv;
my @nodes = @{$tree->{nodes}};
my $ok = (@nodes > 0);
$tester->ok($ok, 'i3 still lives');
return $ok;
}
1 1