1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/env perl
BEGIN { require './t/inc/setup.pl' };
use strict;
use warnings;
plan tests => 3;
{
my $wrapper = Glib::Object::Introspection::GValueWrapper->new ('Glib::Int', 23);
is (Regress::test_int_value_arg ($wrapper), 23);
}
is (Regress::test_value_return (23), 23);
SKIP: {
skip 'more GValue tests', 1
unless check_gi_version (1, 38, 0);
my $wrapper = Glib::Object::Introspection::GValueWrapper->new ('Glib::Int', 42);
GI::gvalue_in_with_modification ($wrapper);
is ($wrapper->get_value, 24);
}
|
