skip tests if there's no gif support

diff --git a/t/t70newgif.t b/t/t70newgif.t
index 81e11ceeaf06131eb590c03d6e94e381dffceda9..ab7bcd32d4d967c6aa4068bada4c5e3cb97c445a 100644 (file)
--- a/t/t70newgif.t
+++ b/t/t70newgif.t
@@ -25,50 +25,57 @@ $img->open(file=>'testimg/scale.ppm',type=>'pnm') || print "failed: ",$img->{ERR
 print "ok 2\n";
 
 
-$img->write(file=>'testout/t70newgif.gif',type=>'gif',gifplanes=>1,gifquant=>'lm',lmfixed=>[$green,$blue]) || print "failed: ",$img->{ERRSTR},"\n";
-print "ok 3\n";
+if (i_has_format("gif")) {
+  $img->write(file=>'testout/t70newgif.gif',type=>'gif',gifplanes=>1,gifquant=>'lm',lmfixed=>[$green,$blue]) || print "failed: ",$img->{ERRSTR},"\nnot ";
+  print "ok 3\n";
 
-# make sure the palette is loaded properly (minimal test)
-my $im2 = Imager->new();
-my $map;
-if ($im2->read(file=>'testimg/bandw.gif', colors=>\$map)) {
-  print "ok 4\n";
-  # check the palette
-  if ($map) {
-    print "ok 5\n";
-    if (@$map == 2) {
-      print "ok 6\n";
-      my @sorted = sort { comp_entry($a,$b) } @$map;
-      # first entry must be #000000 and second #FFFFFF
-      if (comp_entry($sorted[0], NC(0,0,0)) == 0) {
-       print "ok 7\n";
-      }
-      else {
-       print "not ok 7 # entry should be black\n";
-      }
-      if (comp_entry($sorted[1], NC(255,255,255)) == 0) {
-       print "ok 8\n";
-      }
+  # make sure the palette is loaded properly (minimal test)
+  my $im2 = Imager->new();
+  my $map;
+  if ($im2->read(file=>'testimg/bandw.gif', colors=>\$map)) {
+    print "ok 4\n";
+    # check the palette
+    if ($map) {
+      print "ok 5\n";
+      if (@$map == 2) {
+       print "ok 6\n";
+       my @sorted = sort { comp_entry($a,$b) } @$map;
+       # first entry must be #000000 and second #FFFFFF
+       if (comp_entry($sorted[0], NC(0,0,0)) == 0) {
+         print "ok 7\n";
+       }
+       else {
+         print "not ok 7 # entry should be black\n";
+       }
+       if (comp_entry($sorted[1], NC(255,255,255)) == 0) {
+         print "ok 8\n";
+       }
+       else {
+         print "not ok 8 # entry should be white\n";
+       }
+      } 
       else {
-       print "not ok 8 # entry should be white\n";
+       print "not ok 6 # bad map size\n";
+       print "ok 7 # skipped bad map size\n";
+       print "ok 8 # skipped bad map size\n";
       }
-    }
+    } 
     else {
-      print "not ok 6 # bad map size\n";
-      print "ok 7 # skipped bad map size\n";
-      print "ok 8 # skipped bad map size\n";
+      print "not ok 5 # no map returned\n";
+      for (6..8) {
+       print "ok $_ # skipped no map returned\n";
+      }
     }
   }
   else {
-    print "not ok 5 # no map returned\n";
-    for (6..8) {
-      print "ok $_ # skipped no map returned\n";
-    }
+    print "not ok 4 # ",$im2->errstr,"\n";
+    print "ok 5 # skipped - couldn't load image\n";
   }
 }
 else {
-  print "not ok 4 # ",$im2->errstr,"\n";
-  print "ok 5 # skipped - couldn't load image\n";
+  for (3..8) {
+    print "ok $_ # skipped: no gif support\n";
+  }
 }
 
 sub comp_entry {