# -*- cperl -*-
use Test::More tests => 11;
use strict;
use PHP::Include;

include_php_vars( "t/deepstructure.php" );

is ($x => 42, 'load complete');           #1
ok(%structure, 'Hash defined');           #2

ok(exists($structure{names}) => 'Key "names" exists');  #3
ok(exists($structure{ages})  => 'Key "ages" exists');   #4

is(ref($structure{names}) => 'HASH',  'Value for "names" is hash reference');    #5
is(ref($structure{ages})  => 'ARRAY', 'Value for "ages" is an array reference'); #6

is(ref($structure{names}{a}) => 'ARRAY', 'Value for {names}{a} is array ref');  #7
is(ref($structure{names}{b}) => 'ARRAY', 'Value for {names}{b} is array ref');  #8

is_deeply($structure{names}{a} => [qw.alberto antonio.], '{names}{a}'); #9
is_deeply($structure{names}{b} => [qw.burro brain.],     '{names}{b}'); #10

is_deeply($structure{ages} => [10, 20, 30, 40], '{ages}'); #11