]> git.imager.perl.org - imager.git/commitdiff
skip the loop tests with older (un)giflibs
authorTony Cook <tony@develop=help.com>
Thu, 31 Aug 2006 13:27:19 +0000 (13:27 +0000)
committerTony Cook <tony@develop=help.com>
Thu, 31 Aug 2006 13:27:19 +0000 (13:27 +0000)
t/t105gif.t

index b6f7366f2177c7926ddced02330e572eed2bc9bd..17f166042f442ff6b71f0dd2408ff902f8d29cd5 100644 (file)
@@ -646,7 +646,10 @@ EOS
     cmp_ok($res->errstr, "=~", 'page 3 not found',
           "check error message");
   }
     cmp_ok($res->errstr, "=~", 'page 3 not found',
           "check error message");
   }
+SKIP:
   {
   {
+    skip("gif_loop not supported on giflib before 4.1", 6) 
+      unless $gifver >= 4.1;
     # testing writing the loop extension
     my $im1 = Imager->new(xsize => 100, ysize => 100);
     $im1->box(filled => 1, color => '#FF0000');
     # testing writing the loop extension
     my $im1 = Imager->new(xsize => 100, ysize => 100);
     $im1->box(filled => 1, color => '#FF0000');