2 # vim:ts=4:sw=4:expandtab
8 use_ok('X11::XCB::Window');
11 my $x = X11::XCB::Connection->new;
13 my $tmp = fresh_workspace;
15 my $left = open_window($x);
16 my $mid = open_window($x);
19 my $bottom = open_window($x);
21 my ($nodes, $focus) = get_ws_content($tmp);
23 #############################################################################
24 # 1: open a floating window, get it mapped
25 #############################################################################
27 # Create a floating window
28 my $window = open_floating_window($x);
29 ok($window->mapped, 'Window is mapped');
31 ($nodes, $focus) = get_ws_content($tmp);
32 is(@{$nodes->[1]->{nodes}}, 2, 'two windows in split con');
34 #############################################################################
35 # 2: make it tiling, see where it ends up
36 #############################################################################
38 cmd 'floating toggle';
40 my ($nodes, $focus) = get_ws_content($tmp);
42 is(@{$nodes->[1]->{nodes}}, 3, 'three windows in split con after floating toggle');