PNG re-work: avoid the comment in qw() warning
authorTony Cook <tony@develop-help.com>
Sun, 15 Apr 2012 04:46:49 +0000 (14:46 +1000)
committerTony Cook <tony@develop-help.com>
Sun, 29 Apr 2012 03:40:56 +0000 (13:40 +1000)
PNG/t/10png.t

index 3638d5c..8ef0141 100644 (file)
@@ -427,7 +427,7 @@ SKIP:
 {
   my $pim = Imager->new(xsize => 5, ysize => 2, channels => 3, type => "paletted");
   ok($pim, "make a 3 channel paletted image");
-  ok($pim->addcolors(colors => [ qw(#000 #FFF #F00 #0F0 #00f) ]),
+  ok($pim->addcolors(colors => [ qw(000000 FFFFFF FF0000 00FF00 0000FF) ]),
      "add some colors");
   is($pim->setscanline(y => 0, type => "index",
                       pixels => [ 0, 1, 2, 4, 3 ]), 5, "set some pixels");
@@ -449,7 +449,7 @@ SKIP:
   my $pim = Imager->new(xsize => 8, ysize => 2, channels => 4, type => "paletted");
   ok($pim, "make a 4 channel paletted image");
   ok($pim->addcolors
-     (colors => [ NC(255, 255, 0, 128), qw(#000 #FFF #F00 #0F0 #00f),
+     (colors => [ NC(255, 255, 0, 128), qw(000000 FFFFFF FF0000 00FF00 0000FF),
                  NC(0, 0, 0, 0), NC(255, 0, 128, 64) ]),
      "add some colors");
   is($pim->setscanline(y => 0, type => "index",