From 8a9b57c874976e81c576fec64a601c7c336b4264 Mon Sep 17 00:00:00 2001
From: Michael Stapelberg <michael@stapelberg.de>
Date: Fri, 1 Jan 2010 16:19:55 +0100
Subject: [PATCH] Extend testcase for dock clients with wm_transient_for hint

---
 testcases/t/10-dock.t | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/testcases/t/10-dock.t b/testcases/t/10-dock.t
index 97ac5f41..b1b7bfcb 100644
--- a/testcases/t/10-dock.t
+++ b/testcases/t/10-dock.t
@@ -43,4 +43,17 @@ sleep 0.25;
 my $rect = $window->rect;
 is($rect->width, $primary->rect->width, 'dock client is as wide as the screen');
 
+my $fwindow = $x->root->create_child(
+    class => WINDOW_CLASS_INPUT_OUTPUT,
+    rect => [ 0, 0, 30, 30],
+    background_color => '#FF0000',
+    type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'),
+);
+
+$fwindow->transient_for($window);
+$fwindow->map;
+
+sleep 0.25;
+
+
 diag( "Testing i3, Perl $], $^X" );
-- 
2.39.5