[Freetype] GD::Text doesn't seem to like FreeType

[Dan Delaney]

Forgive me if this is outside the scope of this list, but I can't find very many forums that might have the answer to this problem. I'm trying to compile the GD::Text perl module for the GD library with FreeType support in it on a Solaris 7 system. GD successfully compiled with the Freetype library. GD::Text seemed to compile successfully. But when I do gmake test I get several errors in the TrueType tests. Has anyone else had this problem and found a way to fix it? Below is what it returns. (GD at this point, by the way, only supports FreeType 1.)

 

Thanks a lot!

--Dan

 

t/align.............NOK 19FAILED tests 15, 18-19
        Failed 3/19 tests, 84.21% okay
t/text..............ok 18/18FAILED tests 12-13
        Failed 2/18 tests, 88.89% okay
t/wrap..............ok 13/13FAILED test 12
        Failed 1/13 tests, 92.31% okay
Failed Test  Status Wstat Total Fail  Failed  List of failed
-------------------------------------------------------------------------------
t/align.t                    19    3  15.79%  15, 18-19
t/text.t                     18    2  11.11%  12-13
t/wrap.t                     13    1   7.69%  12
Failed 3/3 test scripts, 0.00% okay. 6/50 subtests failed, 88.00% okay.
gmake: *** [test_dynamic] Error 29

 

 

And here is the code of the specified failed tests:

 

t/align.t

---------

TTF fonts

15:

        $t = GD::Text::Align->new($gd,
                valign => 'top',
                halign => 'left',
                text => 'Banana Boat',
                colour => 1,
                font => 'cetus.ttf',
                ptsize => 18,
        );
        @bb = $t->draw(10,40);

18:

        $t->set_align('bottom', 'left');
        @bb = $t->bounding_box(100,100);

19:

        $t->set_align('top', 'center');
        @bb = $t->bounding_box(100,100, 4*PI/3);

 

 

t/text.t

--------

12:

        # Check some size parameters
        @p = $t->get(qw(width height char_up char_down space));

13:

        # Check that constructor with argument works
        $t = GD::Text->new(text => 'FooBar', font =>'cetus');
        @p = $t->get(qw(width height char_up char_down space)) if defined $t;

 

t/wrap.t

---------

12:

        # Get the bounding box
        @bb = $wp->get_bounds(20,10);