#!/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");
}