sanity tests for multi-monitor grab
authorTony Cook <tony@develop-help.com>
Mon, 18 Oct 2010 10:44:16 +0000 (10:44 +0000)
committerTony Cook <tony@develop-help.com>
Mon, 18 Oct 2010 10:44:16 +0000 (10:44 +0000)
t/10win32.t

index 5a50359..086c1a4 100644 (file)
@@ -16,7 +16,7 @@ use Imager::Screenshot 'screenshot';
 Imager::Screenshot->have_win32
     or plan skip_all => "No Win32 support";
 
-plan tests => 13;
+plan tests => 15;
 
 {
   my $im = screenshot(hwnd => 0);
@@ -53,3 +53,9 @@ plan tests => 13;
   is($im->tags(name => 'ss_window_height'), 30 + $im->getheight + 17,
      "check image height against window size");
 }
+
+{ # full multi-monitor desktop
+  my $im = screenshot(hwnd => 0, monitor => -1);
+  ok($im, "full desktop");
+  is($im->getchannels, 4, "should have an alpha channel");
+}