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

[imager.git] / t / t38ft2font.t

diff --git a/t/t38ft2font.t b/t/t38ft2font.t
index d69ea6b70bb84c606b9daefac7a5ba367ee7d118..b71e8921713d4370e797a4a355381d94f6595326 100644 (file)
--- a/t/t38ft2font.t
+++ b/t/t38ft2font.t
@@ -184,7 +184,7 @@ SKIP:
   ok(@got == 2, "has_chars returned 2 items");
   ok(!$got[0], "have no chr(1)");
   ok($got[1], "have 'H'");
   ok(@got == 2, "has_chars returned 2 items");
   ok(!$got[0], "have no chr(1)");
   ok($got[1], "have 'H'");

-  ok($oof->has_chars(string=>"H\x01") eq "\x01\x00",
+  is($oof->has_chars(string=>"H\x01"), "\x01\x00",

      "scalar has_chars()");
 
   print "# OO bounding boxes\n";
      "scalar has_chars()");
 
   print "# OO bounding boxes\n";


@@ -256,9 +256,9 @@ SKIP:
     if (Imager::Font::FreeType2::i_ft2_can_face_name()) {
       my $facename = Imager::Font::FreeType2::i_ft2_face_name($exfont->{id});
       print "# face name '$facename'\n";
     if (Imager::Font::FreeType2::i_ft2_can_face_name()) {
       my $facename = Imager::Font::FreeType2::i_ft2_face_name($exfont->{id});
       print "# face name '$facename'\n";

-      ok($facename eq 'ExistenceTest', "test face name");
+      is($facename, 'ExistenceTest', "test face name");

       $facename = $exfont->face_name;
       $facename = $exfont->face_name;

-      ok($facename eq 'ExistenceTest', "test face name OO");
+      is($facename, 'ExistenceTest', "test face name OO");

     }
     else {
       # make sure we get the error we expect
     }
     else {
       # make sure we get the error we expect