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
|
#!/usr/bin/env perl
BEGIN { require './t/inc/setup.pl' };
use strict;
use warnings;
use utf8;
if (check_gi_version (1, 32, 0)) {
plan tests => 6;
} else {
plan skip_all => 'Need gobject-introspection 1.32.0';
}
my $v1 = Glib::Variant->new ("i", 27);
my $v2 = Glib::Variant->new ("s", "Hello");
check_variants (GI::array_gvariant_none_in ([$v1, $v2]));
check_variants (GI::array_gvariant_container_in ([$v1, $v2]));
check_variants (GI::array_gvariant_full_in ([$v1, $v2]));
sub check_variants {
my ($v1, $v2) = @{$_[0]};
is ($v1->get ("i"), 27);
is ($v2->get ("s"), "Hello");
}
|
