use Test::More qw(no_plan);
use Config::Format::Ini;
use File::Slurp qw(slurp);

my $dir  = $ENV{PWD} =~ m#\/t$#  ? './data' : 't/data';

my $b0 = { person    => { name   => [ 'Johnny Walker'], 
                          title    => [ 'Sr.'], },
 }; 
my $b1 = { person    => { name   => [ 'Johnny Walker', 'John', 'JW'], 
                          title    => [ 'Sr.'], },
}; 


my $res;

$res =  read_ini <$dir/contin1>;
is_deeply( $res, $b0 )  ;
$res =  read_ini <$dir/contin2>;
is_deeply( $res, $b1 )  ;
$res =  read_ini <$dir/contin3>;
is_deeply( $res, $b1 )  ;