diff options
Diffstat (limited to 'perl/perl-GD/no_ttf_test.diff')
| -rw-r--r-- | perl/perl-GD/no_ttf_test.diff | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/perl/perl-GD/no_ttf_test.diff b/perl/perl-GD/no_ttf_test.diff new file mode 100644 index 0000000000..409d15e789 --- /dev/null +++ b/perl/perl-GD/no_ttf_test.diff @@ -0,0 +1,40 @@ +diff -Naur GD-2.56/t/GD.t GD-2.56.patched/t/GD.t +--- GD-2.56/t/GD.t 2014-10-27 21:34:54.000000000 -0400 ++++ GD-2.56.patched/t/GD.t 2016-08-21 18:24:24.469496848 -0400 +@@ -7,8 +7,8 @@ + use FindBin qw($Bin); + use lib "$Bin/../blib/lib","$Bin/../blib/arch","$Bin/../lib"; + use constant FONT=>"$Bin/test_data/Generic.ttf"; +-use constant IMAGE_TESTS => 7; +-use Test::More tests => 11; ++use constant IMAGE_TESTS => 6; ++use Test::More tests => 10; + use IO::Dir; + + use_ok('GD',':DEFAULT',':cmp'); +@@ -219,25 +219,6 @@ + return $im; + } + +-sub test7 { +- my $im = GD::Image->new(400,250); +- if (!$im) { printf("Test7: no image");}; +- my($white,$black,$red,$blue,$yellow) = +- ( +- $im->colorAllocate(255, 255, 255), +- $im->colorAllocate(0, 0, 0), +- $im->colorAllocate(255, 0, 0), +- $im->colorAllocate(0,0,255), +- $im->colorAllocate(255,250,205) +- ); +- +- # Some TTFs +- $im->stringFT($black,FONT,12.0,0.0,20,20,"Hello world!") || warn $@; +- $im->stringFT($red,FONT,14.0,0.0,20,80,"Hello world!") || warn $@; +- $im->stringFT($blue,FONT,30.0,-0.5,60,100,"Goodbye cruel world!") || warn $@; +- return $im; +-} +- + sub run_image_regression_tests { + my $suffix = $ENV{GDIMAGETYPE} || 'gd2'; + print STDERR "# Testing using $suffix support.\n"; |