t/10win32.t

   1 #!perl -w
   2 use strict;
   3 use Test::More;
   4
   5 use Imager::Screenshot 'screenshot';
   6
   7 Imager::Screenshot->have_win32
   8     or plan skip_all => "No Win32 support";
   9
  10 plan tests => 2;
  11
  12 {
  13   my $im = screenshot(hwnd => 0);
  14
  15   ok($im, "got a screenshot");
  16 }
  17
  18 { # as a method
  19   my $im = Imager::Screenshot->screenshot(hwnd => 0);
  20
  21   ok($im, "call as a method");
  22 }
  23