#!perl
# vim:ts=4:sw=4:expandtab

use Test::More tests => 4;
use Test::Deep;
use Time::HiRes qw(sleep);
use X11::XCB qw(:all);
use Data::Dumper;

BEGIN {
	use_ok('X11::XCB::Connection') or BAIL_OUT('Unable to load X11::XCB::Connection');
	use_ok('X11::XCB::Window');
}

my $x;

SKIP: {
    eval { $x = X11::XCB::Connection->new; };

    skip "Could not setup X11 connection", 2 if $@;

    my $root = $x->root;

    isa_ok($root, 'X11::XCB::Window');

    my $rect = $root->rect;

    ok('rect of the root window could be retrieved');

    my $window = $x->root->create_child(
        class => WINDOW_CLASS_INPUT_OUTPUT,
        rect => [0, 0, 30, 30],
        background_color => '#C0C0C0',
    );

    $window->map;
    sleep 0.25;

    $window->add_hint('urgency');
    sleep 1;
    $window->delete_hint('urgency');
    sleep 1;
}

diag( "Testing X11::XCB, Perl $], $^X" );