ICO/t/t20readone.t

   1 #!perl -w
   2 use strict;
   3 use Test::More tests => 1;
   4 use Imager;
   5
   6 # checks that we load the ICO handler automatically
   7 my $im = Imager->new;
   8 ok($im->read(file => 'testimg/rgba3232.ico'),
   9    "check that icon reader loaded correctly for singles")
  10   or print "# ", $im->errstr, "\n";