From: Michael Stapelberg <michael@stapelberg.de>
Date: Thu, 16 Jul 2009 12:29:18 +0000 (+0200)
Subject: Add test case for unmanaged windows (override_redirect => 1)
X-Git-Tag: 3.d~144
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=dba16126556166476e6a87d6978a774e9162400d;p=i3%2Fi3

Add test case for unmanaged windows (override_redirect => 1)
---

diff --git a/testcases/t/03-unmanaged.t b/testcases/t/03-unmanaged.t
new file mode 100644
index 00000000..cf51bfe8
--- /dev/null
+++ b/testcases/t/03-unmanaged.t
@@ -0,0 +1,36 @@
+#!perl
+# vim:ts=4:sw=4:expandtab
+
+use Test::More tests => 5;
+use Test::Deep;
+use X11::XCB qw(:all);
+use Data::Dumper;
+
+BEGIN {
+    use_ok('X11::XCB::Window');
+}
+
+X11::XCB::Connection->connect(':0');
+
+my $original_rect = X11::XCB::Rect->new(x => 0, y => 0, width => 30, height => 30);
+
+my $window = X11::XCB::Window->new(
+    class => WINDOW_CLASS_INPUT_OUTPUT,
+    rect => $original_rect,
+    override_redirect => 1,
+    background_color => 12632256
+);
+
+isa_ok($window, 'X11::XCB::Window');
+
+is_deeply($window->rect, $original_rect, "rect unmodified before mapping");
+
+$window->create;
+$window->map;
+
+my $new_rect = $window->rect;
+isa_ok($new_rect, 'X11::XCB::Rect');
+
+is_deeply($new_rect, $original_rect, "window untouched");
+
+diag( "Testing i3, Perl $], $^X" );