sanity tests for multi-monitor grab

[imager-screenshot.git] / t / 10win32.t

diff --git a/t/10win32.t b/t/10win32.t
index 5a50359f90fac90e3ca03ba55f73a58ae9853e56..086c1a422943606edfb0f599169f8f290af8bb68 100644 (file)
--- a/t/10win32.t
+++ b/t/10win32.t
@@ -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");
+}