Expand fullscreen test to setting the hint before mapping the window

diff --git a/testcases/t/02-fullscreen.t b/testcases/t/02-fullscreen.t
index 2530649aba79dc57bc8c6ebaad9a06234f62a7a0..74b1dbbf27b25a86576bdcd85b40aaf4d18f817d 100644 (file)
--- a/testcases/t/02-fullscreen.t
+++ b/testcases/t/02-fullscreen.t
@@ -1,8 +1,9 @@
 #!perl
 
-use Test::More tests => 5;
+use Test::More tests => 8;
 use Test::Deep;
 use X11::XCB qw(:all);
+use Data::Dumper;
 
 # We use relatively long sleeps (1/4 second) to make sure the window manager
 # reacted.
@@ -45,4 +46,23 @@ sleep(0.25);
 $new_rect = $window->rect;
 ok(!eq_deeply($new_rect, $original_rect), "Window got repositioned after fullscreen");
 
+$window->unmap;
+
+$window = X11::XCB::Window->new(
+       class => WINDOW_CLASS_INPUT_OUTPUT,
+       rect => $original_rect,
+       background_color => 61440,
+);
+
+is_deeply($window->rect, $original_rect, "rect unmodified before mapping");
+
+$window->create;
+$window->fullscreen(1);
+$window->map;
+
+sleep(0.25);
+
+ok(!eq_deeply($new_rect, $original_rect), "Window got repositioned after fullscreen");
+ok($window->mapped, "Window is mapped after opening it in fullscreen mode");
+
 diag( "Testing i3, Perl $], $^X" );