ICO/t/t40readcurone.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
   7 my $im = Imager->new;
   8 ok($im->read(file => 'testimg/pal43232.cur'),
   9    "check that cursor reader loaded correctly for singles")
  10   or print "# ", $im->errstr, "\n";