3 use Test::More tests => 7;
9 my $db = DBM::Deep->new( "t/test.db" );
11 die "ERROR: " . $db->error();
17 $db->{scalarref} = \$y;
20 is( $db->{scalar}, $x, "Scalar retrieved ok" );
22 todo_skip "Scalar refs aren't implemented yet", 2;
23 is( ${$db->{scalarref}}, 30, "Scalarref retrieved ok" );
24 is( ${$db->{selfref}}, 25, "Scalarref to stored scalar retrieved ok" );
29 my $db = DBM::Deep->new( "t/test.db" );
31 die "ERROR: " . $db->error();
36 is( $db->{scalar}, $x, "Scalar retrieved ok" );
38 todo_skip "Scalar refs aren't implemented yet", 2;
39 is( ${$db->{scalarref}}, 30, "Scalarref retrieved ok" );
40 is( ${$db->{selfref}}, 25, "Scalarref to stored scalar retrieved ok" );