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
|
#!/usr/bin/perl -w
use strict;
use Gtk2::TestHelper tests => 8;
# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/PangoScript.t,v 1.2 2004/10/30 17:13:23 kaffeetisch Exp $
SKIP: {
skip("PangoScript is new in 1.4", 8)
unless (Gtk2::Pango -> CHECK_VERSION(1, 4, 0));
is(Gtk2::Pango::Script -> for_unichar("a"), "latin");
my $lang = Gtk2::Pango::Script -> get_sample_language("latin");
isa_ok($lang, "Gtk2::Pango::Language");
is($lang -> includes_script("latin"), 1);
my $iter = Gtk2::Pango::ScriptIter -> new("urgs");
isa_ok($iter, "Gtk2::Pango::ScriptIter");
my ($start, $end, $script) = $iter -> get_range();
is($start, "urgs");
is($end, "");
is($script, "latin");
ok(!$iter -> next());
}
__END__
Copyright (C) 2004 by the gtk2-perl team (see the file AUTHORS for the
full list). See LICENSE for more information.
|
