1#!perl
2# vim:ts=4:sw=4:expandtab
3
4use Test::More tests => 6;
5use Test::Deep;
6use X11::XCB qw(:all);
7use List::Util qw(first);
8
9BEGIN {
10	use_ok('X11::XCB::Connection') or BAIL_OUT('Unable to load X11::XCB::Connection');
11	use_ok('X11::XCB::Screen');
12}
13
14my $x;
15
16SKIP: {
17    eval { $x = X11::XCB::Connection->new; };
18
19    skip "Could not setup X11 connection", 4 if $@;
20
21    my $screens = $x->screens;
22    my $first = first { 1 } @{$screens};
23    isa_ok($first, 'X11::XCB::Screen');
24
25    my $primary = first { $_->primary } @{$screens};
26    isa_ok($primary, 'X11::XCB::Screen');
27    is($primary->rect->x, 0, 'primary screens x == 0');
28    is($primary->rect->y, 0, 'primary screens y == 0');
29}
30
31diag( "Testing X11::XCB, Perl $], $^X" );
32