#!/usr/bin/env perl
BEGIN { require './t/inc/setup.pl' };
use strict;
use warnings;
plan tests => 6;
SKIP: {
skip 'new stuff', 2
unless check_gi_version (0, 12, 0);
my $expected_struct = {long_ => 6, int8 => 7};
my $struct = GI::SimpleStruct::returnv ();
is_deeply ($struct, $expected_struct);
GI::SimpleStruct::inv ($struct);
GI::SimpleStruct::method ($struct);
undef $struct;
is_deeply (GI::SimpleStruct::returnv (), $expected_struct);
}
SKIP: {
skip 'new stuff', 2
unless check_gi_version (0, 12, 0);
my $expected_struct = {long_ => 42};
my $struct = GI::PointerStruct::returnv ();
is_deeply ($struct, $expected_struct);
GI::PointerStruct::inv ($struct);
undef $struct;
is_deeply (GI::PointerStruct::returnv (), $expected_struct);
}
{
my $expected_struct = {
some_int => 23, some_int8 => 42, some_double => 11, some_enum => 'value1'};
is_deeply (Regress::TestStructA::clone ($expected_struct), $expected_struct);
}
{
my $expected_struct = {
some_int8 => 32,
nested_a => {
some_int => 23, some_int8 => 42,
some_double => 11, some_enum => 'value1'}};
is_deeply (Regress::TestStructB::clone ($expected_struct), $expected_struct);
}