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
|
#!/usr/bin/env perl
BEGIN { require './t/inc/setup.pl' };
use strict;
use warnings;
use Scalar::Util qw/weaken/;
plan tests => 41;
my $obj = Regress::TestObj->constructor;
isa_ok ($obj, 'Regress::TestObj');
isa_ok ($obj, 'Glib::Object');
$obj = Regress::TestObj->new ($obj);
isa_ok ($obj, 'Regress::TestObj');
isa_ok ($obj, 'Glib::Object');
weaken $obj;
is ($obj, undef);
$obj = Regress::TestObj->new_from_file ($0);
isa_ok ($obj, 'Regress::TestObj');
isa_ok ($obj, 'Glib::Object');
$obj->set_bare (Regress::TestObj->constructor);
is ($obj->instance_method, -1);
is (Regress::TestObj::static_method (23), 23);
$obj->forced_method;
my ($y, $z, $q) = $obj->torture_signature_0 (23, 'perl', 42);
is ($y, 23);
is ($z, 46);
is ($q, 46);
is (eval { $obj->torture_signature_1 (23, 'perl', 41); 1 }, undef);
like ($@, qr/odd/);
# skipping return values
SKIP: {
skip 'new stuff', 3
unless check_gi_version (0, 12, 0);
my ($b, $d, $sum) = $obj->skip_return_val (23, 42, 57, 13, 17);
is ($b, 24);
is ($d, 58);
is ($sum, 13+170);
}
# skipping parameters
SKIP: {
skip 'new stuff', 10
unless check_gi_version (0, 12, 0);
my ($success, $b, $d, $sum);
($success, $b, $d, $sum) = $obj->skip_param (23, 57, 13, 17);
ok ($success);
is ($b, 24);
is ($d, 58);
is ($sum, 13+170);
($success, $d, $sum) = $obj->skip_out_param (23, 42, 57, 13, 17);
ok ($success);
is ($d, 58);
is ($sum, 13+170);
($success, $b, $sum) = $obj->skip_inout_param (23, 42, 13, 17);
ok ($success);
is ($b, 24);
is ($sum, 13+170);
}
is ($obj->do_matrix ('perl'), 42);
Regress::func_obj_null_in ($obj);
Regress::func_obj_null_in (undef);
is (Regress::TestObj::null_out (), undef);
# inheritance
my $sub = Regress::TestSubObj->new;
isa_ok ($sub, 'Regress::TestSubObj');
isa_ok ($sub, 'Regress::TestObj');
isa_ok ($sub, 'Glib::Object');
$sub->unset_bare;
is ($sub->instance_method, 0);
# unusual prefix
my $wi = Regress::TestWi8021x->new;
isa_ok ($wi, 'Regress::TestWi8021x');
isa_ok ($wi, 'Glib::Object');
$wi->set_testbool (1);
ok ($wi->get_testbool);
is (Regress::TestWi8021x::static_method (23), 46);
# floating objects
SKIP: {
my $fl = Regress::TestFloating->new;
isa_ok ($fl, 'Regress::TestFloating');
isa_ok ($fl, 'Glib::InitiallyUnowned');
isa_ok ($fl, 'Glib::Object');
weaken $fl;
is ($fl, undef);
}
|
