|
my $dir = $ENV {PWD} =~ m
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 ) ;
|