#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use X11::Xlib ':fn_screen';
sub err(&) { my $code= shift; my $ret; { local $@= ''; eval { $code->() }; $ret= $@; } $ret }

plan skip_all => "No X11 Server available"
    unless $ENV{DISPLAY};
plan tests => 10;

my $dpy= new_ok( 'X11::Xlib', [], 'connect to X11' );

ok( ScreenCount($dpy)     > 0, 'screen count' );
ok( RootWindow($dpy)      > 0, 'root window'  );
ok( DefaultColormap($dpy) > 0, 'default colormap' );
ok( DefaultDepth($dpy)    > 0, 'default depth' );
ok( DefaultVisual($dpy)   > 0, 'default visual' );
ok( DisplayWidth($dpy)    > 0, 'display width' );
ok( DisplayHeight($dpy)   > 0, 'display height' );
ok( DisplayWidthMM($dpy)  > 0, 'display width MM' );
ok( DisplayHeightMM($dpy) > 0, 'display height MM' );