t/39_singletons.t

   1 use strict;
   2 use Test::More tests => 5;
   3 use Test::Deep;
   4 use t::common qw( new_fh );
   5
   6 use_ok( 'DBM::Deep' );
   7
   8 my ($fh, $filename) = new_fh();
   9 my $db = DBM::Deep->new(
  10     file => $filename,
  11     locking => 1,
  12     autoflush => 1,
  13 );
  14
  15 $db->{foo} = { a => 'b' };
  16 my $x = $db->{foo};
  17 my $y = $db->{foo};
  18
  19 print "$x -> $y\n";
  20
  21 TODO: {
  22     local $TODO = "Singletons are unimplmeneted yet";
  23     is( $x, $y, "The references are the same" );
  24
  25     delete $db->{foo};
  26     is( $x, undef );
  27     is( $y, undef );
  28 }
  29 is( $db->{foo}, undef );