ICO/t/t41curmultread.t

   1 #!perl -w
   2 use strict;
   3 use Test::More tests => 1;
   4 use Imager;
   5
   6 # checks that we load the CUR handler automatically for multiple image reads
   7 my @im = Imager->read_multi(file=>'testimg/pal43232.cur');
   8 is(scalar(@im), 1,
   9    "check that cursor reader loaded correctly for singles")
  10   or print "# ", Imager->errstr, "\n";