]> git.imager.perl.org - imager.git/commitdiff
forgot to commit the matching test changes
authorTony Cook <tony@develop=help.com>
Tue, 30 Jan 2007 09:03:39 +0000 (09:03 +0000)
committerTony Cook <tony@develop=help.com>
Tue, 30 Jan 2007 09:03:39 +0000 (09:03 +0000)
t/t104ppm.t
t/t106tiff.t

index 9813afc6b527efff934c9d179562ea93f3da4b66..a164f86d436d19b83f89ffb5bd389ee1fb666a0c 100644 (file)
@@ -312,7 +312,7 @@ print "# check error handling\n";
 {
   my $im = Imager->new;
   ok($im->read(file => 'testimg/short_bin.ppm', type => 'pnm',
-                allow_partial => 1),
+                allow_incomplete => 1),
      "partial read bin ppm");
   is($im->tags(name => 'i_incomplete'), 1, "partial flag set");
   is($im->tags(name => 'i_lines_read'), 1, "lines_read set");
@@ -321,7 +321,7 @@ print "# check error handling\n";
 {
   my $im = Imager->new;
   ok($im->read(file => 'testimg/short_bin16.ppm', type => 'pnm',
-                allow_partial => 1),
+                allow_incomplete => 1),
      "partial read bin16 ppm");
   is($im->tags(name => 'i_incomplete'), 1, "partial flag set");
   is($im->tags(name => 'i_lines_read'), 1, "lines_read set");
@@ -331,7 +331,7 @@ print "# check error handling\n";
 {
   my $im = Imager->new;
   ok($im->read(file => 'testimg/short_bin.pgm', type => 'pnm',
-                allow_partial => 1),
+                allow_incomplete => 1),
      "partial read bin pgm");
   is($im->tags(name => 'i_incomplete'), 1, "partial flag set");
   is($im->tags(name => 'i_lines_read'), 1, "lines_read set");
@@ -340,7 +340,7 @@ print "# check error handling\n";
 {
   my $im = Imager->new;
   ok($im->read(file => 'testimg/short_bin16.pgm', type => 'pnm',
-                allow_partial => 1),
+                allow_incomplete => 1),
      "partial read bin16 pgm");
   is($im->tags(name => 'i_incomplete'), 1, "partial flag set");
   is($im->tags(name => 'i_lines_read'), 1, "lines_read set");
@@ -349,7 +349,7 @@ print "# check error handling\n";
 {
   my $im = Imager->new;
   ok($im->read(file => 'testimg/short_bin.pbm', type => 'pnm',
-                allow_partial => 1),
+                allow_incomplete => 1),
      "partial read bin pbm");
   is($im->tags(name => 'i_incomplete'), 1, "partial flag set");
   is($im->tags(name => 'i_lines_read'), 1, "lines_read set");
@@ -358,7 +358,7 @@ print "# check error handling\n";
 {
   my $im = Imager->new;
   ok($im->read(file => 'testimg/short_asc.ppm', type => 'pnm',
-                allow_partial => 1),
+                allow_incomplete => 1),
      "partial read asc ppm");
   is($im->tags(name => 'i_incomplete'), 1, "partial flag set");
   is($im->tags(name => 'i_lines_read'), 1, "lines_read set");
@@ -367,7 +367,7 @@ print "# check error handling\n";
 {
   my $im = Imager->new;
   ok($im->read(file => 'testimg/short_asc.pgm', type => 'pnm',
-                allow_partial => 1),
+                allow_incomplete => 1),
      "partial read asc pgm");
   is($im->tags(name => 'i_incomplete'), 1, "partial flag set");
   is($im->tags(name => 'i_lines_read'), 1, "lines_read set");
@@ -376,7 +376,7 @@ print "# check error handling\n";
 {
   my $im = Imager->new;
   ok($im->read(file => 'testimg/short_asc.pbm', type => 'pnm',
-                allow_partial => 1),
+                allow_incomplete => 1),
      "partial read asc pbm");
   is($im->tags(name => 'i_incomplete'), 1, "partial flag set");
   is($im->tags(name => 'i_lines_read'), 1, "lines_read set");
@@ -385,7 +385,7 @@ print "# check error handling\n";
 {
   my $im = Imager->new;
   ok($im->read(file => 'testimg/bad_asc.ppm', type => 'pnm',
-                allow_partial => 1),
+                allow_incomplete => 1),
      "partial read bad asc ppm");
   is($im->tags(name => 'i_incomplete'), 1, "partial flag set");
   is($im->tags(name => 'i_lines_read'), 1, "lines_read set");
@@ -394,7 +394,7 @@ print "# check error handling\n";
 {
   my $im = Imager->new;
   ok($im->read(file => 'testimg/bad_asc.pgm', type => 'pnm',
-                allow_partial => 1),
+                allow_incomplete => 1),
      "partial read bad asc pgm");
   is($im->tags(name => 'i_incomplete'), 1, "partial flag set");
   is($im->tags(name => 'i_lines_read'), 1, "lines_read set");
@@ -403,7 +403,7 @@ print "# check error handling\n";
 {
   my $im = Imager->new;
   ok($im->read(file => 'testimg/bad_asc.pbm', type => 'pnm',
-                allow_partial => 1),
+                allow_incomplete => 1),
      "partial read bad asc pbm");
   is($im->tags(name => 'i_incomplete'), 1, "partial flag set");
   is($im->tags(name => 'i_lines_read'), 1, "lines_read set");
index 6d9d952bfd5ae645399c372bff7e1a11185a38a2..770475a4933f5996cdbda64caff89309323b01ed 100644 (file)
@@ -167,7 +167,7 @@ SKIP:
   ok($diff == 0, "image mismatch");
   my $bad = Imager->new;
   ok($bad->read(file=>'testimg/comp4bad.tif', 
-                allow_partial=>1), "bad image not returned");
+                allow_incomplete=>1), "bad image not returned");
   ok(scalar $bad->tags(name=>'i_incomplete'), "incomplete tag not set");
   ok($img8->write(file=>'testout/t106_pal8.tif'), "writing 8-bit paletted");
   my $cmp8 = Imager->new;