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
|
#!/usr/bin/perl -w
use strict;
use Gtk2::TestHelper tests => 21;
# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/t/GtkEntry.t,v 1.17 2007/09/15 14:32:59 kaffeetisch Exp $
my $entry = Gtk2::Entry -> new();
isa_ok($entry, "Gtk2::Entry");
ginterfaces_ok($entry);
$entry -> set_text("Bla");
is($entry -> get_text(), "Bla");
$entry -> set_visibility(1);
is($entry -> get_visibility(), 1);
$entry -> set_invisible_char("!");
is($entry -> get_invisible_char(), "!");
$entry -> set_max_length(8);
is($entry -> get_max_length(), 8);
$entry -> set_activates_default(1);
is($entry -> get_activates_default(), 1);
$entry -> set_has_frame(1);
is($entry -> get_has_frame(), 1);
$entry -> set_width_chars(23);
is($entry -> get_width_chars(), 23);
isa_ok($entry -> get_layout(), "Gtk2::Pango::Layout");
my ($x, $y) = $entry -> get_layout_offsets();
like($x, qr/^-?\d+$/);
like($y, qr/^-?\d+$/);
SKIP: {
skip("[sg]et_completion are new in 2.4", 2)
unless Gtk2->CHECK_VERSION (2, 4, 0);
my $completion = Gtk2::EntryCompletion -> new();
$entry -> set_completion($completion);
is($entry -> get_completion(), $completion);
$entry -> set_completion(undef);
is($entry -> get_completion(), undef);
}
SKIP: {
skip("[sg]et_alignment are new in 2.4", 1)
unless Gtk2->CHECK_VERSION (2, 4, 0);
$entry -> set_alignment(0.23);
is(int($entry -> get_alignment() * 100) / 100, 0.23);
}
SKIP: {
skip("layout_index_to_text_index and text_index_to_layout_index are new in 2.6", 2)
unless Gtk2->CHECK_VERSION (2, 6, 0);
is($entry -> layout_index_to_text_index(1), 1);
is($entry -> text_index_to_layout_index(1), 1);
}
SKIP: {
skip("inner border stuff", 2)
unless Gtk2->CHECK_VERSION (2, 10, 0);
$entry -> set_inner_border(undef);
is($entry -> get_inner_border(), undef);
$entry -> set_inner_border({left=>1, right=>2, top=>3, bottom=>4});
is_deeply($entry -> get_inner_border(), {left=>1, right=>2, top=>3, bottom=>4});
}
SKIP: {
skip("cursor hadjustment stuff", 2)
unless Gtk2->CHECK_VERSION (2, 12, 0);
$entry -> set_cursor_hadjustment(undef);
is($entry -> get_cursor_hadjustment(), undef);
my $adj = Gtk2::Adjustment -> new(0.0, -1.0, 1.0, 0.1, 0.2, 0.5);
$entry -> set_cursor_hadjustment($adj);
is($entry -> get_cursor_hadjustment(), $adj);
}
__END__
Copyright (C) 2003-2006 by the gtk2-perl team (see the file AUTHORS for the
full list). See LICENSE for more information.
|
