Commit | Line | Data |
6f213981 |
1 | ## |
2 | # DBM::Deep Test |
3 | ## |
4 | use strict; |
fb451ba6 |
5 | use Test::More tests => 4; |
6f213981 |
6 | use Test::Deep; |
2120a181 |
7 | use Clone qw( clone ); |
6f213981 |
8 | use t::common qw( new_fh ); |
9 | |
10 | use_ok( 'DBM::Deep' ); |
11 | |
12 | my ($fh, $filename) = new_fh(); |
13 | my $db = DBM::Deep->new( $filename ); |
14 | |
15 | my $x = { |
16 | a => 1, |
17 | b => 2, |
18 | c => [ 1 .. 3 ], |
19 | }; |
20 | |
21 | my $x_save = clone( $x ); |
22 | |
23 | $db->{foo} = $x; |
fb451ba6 |
24 | |
6f213981 |
25 | ok( tied(%$x), "\$x is tied" ); |
26 | delete $db->{foo}; |
27 | |
fb451ba6 |
28 | TODO: { |
29 | local $TODO = "Delete isn't working right"; |
2120a181 |
30 | ok( !tied(%$x), "\$x is NOT tied" ); |
31 | cmp_deeply( $x, $x_save, "When it's deleted, it's untied" ); |
fb451ba6 |
32 | } |