fbb2f9e421143941654b43a1ce40169d9cea49e5
[imager.git] / ICO / t / t71icomult.t
1 #!perl -w
2 use strict;
3 use Test::More tests => 1;
4 use Imager;
5 require '../t/testtools.pl';
6
7 # checks that we load the ICO write handler automatically
8 my $img = test_oo_img();
9 ok(Imager->write_multi({ file => 'testout/icomult.ico' }, $img, $img),
10    "write_multi ico with autoload")
11   or print "# ",Imager->errstr,"\n";