initial screenshot attempt
[imager-screenshot.git] / 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