]> git.imager.perl.org - imager.git/commitdiff
adjust the test error messages to match the new module load errors
authorTony Cook <tony@develop-help.com>
Sat, 26 May 2012 02:33:49 +0000 (12:33 +1000)
committerTony Cook <tony@develop-help.com>
Sat, 26 May 2012 02:33:49 +0000 (12:33 +1000)
t/t1000files.t

index 808341023fbee6253efff61e268f9190a66558d3..0557f37e2ece31da4a82bca11c47757d86997418 100644 (file)
@@ -92,7 +92,7 @@ is_deeply([ Imager->get_file_limits() ], [ 0, 0, 0 ],
     my $data = "abc";
     ok(!Imager->new(data => $data, filetype => "bad"),
        "try to read an bad (other load failure) file type");
     my $data = "abc";
     ok(!Imager->new(data => $data, filetype => "bad"),
        "try to read an bad (other load failure) file type");
-   like(Imager->errstr, qr(^format 'bad' not supported - formats .* available for reading - This module fails to load$),
+   like(Imager->errstr, qr(^format 'bad' not supported - formats .* available for reading - This module fails to load loading Imager/File/BAD.pm$),
        "check error message");
   }
   {
        "check error message");
   }
   {
@@ -100,7 +100,7 @@ is_deeply([ Imager->get_file_limits() ], [ 0, 0, 0 ],
     my $im = Imager->new(xsize => 10, ysize => 10);
     ok(!$im->write(data => \$data, type => "bad"),
        "try to write an bad file type");
     my $im = Imager->new(xsize => 10, ysize => 10);
     ok(!$im->write(data => \$data, type => "bad"),
        "try to write an bad file type");
-   like($im->errstr, qr(^format 'bad' not supported - formats .* available for writing - This module fails to load$),
+   like($im->errstr, qr(^format 'bad' not supported - formats .* available for writing - This module fails to load loading Imager/File/BAD.pm$),
        "check error message");
   }
 }
        "check error message");
   }
 }