tests: extend testcase to check for the last commit
This commit is contained in:
parent
4d0106b00f
commit
ed7bee72bd
|
@ -6,7 +6,7 @@
|
||||||
#
|
#
|
||||||
use X11::XCB qw(:all);
|
use X11::XCB qw(:all);
|
||||||
use Time::HiRes qw(sleep);
|
use Time::HiRes qw(sleep);
|
||||||
use i3test tests => 2;
|
use i3test tests => 3;
|
||||||
|
|
||||||
BEGIN {
|
BEGIN {
|
||||||
use_ok('X11::XCB::Window');
|
use_ok('X11::XCB::Window');
|
||||||
|
@ -21,6 +21,8 @@ my $left = open_standard_window($x);
|
||||||
sleep 0.25;
|
sleep 0.25;
|
||||||
my $mid = open_standard_window($x);
|
my $mid = open_standard_window($x);
|
||||||
sleep 0.25;
|
sleep 0.25;
|
||||||
|
my $right = open_standard_window($x);
|
||||||
|
sleep 0.25;
|
||||||
|
|
||||||
# go to workspace level
|
# go to workspace level
|
||||||
cmd 'level up';
|
cmd 'level up';
|
||||||
|
@ -35,3 +37,10 @@ cmd 'move before v';
|
||||||
sleep 0.25;
|
sleep 0.25;
|
||||||
|
|
||||||
does_i3_live;
|
does_i3_live;
|
||||||
|
|
||||||
|
# move another con outside
|
||||||
|
cmd '[id="' . $mid->id . '"] focus';
|
||||||
|
cmd 'move before v';
|
||||||
|
sleep 0.25;
|
||||||
|
|
||||||
|
does_i3_live;
|
||||||
|
|
Loading…
Reference in New Issue