From: Michael Stapelberg <michael@stapelberg.de>
Date: Fri, 21 Aug 2009 10:15:53 +0000 (+0200)
Subject: Expand fullscreen test to setting the hint before mapping the window
X-Git-Tag: 3.d~130
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=a1e9f75fe5229314adcb0b6a5c4073b8b46a3ce6;p=i3%2Fi3

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 2530649a..74b1dbbf 100644
--- 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" );