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