add changes file
[imager-screenshot.git] / t / 10win32.t
CommitLineData
a9735f1a
TC
1#!perl -w\r
2use strict;\r
b2239557 3use Test::More;\r
a9735f1a
TC
4\r
5use Imager::Screenshot 'screenshot';\r
6\r
7Imager::Screenshot->have_win32\r
b2239557 8 or plan skip_all => "No Win32 support";\r
a9735f1a 9\r
b2239557
TC
10plan 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
a9735f1a 23\r