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