2 use Test::More tests => 7;
4 use t::common qw( new_fh );
8 my ($fh, $filename) = new_fh();
9 my $db1 = DBM::Deep->new(
15 my $x_outer = { a => 'b' };
16 my $x_inner = { a => 'c' };;
19 is( $db1->{x}{a}, 'b', "We're looking at the right value from outer" );
24 is( $db1->{x}{a}, 'c', "We're looking at the right value from inner" );
25 is( $x_outer->{a}, 'c', "We're looking at the right value from outer" );
29 is( $db1->{x}{a}, 'c', "Commit means x_inner is still correct" );
30 is( $x_outer->{a}, 'c', "outer made the move" );
31 is( $x_inner->{a}, 'c', "inner is still good" );