From: Michael Stapelberg <michael@stapelberg.de>
Date: Fri, 21 Aug 2009 13:01:20 +0000 (+0200)
Subject: Implement tests in t/10-dock.t
X-Git-Tag: 3.d~127
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=4a83bd26f8eb7092efc5aa2bf66ff126d15e4032;p=i3%2Fi3

Implement tests in t/10-dock.t
---

diff --git a/testcases/t/10-dock.t b/testcases/t/10-dock.t
index ffc383d4..e2e313c8 100644
--- a/testcases/t/10-dock.t
+++ b/testcases/t/10-dock.t
@@ -9,6 +9,7 @@ use Time::HiRes qw(sleep);
 use FindBin;
 use lib "$FindBin::Bin/lib";
 use i3test;
+use List::Util qw(first);
 
 BEGIN {
     #use_ok('IO::Socket::UNIX') or BAIL_OUT('Cannot load IO::Socket::UNIX');
@@ -21,6 +22,13 @@ X11::XCB::Connection->connect(':0');
 # Create a dock window and see if it gets managed
 #####################################################################
 
+my $screens = X11::XCB::Connection->screens;
+
+# Get the primary screen
+my $primary = first { $_->primary } @{$screens};
+
+# TODO: focus the primary screen before
+
 my $window = X11::XCB::Window->new(
     class => WINDOW_CLASS_INPUT_OUTPUT,
     rect => [ 0, 0, 30, 30],
@@ -32,10 +40,9 @@ my $window = X11::XCB::Window->new(
 $window->create;
 $window->map;
 
-diag("dimensions before sleep: " . Dumper($window->rect));
-
 sleep 0.25;
 
-# TODO: check if it is as wide as the screen is
+my $rect = $window->rect;
+is($rect->width, $primary->rect->width, 'dock client is as wide as the screen');
 
-diag("dimensions after sleep: " . Dumper($window->rect));
+diag( "Testing i3, Perl $], $^X" );