ICO/t/t21readmult.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 @imgs = Imager->read_multi(file => 'testimg/combo.ico')
   8   or print "# ",Imager->errstr,"\n";
   9 is(@imgs, 3,
  10    "check that icon reader loaded correctly for multiples");