use Test::More qw(no_plan);
use File::Slurp qw(slurp);
my $dir = $ENV{PWD} =~ m#\/t$# ? './data' : 't/data';
my $b0 = {
cars => { reno => [qw/ white /],
bmw => [qw/ white /],
fiat => [qw/ blue green /],
ford => [qw/ blue green /],
mini => [qw/ /],
}
};
my $b1 = { cars =>{}, person =>{} , vin=>{} };
my $res ;
$res = read_ini <$dir/comments2>;
is_deeply( $res, $b1 ) ;
$res = read_ini <$dir/comments1>;
is_deeply( $res, $b0, 'comments') ;