koma/i3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

testcases: use the does_i3_live function

Browse Source
This commit is contained in:
Michael Stapelberg
2011-01-28 01:21:38 +01:00
parent 773bc5ba6d
commit dc6241456a
5 changed files with 11 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
testcases/t/26-regress-close.t
View File

@ -7,19 +7,14 @@
use i3test tests => 1;
use X11::XCB qw(:all);
my $i3 = i3("/tmp/nestedcons");
my $tmp = get_unused_workspace();
$i3->command("workspace $tmp")->recv;
cmd "workspace $tmp";
$i3->command('open')->recv;
$i3->command('mode toggle')->recv;
$i3->command('kill')->recv;
$i3->command('kill')->recv;
cmd 'open';
cmd 'mode toggle';
cmd 'kill';
cmd 'kill';
my $tree = $i3->get_tree->recv;
my @nodes = @{$tree->{nodes}};
ok(@nodes > 0, 'i3 still lives');
does_i3_live;
diag( "Testing i3, Perl $], $^X" );