From: Tony Cook <tony@develop-help.com>
Date: Sat, 25 Feb 2012 03:40:47 +0000 (+1100)
Subject: compare unpacked data to avoid unintelligble cpan testers output
X-Git-Tag: v0.89~5
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/5ee6074605d4403b7b013ea825efbf1d7a665d4f

compare unpacked data to avoid unintelligble cpan testers output
---

diff --git a/t/t01introvert.t b/t/t01introvert.t
index d63eb5db..7f6d5112 100644
--- a/t/t01introvert.t
+++ b/t/t01introvert.t
@@ -125,8 +125,8 @@ is(Imager::i_img_type($im_pal), 0, "pal img shouldn't be paletted now");
   is_color3($colors[1], 0, 255, 0, "still green");
   is_color3($colors[2], 0, 0, 255, "still blue");
   is_color3($colors[3], 0, 0, 0, "still black");
-  is(Imager::i_gsamp($im_pal2, 0, 100, 0, [ 0, 1, 2 ]),
-     "\0\xFF\0\0\0\0"."\xFF\0\0" x 48 . "\0\0\xFF" x 50,
+  is(unpack("C", Imager::i_gsamp($im_pal2, 0, 100, 0, [ 0, 1, 2 ])),
+     unpack("C", "\0\xFF\0\0\0\0"."\xFF\0\0" x 48 . "\0\0\xFF" x 50),
      "colors are still correct");
 }