5 use Test::More tests => 15;
7 use t::common qw( new_fh );
11 my ($fh, $filename) = new_fh();
12 my $db = DBM::Deep->new(
19 seek $db->_get_self->_engine->storage->{fh}, 0, 0;
21 my $db2 = DBM::Deep->new(
29 $db->{bar} = $db->{foo};
31 is( $db->{foo}, 5, "Foo is still 5" );
32 is( $db->{bar}, 5, "Bar is now 5" );
36 is( $db->{foo}, 6, "Foo is now 6" );
37 is( $db->{bar}, 5, "Bar is still 5" );
39 $db->{foo} = [ 1 .. 3 ];
40 $db->{bar} = $db->{foo};
42 is( $db->{foo}[1], 2, "Foo[1] is still 2" );
43 is( $db->{bar}[1], 2, "Bar[1] is now 2" );
47 is( $db->{foo}[3], 42, "Foo[3] is now 42" );
48 is( $db->{bar}[3], 42, "Bar[3] is also 42" );
51 is( $db->{bar}[3], 42, "After delete Foo, Bar[3] is still 42" );
53 $db->{foo} = $db->{bar};
59 is( $db2->{bar}, undef, "It's deleted in the transaction" );
60 is( $db->{bar}[3], 42, "... but not in the main" );
64 # Why hasn't this failed!? Is it because stuff isn't getting deleted as expected?
65 # I need a test that walks the sectors
66 is( $db->{bar}[3], 42, "After delete Foo, Bar[3] is still 42" );
67 is( $db2->{bar}[3], 42, "After delete Foo, Bar[3] is still 42" );
71 is( $db->{bar}[3], 42, "After delete Foo, Bar[3] is still 42" );
84 ok( !exists $db->{bar}, "After commit, bar is gone" );