t/20x11.t

   1 #!perl -w
   2 use strict;
   3 use Test::More;
   4
   5 use Imager::Screenshot 'screenshot';
   6
   7 Imager::Screenshot->have_x11
   8     or plan skip_all => "No X11 support";
   9
  10 # can we connect to a display
  11 my $display = Imager::Screenshot::x11_open()
  12   or plan skip_all => "Cannot connect to a display: ".Imager->errstr;
  13
  14 plan tests => 5;
  15
  16 {
  17   # should automatically connect and grab the root window
  18   my $im = screenshot(id => 0)
  19     or print "# ", Imager->errstr, "\n";
  20
  21   ok($im, "got a root screenshot, no display");
  22 }
  23
  24 {
  25   # use our supplied display
  26   my $im = screenshot(display => $display, id => 0);
  27   ok($im, "got a root screenshot, supplied display");
  28 }
  29
  30 {
  31   # use our supplied display - as a method
  32   my $im = Imager::Screenshot->screenshot(display => $display, id => 0);
  33   ok($im, "got a root screenshot, supplied display (method)");
  34 }
  35
  36 {
  37   # supply a junk window id
  38   my $im = screenshot(display => $display, id => 0xFFFFFFF)
  39     or print "# ", Imager->errstr, "\n";
  40   ok(!$im, "should fail to get screenshot");
  41   cmp_ok(Imager->errstr, '=~', 'BadWindow',
  42          "check error");
  43 }
  44
  45 Imager::Screenshot::x11_close($display);