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
|
#! /usr/bin/env lua
-- vim:sw=4:sts=4
require "pango"
-- test pango_tab_array functions, especially pango_tab_array_get_tabs,
-- which has a special override function.
ta = pango.tab_array_new_with_positions(2, true,
pango.TAB_LEFT, 10,
pango.TAB_LEFT, 30)
assert(ta:get_size() == 2)
gnome.set_debug_flags "trace"
a, b = ta:get_tab(0, 0, 0)
assert(a == pango.TAB_LEFT)
assert(b == 10)
ta:set_tab(0, pango.TAB_LEFT, 15)
-- ta:set_tab(1, pango.TAB_LEFT, 30)
a, b = ta:get_tab(0, 0, 0)
assert(a == pango.TAB_LEFT)
assert(b == 15)
ar1 = {}
ar2 = {}
ta:get_tabs(ar1, ar2)
assert(#ar1 == 2)
assert(#ar2 == 2)
assert(ar1[1] == pango.TAB_LEFT)
assert(ar1[2] == pango.TAB_LEFT)
assert(ar2[1] == 15)
assert(ar2[2] == 30)
|
