use Test::More qw(no_plan);
use File::Slurp qw(slurp);
my $dir = $ENV{PWD} =~ m#\/t$# ? './data' : 't/data';
my $b0 = { person => { first => [ 'johnny'],
last => [ 'walker'], },
song => { elvis => [ 'Cruel' ], }
};
my $b2 = { person => { name => [ 'The King' ],
lyrics => [ 'Cruel' ],
},
cars => { reno => [ 'white' ], },
jukebox => { last => [ 'The King' ], },
};
my $b1 = { person => { age => [ 40 ], },
song => { young => [ 'stars' ], },
};
my $res;
$res = read_ini <$dir/r4>;
is_deeply( $res, $b1 ) ;
$res = read_ini <$dir/r0>;
is_deeply( $res, $b0 ) ;
$res = read_ini <$dir/r1>;
is_deeply( $res, $b0 ) ;
$res = read_ini <$dir/r2>;
is_deeply( $res, $b0 ) ;
$res = read_ini <$dir/resync3>;
is_deeply( $res, $b1 ) ;
$res = read_ini <$dir/resync2>;
is_deeply( $res, $b2 ) ;