summaryrefslogtreecommitdiff
path: root/perl/perl-GD/no_ttf_test.diff
blob: 409d15e7895254d3362568b73e768f069c143ae2 (plain)
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";