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