From b2ba02f801dda492a5c2553624f22d956573b7e1 Mon Sep 17 00:00:00 2001 From: Michael Stapelberg Date: Thu, 27 Jan 2011 17:23:29 +0100 Subject: [PATCH] add a testcase for correct floating con reattaching --- testcases/t/46-floating-reinsert.t | 62 ++++++++++++++++++++++++++++++ 1 file changed, 62 insertions(+) create mode 100644 testcases/t/46-floating-reinsert.t diff --git a/testcases/t/46-floating-reinsert.t b/testcases/t/46-floating-reinsert.t new file mode 100644 index 00000000..e24a37e0 --- /dev/null +++ b/testcases/t/46-floating-reinsert.t @@ -0,0 +1,62 @@ +#!perl +# vim:ts=4:sw=4:expandtab +# +use X11::XCB qw(:all); +use Time::HiRes qw(sleep); +use i3test tests => 5; + +BEGIN { + use_ok('X11::XCB::Window'); +} + +my $x = X11::XCB::Connection->new; + +my $tmp = get_unused_workspace; +cmd "workspace $tmp"; + +my $left = open_standard_window($x); +sleep 0.25; +my $mid = open_standard_window($x); +sleep 0.25; + +cmd 'split v'; +my $bottom = open_standard_window($x); +sleep 0.25; + +my ($nodes, $focus) = get_ws_content($tmp); + +############################################################################# +# 1: open a floating window, get it mapped +############################################################################# + +my $x = X11::XCB::Connection->new; + +# Create a floating window +my $window = $x->root->create_child( + class => WINDOW_CLASS_INPUT_OUTPUT, + rect => [ 0, 0, 30, 30], + background_color => '#C0C0C0', + # replace the type with 'utility' as soon as the coercion works again in X11::XCB + window_type => $x->atom(name => '_NET_WM_WINDOW_TYPE_UTILITY'), +); + +isa_ok($window, 'X11::XCB::Window'); + +$window->map; + +sleep 0.25; + +ok($window->mapped, 'Window is mapped'); + +($nodes, $focus) = get_ws_content($tmp); +is(@{$nodes->[1]->{nodes}}, 2, 'two windows in split con'); + +############################################################################# +# 2: make it tiling, see where it ends up +############################################################################# + +cmd 'mode toggle'; + +my ($nodes, $focus) = get_ws_content($tmp); + +is(@{$nodes->[1]->{nodes}}, 3, 'three windows in split con after mode toggle'); -- 2.39.5