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
  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" );
  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 }