]> git.imager.perl.org - imager.git/blobdiff - t/t38ft2font.t
- the FT 1.x was comparing versus an uninitialized variable when
[imager.git] / t / t38ft2font.t
index 9f4947930a8ba0f884e5306b6c5e2f0d7dfc9f87..b659be0a7cc800d4553e108ecf5a64756a5de777 100644 (file)
@@ -237,7 +237,7 @@ if (okx($exfont, "loaded existence font")) {
   # the test font is known to have a shorter advance width for that char
   my @bbox = $exfont->bounding_box(string=>"/", size=>100);
   okx(@bbox == 7, "should be 7 entries");
-  okx($bbox[6] != $bbox[4], "different advance width");
+  okx($bbox[6] != $bbox[2], "different advance width");
   my $bbox = $exfont->bounding_box(string=>"/", size=>100);
   okx($bbox->pos_width != $bbox->advance_width, "OO check");