1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
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";
|
