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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
#!/usr/bin/perl
#
# Copyright (c) 2004-2005 by the cairo perl team (see the file README)
#
# Licensed under the LGPL, see LICENSE file for more information.
#
# $Header: /cvs/cairo/cairo-perl/t/CairoPattern.t,v 1.11 2007-10-18 16:32:49 tsch Exp $
#
use strict;
use warnings;
use Test::More tests => 25;
unless (eval 'use Test::Number::Delta; 1;') {
my $reason = 'Test::Number::Delta not available';
*delta_ok = sub { SKIP: { skip $reason, 1 } };
}
use constant IMG_WIDTH => 256;
use constant IMG_HEIGHT => 256;
use Cairo;
my $pat = Cairo::SolidPattern->create_rgb(1.0, 0.0, 0.0);
isa_ok ($pat, 'Cairo::SolidPattern');
isa_ok ($pat, 'Cairo::Pattern');
$pat = Cairo::SolidPattern->create_rgba(1.0, 0.0, 0.0, 1.0);
isa_ok ($pat, 'Cairo::SolidPattern');
isa_ok ($pat, 'Cairo::Pattern');
my $surf = Cairo::ImageSurface->create ('rgb24', IMG_WIDTH, IMG_HEIGHT);
$pat = Cairo::SurfacePattern->create ($surf);
isa_ok ($pat, 'Cairo::SurfacePattern');
isa_ok ($pat, 'Cairo::Pattern');
$pat->set_extend ('none');
is ($pat->get_extend, 'none', '$pat->set|get_extend');
$pat->set_filter ('fast');
is ($pat->get_filter, 'fast', '$pat->set|get_filter');
$pat = Cairo::LinearGradient->create (1, 2, 3, 4);
isa_ok ($pat, 'Cairo::LinearGradient');
isa_ok ($pat, 'Cairo::Gradient');
isa_ok ($pat, 'Cairo::Pattern');
$pat = Cairo::RadialGradient->create (1, 2, 3, 4, 5, 6);
isa_ok ($pat, 'Cairo::RadialGradient');
isa_ok ($pat, 'Cairo::Gradient');
isa_ok ($pat, 'Cairo::Pattern');
$pat->add_color_stop_rgb (1, 0.5, 0.6, 0.7);
$pat->add_color_stop_rgba (1, 0.5, 0.6, 0.7, 0.8);
my $matrix = Cairo::Matrix->init_identity;
$pat->set_matrix ($matrix);
isa_ok ($pat->get_matrix, 'Cairo::Matrix');
is ($pat->status, 'success');
SKIP: {
skip 'new stuff', 1
unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 2, 0);
my $pat = Cairo::RadialGradient->create (1, 2, 3, 4, 5, 6);
is ($pat->get_type, 'radial');
}
SKIP: {
skip 'new stuff', 8,
unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 4, 0);
my $pat = Cairo::SolidPattern->create_rgb(1.0, 0.0, 0.0);
my ($r, $g, $b, $a) = $pat->get_rgba;
delta_ok ($r, 1.0);
delta_ok ($g, 0.0);
delta_ok ($b, 0.0);
delta_ok ($a, 1.0);
my $surf = Cairo::ImageSurface->create ('rgb24', IMG_WIDTH, IMG_HEIGHT);
$pat = Cairo::SurfacePattern->create ($surf);
isa_ok ($pat->get_surface, 'Cairo::ImageSurface');
$pat = Cairo::LinearGradient->create (1, 2, 3, 4);
$pat->add_color_stop_rgba (0.25, 1, 0, 1, 0);
$pat->add_color_stop_rgba (0.75, 0, 1, 0, 1);
delta_ok ([$pat->get_color_stops], [[0.25, 1, 0, 1, 0], [0.75, 0, 1, 0, 1]]);
$pat = Cairo::LinearGradient->create (1.5, 2.5, 3.5, 4.5);
delta_ok ([$pat->get_points], [1.5, 2.5, 3.5, 4.5]);
$pat = Cairo::RadialGradient->create (1.5, 2.5, 3.5, 4.5, 5.5, 6.5);
delta_ok ([$pat->get_circles], [1.5, 2.5, 3.5, 4.5, 5.5, 6.5]);
}
|
