use strict;
use Test::More tests => 1;
use Imager;
-require '../t/testtools.pl';
+use Imager::Test qw(test_image);
# checks that we load the ICO write handler automatically
-my $img = test_oo_img();
+my $img = test_image();
ok($img->write(file => 'testout/icosing.ico'),
"write ico with autoload")
or print "# ",$img->errstr,"\n";
use strict;
use Test::More tests => 1;
use Imager;
-require '../t/testtools.pl';
+use Imager::Test qw(test_image);
# checks that we load the ICO write handler automatically
-my $img = test_oo_img();
+my $img = test_image();
ok(Imager->write_multi({ file => 'testout/icomult.ico' }, $img, $img),
"write_multi ico with autoload")
or print "# ",Imager->errstr,"\n";
use strict;
use Test::More tests => 1;
use Imager;
-require '../t/testtools.pl';
+use Imager::Test qw(test_image);
# checks that we load the CUR write handler automatically
-my $img = test_oo_img();
+my $img = test_image();
ok($img->write(file => 'testout/cursing.cur'),
"write cur with autoload")
or print "# ",$img->errstr,"\n";
use strict;
use Test::More tests => 1;
use Imager;
-require '../t/testtools.pl';
+use Imager::Test qw(test_image);
# checks that we load the CUR write handler automatically
-my $img = test_oo_img();
+my $img = test_image();
ok(Imager->write_multi({ file => 'testout/icomult.cur' }, $img, $img),
"write_multi cur with autoload")
or print "# ",Imager->errstr,"\n";
t/t92samples.t
t/t93podcover.t POD Coverage tests
t/t94kwalitee.t Various "kwalitee" tests
-t/testtools.pl
t/tr18561.t Regression tests
t/tr18561b.t
tags.c