]>
Commit | Line | Data |
---|---|---|
2b405c9e TC |
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"; |