Commit | Line | Data |
a8026397 |
1 | use strict; |
2 | |
3 | use Test::More tests => 7; |
4 | |
5 | use_ok( 'DBM::Deep' ); |
6 | |
7 | unlink "t/test.db"; |
8 | { |
9 | my $db = DBM::Deep->new( "t/test.db" ); |
a8026397 |
10 | |
11 | my $x = 25; |
12 | my $y = 30; |
13 | $db->{scalar} = $x; |
14 | $db->{scalarref} = \$y; |
15 | $db->{selfref} = \$x; |
16 | |
17 | is( $db->{scalar}, $x, "Scalar retrieved ok" ); |
18 | TODO: { |
19 | todo_skip "Scalar refs aren't implemented yet", 2; |
20 | is( ${$db->{scalarref}}, 30, "Scalarref retrieved ok" ); |
21 | is( ${$db->{selfref}}, 25, "Scalarref to stored scalar retrieved ok" ); |
22 | } |
23 | } |
24 | |
25 | { |
26 | my $db = DBM::Deep->new( "t/test.db" ); |
a8026397 |
27 | |
28 | my $x = 25; |
29 | my $y = 30; |
30 | is( $db->{scalar}, $x, "Scalar retrieved ok" ); |
31 | TODO: { |
32 | todo_skip "Scalar refs aren't implemented yet", 2; |
33 | is( ${$db->{scalarref}}, 30, "Scalarref retrieved ok" ); |
34 | is( ${$db->{selfref}}, 25, "Scalarref to stored scalar retrieved ok" ); |
35 | } |
36 | } |