2 use Test::More tests => 11;
4 use t::common qw( new_fh );
9 my ($fh, $filename) = new_fh();
10 my $db = DBM::Deep->new(
17 $db->{foo} = { a => 'b' };
21 is( $x, $y, "The references are the same" );
28 is( $db->{foo}, undef );
30 # These shenanigans work to get another hashref
31 # into the same data location as $db->{foo} was.
42 skip "What do we do with external references and txns?", 2;
43 my ($fh, $filename) = new_fh();
44 my $db = DBM::Deep->new(
51 $db->{foo} = { a => 'b' };
56 $db->{foo} = { c => 'd' };
59 # XXX What should happen here with $x and $y?