add a readme and example for win32, convert files from Win32 to Unix
[imager-screenshot.git] / t / 10win32.t
CommitLineData
0ddb7051
TC
1#!perl -w
2use strict;
3use Test::More;
4
5use Imager::Screenshot 'screenshot';
6
7Imager::Screenshot->have_win32
8 or plan skip_all => "No Win32 support";
9
10plan 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