fix the brokeness introduced in 5ee60746

[imager.git] / t / t01introvert.t

diff --git a/t/t01introvert.t b/t/t01introvert.t
index d63eb5dbe13073f794e513c6442538ffeddecc44..02f5c638f974a6eb79b133e8252a2930dacf1551 100644 (file)
--- a/t/t01introvert.t
+++ b/t/t01introvert.t
@@ -125,9 +125,9 @@ 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,
-     "colors are still correct");
+  is_deeply([ 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");
 }
 
 # test the OO interfaces