Bug #783 for GDTextUtil: Fails Make Test

Mark Fowler wrote: Show quoted text
I took the liberty of rewriting the tests to use Test::More. The new tests are attached; Here are the results I get on my system: bash-2.05a$ make test TEST_VERBOSE=1 PERL_DL_NONLAZY=1 /usr/bin/perl -Iblib/arch -Iblib/lib -I/usr/lib/perl/5.6.1 -I/usr/share/perl/5.6.1 -e 'use Test::Harness qw(&runtests $verbose); $verbose=1; runtests @ARGV;' t/*.t t/align....1..20 ok 1 - use GD::Text::Align; ok 2 - GD returns an object ok 3 - Colors allocation ok 4 - GD::Text::Align returns object ok 5 - string returns right dim ok 6 - top left ok 7 - center right ok 8 - bottom center ok 9 - builtin font ok 10 - angles test not ok 11 - angles test2 # Failed test (t/align.t at line 60) ok 12 - bounding boxes ok 13 - bounding boxes 2 ok 14 - constructor test ok 15 - ttf font cetus not ok 16 - drawing # Failed test (t/align.t at line 99) # bb = 12 59 154 59 154 41 12 41 # Failed test (t/align.t at line 112) # bb = 111 53 64 133 75 139 121 59 # Failed test (t/align.t at line 116) # bb = 151 53 104 133 115 139 161 59 # Looks like you failed 4 tests of 20. ok 17 - ttf cetus 12pt ok 18 - bottom left align not ok 19 - top center align not ok 20 - last drawing dubious Test returned status 4 (wstat 1024, 0x400) DIED. FAILED tests 11, 16, 19-20 Failed 4/20 tests, 80.00% okay t/text.....1..19 ok 1 - use GD::Text; ok 2 - default font is builtin ok 3 - default size params ok 4 - default size params 2 ok 5 - gdGiantFont builtin ok 6 - width method ok 7 - text did not change ok 8 - giant fonts size ok 9 - constructor with args ok 10 - multiple fonts ok 11 - font back is ttf not ok 12 - size param # Failed test (t/text.t at line 62) # got: '173 25 19 6 7' # expected: '173 30 24 6 7' not ok 13 - constructor arg # Failed test (t/text.t at line 68) # p = 45 14 11 3 4 ok 14 - multiple fonts ok 15 - multiple fonts ok 16 - font path no ttf ok 17 - font path multi ok 18 - font path abs ok 19 - named # Looks like you failed 2 tests of 19. dubious Test returned status 2 (wstat 512, 0x200) DIED. FAILED tests 12-13 Failed 2/19 tests, 89.47% okay t/wrap.....1..13 ok 1 - use GD::Text::Wrap; ok 2 - GD::Image object ok 3 - color allocation ok 4 - GD::Text::Wrap object ok 5 - bounding box ok 6 - same when drawing ok 7 - same when left align ok 8 - same when justified ok 9 - same when right align ok 10 - same with preserve_nl ok 11 - font set not ok 12 - bounding box # Failed test (t/wrap.t at line 64) # bb = 20 10 150 152 ok 13 - drawing # Looks like you failed 1 tests of 13. dubious Test returned status 1 (wstat 256, 0x100) DIED. FAILED test 12 Hope this is more helpful. Mark. -- s'' Mark Fowler London.pm Bath.pm http://www.twoshortplanks.com/ mark@twoshortplanks.com ';use Term'Cap;$t=Tgetent Term'Cap{};print$t->Tputs(cl);for$w(split/ +/ ){for(0..30){$|=print$t->Tgoto(cm,$_,$y)." $w";select$k,$k,$k,.03}$y+=2}

I'll have a look on my system here to see how close the numbers are nowadays to the ones in the tests. I think I put those numbers in with a 2.0.1 freetype version, and they may have changed some stuff between then and now. But again, it is very hard for me to work out a decent test for this. You can see how wildly those numbers obviously fluctuate between systems, and trying to take all that into account quickly makes them meaningless.