41 lines
1.2 KiB
Diff
41 lines
1.2 KiB
Diff
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";
|