#!perl
# vim:ts=4:sw=4:expandtab
-use i3test tests => 11;
+use i3test;
use X11::XCB qw(:all);
-use Time::HiRes qw(sleep);
BEGIN {
use_ok('X11::XCB::Window');
$window->map;
-sleep(0.25);
+sleep 0.25;
my ($absolute, $top) = $window->rect;
$window->map;
-sleep(0.25);
+sleep 0.25;
($absolute, $top) = $window->rect;
$window->unmap;
-diag( "Testing i3, Perl $], $^X" );
+done_testing;