Commit | Line | Data |
1cff45d7 |
1 | ## |
2 | # DBM::Deep Test |
3 | ## |
4 | use strict; |
5 | use Test::More tests => 10; |
6 | use Test::Exception; |
7 | use t::common qw( new_fh ); |
8 | |
9 | use_ok( 'DBM::Deep' ); |
10 | |
11 | my ($fh, $filename) = new_fh(); |
12 | my $db = DBM::Deep->new( |
13 | file => $filename, |
14 | ); |
15 | |
16 | $db->{foo} = 5; |
17 | $db->{bar} = $db->{foo}; |
18 | |
19 | is( $db->{foo}, 5, "Foo is still 5" ); |
20 | is( $db->{bar}, 5, "Bar is now 5" ); |
21 | |
22 | $db->{foo} = 6; |
23 | |
24 | is( $db->{foo}, 6, "Foo is now 6" ); |
25 | is( $db->{bar}, 5, "Bar is still 5" ); |
26 | |
27 | $db->{foo} = [ 1 .. 3 ]; |
28 | $db->{bar} = $db->{foo}; |
29 | |
30 | is( $db->{foo}[1], 2, "Foo[1] is still 2" ); |
31 | is( $db->{bar}[1], 2, "Bar[1] is now 2" ); |
32 | |
33 | $db->{foo}[3] = 42; |
34 | |
35 | is( $db->{foo}[3], 42, "Foo[3] is now 42" ); |
36 | is( $db->{bar}[3], 42, "Bar[3] is also 42" ); |
37 | |
38 | delete $db->{foo}; |
39 | is( $db->{bar}[3], 42, "After delete Foo, Bar[3] is still 42" ); |