t/10win32.t

   1 #!perl -w\r
   2 use strict;\r
   3 use Test::More tests => 1;\r
   4 \r
   5 use Imager::Screenshot 'screenshot';\r
   6 \r
   7 Imager::Screenshot->have_win32\r
   8     or skip_all("No Win32 support");\r
   9 \r
  10 my $im = screenshot(hwnd => 0);\r
  11 \r
  12 ok($im, "got a screenshot");\r
  13 $im->write(file => "foo.ppm");\r