1use strict;
2use Image::Grab qw(grab);
3use Cwd;
4use Test::Simple tests => 2;
5
6my $pwd = cwd;
7$ENV{DOMAIN} ||= "example.com"; # Net::Domain warnings
8my $image = Image::Grab->grab(URL=>"file://" . $pwd . "/t/data/perl.gif");
9
10ok(defined $image);
11
12my $image2 = grab(URL=>"file://" . $pwd . "/t/data/perl.gif");
13ok(defined $image2);
14