t/26_scalar_ref.t

   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" );
  10     if ($db->error()) {
  11         die "ERROR: " . $db->error();
  12     }
  13
  14     my $x = 25;
  15     my $y = 30;
  16     $db->{scalar} = $x;
  17     $db->{scalarref} = \$y;
  18     $db->{selfref} = \$x;
  19
  20     is( $db->{scalar}, $x, "Scalar retrieved ok" );
  21     TODO: {
  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" );
  25     }
  26 }
  27
  28 {
  29     my $db = DBM::Deep->new( "t/test.db" );
  30     if ($db->error()) {
  31         die "ERROR: " . $db->error();
  32     }
  33
  34     my $x = 25;
  35     my $y = 30;
  36     is( $db->{scalar}, $x, "Scalar retrieved ok" );
  37     TODO: {
  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" );
  41     }
  42 }