fix error handling for invalid utf8 for T1

[imager.git] / lib / Imager / Test.pm

diff --git a/lib/Imager/Test.pm b/lib/Imager/Test.pm
index b3ac4450268178b4a509e1b821885ad2bbffb246..88bcd8389172632345c999725fa58049a14b142a 100644 (file)
--- a/lib/Imager/Test.pm
+++ b/lib/Imager/Test.pm
@@ -4,6 +4,7 @@ use Test::Builder;
 require Exporter;
 use vars qw(@ISA @EXPORT_OK $VERSION);
 use Carp qw(croak);
+use Config;
 
 $VERSION = "1.000";
 
@@ -35,7 +36,9 @@ $VERSION = "1.000";
      mask_tests
      test_colorf_gpix
      test_color_gpix
-     test_colorf_glin);
+     test_colorf_glin
+     can_test_threads
+     );
 
 sub diff_text_with_nul {
   my ($desc, $text1, $text2, @params) = @_;
@@ -499,7 +502,7 @@ sub is_image($$$) {
   return is_image_similar($left, $right, 0, $comment);
 }
 
-sub is_imaged($$$) {
+sub is_imaged($$$;$) {
   my $epsilon = Imager::i_img_epsilonf();
   if (@_ > 3) {
     ($epsilon) = splice @_, 2, 1;
@@ -886,15 +889,33 @@ Returns a 150x150x3 Imager::ImgRaw test image.
 
 =item test_image()
 
-Returns a 150x150x3 8-bit/sample OO test image.
+Returns a 150x150x3 8-bit/sample OO test image. Name: C<basic>.
 
 =item test_image_16()
 
-Returns a 150x150x3 16-bit/sample OO test image.
+Returns a 150x150x3 16-bit/sample OO test image. Name: C<basic16>
 
 =item test_image_double()
 
-Returns a 150x150x3 double/sample OO test image.
+Returns a 150x150x3 double/sample OO test image. Name: C<basic_double>.
+
+=item test_image_gray()
+
+Returns a 150x150 single channel OO test image. Name: C<gray>.
+
+=item test_image_gray_16()
+
+Returns a 150x150 16-bit/sample single channel OO test image. Name:
+C<gray16>.
+
+=item test_image_mono()
+
+Returns a 150x150 bilevel image that passes the is_bilevel() test.
+Name: C<mono>.
+
+=item test_image_named($name)
+
+Return one of the other test images above based on name.
 
 =item color_cmp($c1, $c2)