From a445d49c997e8561714ba17165b3d6bc78249a24 Mon Sep 17 00:00:00 2001 From: Tony Cook Date: Tue, 20 Mar 2012 20:56:13 +1100 Subject: [PATCH] fix the brokeness introduced in 5ee60746 as modified it only compared the first byte, change it to expand into an array ref and use is_deeply() is compare. --- t/t01introvert.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/t/t01introvert.t b/t/t01introvert.t index 7f6d5112..02f5c638 100644 --- 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(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"); + 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 -- 2.39.5