convert ok(... eq ..., ... ) to is(..., ..., ...)

[imager.git] / t / t07iolayer.t

diff --git a/t/t07iolayer.t b/t/t07iolayer.t
index a86ddb6970d21954d53af9211202caae3d527f5a..47a98f9fee22a4e23dd0103ce03355f3699a2b4b 100644 (file)
--- a/t/t07iolayer.t
+++ b/t/t07iolayer.t
@@ -109,7 +109,7 @@ $work = '';
 ok(Imager::i_writeppm_wiol($im, $IO8), "write to cb");
 # I originally compared this to $data, but that doesn't include the
 # Imager header
-ok($work eq $data2, "write image match");
+is($work, $data2, "write image match");
 ok($did_close, "did close");
 
 # with a short buffer, no closer
@@ -118,7 +118,7 @@ ok($IO9, "making short writecb object");
 $pos = 0;
 $work = '';
 ok(Imager::i_writeppm_wiol($im, $IO9), "write to short cb");
-ok($work eq $data2, "short write image match");
+is($work, $data2, "short write image match");
 
 {
   my $buf_data = "Test data";