polish/test darwin support
[imager-screenshot.git] / t / 50darwin.t
1 #!perl -w
2 use strict;
3 use Test::More;
4
5 use Imager::Screenshot 'screenshot';
6
7 ++$|;
8
9 Imager::Screenshot->have_darwin
10   or plan skip_all => "No darwin support";
11
12 my $im = screenshot(darwin => 0, right => 1, bottom => 1);
13 unless ($im) {
14   my $err = Imager->errstr;
15   $err =~ /No pixel format found/
16     or plan skip_all => "Probably an inactive user";
17   $err =~ /No main display/
18     or plan skip_all => "User doen't have a display";
19 }
20
21 plan tests => 7;
22
23 {
24   my $im = screenshot(darwin => 0);
25   ok($im, "got an image");
26   is($im->getchannels, 3, "we have some color");
27
28   is($im->tags(name => "ss_window_width"), $im->getwidth,
29      "check ss_window_width tag");
30   is($im->tags(name => 'ss_window_height'), $im->getheight,
31      "check ss_window_height tag");
32   is($im->tags(name => 'ss_left'), 0, "check ss_left tag");
33   is($im->tags(name => 'ss_top'), 0, "check ss_top tag");
34   is($im->tags(name => 'ss_type'), 'Darwin', "check ss_type tag");
35 }