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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
# Copyright (C) 2016-2019 Ruby-GNOME2 Project Team
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2.1 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
class TestContext < Test::Unit::TestCase
include PangoTestUtils
def setup
font_map = Pango::CairoFontMap.default
@context = font_map.create_context
end
def test_set_font_map
font_map = Pango::CairoFontMap.default
@context.font_map = font_map
assert_equal(font_map, @context.font_map)
end
def test_set_font_description
description = Pango::FontDescription.new("monospace")
description.size = 10 * Pango::SCALE
@context.font_description = description
assert_equal("monospace 10", @context.font_description.to_s)
end
def test_set_language
@context.language = Pango::Language.new("fr")
assert_equal("fr", @context.language.to_s)
end
def test_set_base_dir
@context.base_dir = :ltr
assert_equal(Pango::Direction::LTR, @context.base_dir)
end
def test_set_gravity
@context.gravity_hint = :strong
assert_equal(Pango::GravityHint::STRONG, @context.gravity_hint)
end
def test_set_matrix
matrix = Pango::Matrix.new(0.1, 0.2, 0.3, 0.4, 0.5, 0.6)
@context.matrix = matrix
assert_equal(0.1, @context.matrix.xx)
assert_equal(0.2, @context.matrix.xy)
assert_equal(0.3, @context.matrix.yx)
assert_equal(0.4, @context.matrix.yy)
assert_equal(0.5, @context.matrix.x0)
assert_equal(0.6, @context.matrix.y0)
end
def test_load_font
description = Pango::FontDescription.new("monospace")
description.size = 10 * Pango::SCALE
font = @context.load_font(description)
assert_equal(10,
(font.describe.size.to_f / Pango::SCALE).round)
end
def test_load_fontset
description = Pango::FontDescription.new("monospace")
description.size = 10 * Pango::SCALE
language = Pango::Language.new("fr")
fontset = @context.load_fontset(description, language)
a_unicode = GLib::UTF8.get_char("a")
font = fontset.get_font(a_unicode)
assert_equal(10,
(font.describe.size.to_f / Pango::SCALE).round)
end
def test_get_metrics
description = Pango::FontDescription.new("monospace")
description.size = 10 * Pango::SCALE
language = Pango::Language.new("fr")
metrics = @context.get_metrics(description, language)
assert do
metrics.ascent > metrics.descent
end
end
def test_families
family_names = @context.families.collect(&:name)
assert do
family_names.include?("Monospace")
end
end
def test_font_options
options = Cairo::FontOptions.new
options.antialias = Cairo::Antialias::BEST
@context.font_options = options
assert_equal(Cairo::Antialias::BEST,
@context.font_options.antialias)
end
def test_resolution
dpi = 72
@context.resolution = dpi
assert_equal(dpi, @context.resolution)
end
sub_test_case("#set_shape_renderer") do
def test_gc
GC.start
n_contexts = ObjectSpace.each_object(Pango::Context) {}
n_procs = ObjectSpace.each_object(Proc) {}
n = 1000
n.times do
context = Pango::CairoFontMap.default.create_context
context.set_shape_renderer do
end
end
GC.start
n_contexts_after = ObjectSpace.each_object(Pango::Context) {}
n_procs_after = ObjectSpace.each_object(Proc) {}
assert do
(n_contexts_after < n_contexts + n) and (n_procs_after < n_procs + n)
end
end
end
end
|
