avoid a possible sign-extension for offsets/sizes in SGI

[imager.git] / t / 200-file / 100-files.t

diff --git a/t/200-file/100-files.t b/t/200-file/100-files.t
index a4c66a444b18eda86915686b853b409ec55e6161..928dce323ed8fcbfa980059bfdcdcf5d1055f4cc 100644 (file)
--- a/t/200-file/100-files.t
+++ b/t/200-file/100-files.t
@@ -4,7 +4,7 @@
 # the file format
 
 use strict;
-use Test::More tests => 94;
+use Test::More;
 use Imager;
 
 -d "testout" or mkdir "testout";
@@ -342,6 +342,7 @@ FLIF
      ILBM => "ilbm",
      pcx => "pcx",
      psd => "psd",
+     webp => "webp",
     );
 
   while (my ($ext, $expect) = splice(@tests, 0, 2)) {
@@ -349,10 +350,15 @@ FLIF
     is(Imager::def_guess_type($filename), $expect,
        "type for $filename should be $expect");
   }
+  Imager->add_type_extensions("x123", "x321");
+  is(Imager::def_guess_type("foo.x321"), "x123",
+     "test adding a file type works");
 }
 
 Imager->close_log;
 
+done_testing();
+
 unless ($ENV{IMAGER_KEEP_FILES}) {
   unlink "testout/t1000files.log";
 }