0.62 goals

[imager.git] / t / t101jpeg.t

diff --git a/t/t101jpeg.t b/t/t101jpeg.t
index c0fddd54cf824b84143a22ca54bffa733f75b401..dd60d9fb4095f2c5123bd12727fc858f2c5a08d7 100644 (file)
--- a/t/t101jpeg.t
+++ b/t/t101jpeg.t
@@ -1,7 +1,7 @@
 #!perl -w
 use strict;
 use Imager qw(:all);
-use Test::More tests => 86;
+use Test::More tests => 88;
 
 init_log("testout/t101jpeg.log",1);
 
@@ -28,7 +28,9 @@ if (!i_has_format("jpeg")) {
     cmp_ok($im->errstr, '=~', qr/format 'jpeg' not supported/, "check no jpeg message");
     $im = Imager->new(xsize=>2, ysize=>2);
     ok(!$im->write(file=>"testout/nojpeg.jpg"), "should fail to write jpeg");
-    cmp_ok($im->errstr, '=~', qr/format not supported/, "check no jpeg message");
+    cmp_ok($im->errstr, '=~', qr/format 'jpeg' not supported/, "check no jpeg message");
+    ok(!grep($_ eq 'jpeg', Imager->read_types), "check jpeg not in read types");
+    ok(!grep($_ eq 'jpeg', Imager->write_types), "check jpeg not in write types");
     skip("no jpeg support", 82);
   }
 } else {
@@ -402,5 +404,10 @@ if (!i_has_format("jpeg")) {
     cmp_ok($g, '<', 10, 'red - green low');
     cmp_ok($b, '<', 10, 'red - blue low');
   }
+
+  {
+    ok(grep($_ eq 'jpeg', Imager->read_types), "check jpeg in read types");
+    ok(grep($_ eq 'jpeg', Imager->write_types), "check jpeg in write types");
+  }
 }