t/39_singletons.t

   1 use strict;
   2 use Test::More tests => 2;
   3
   4 use_ok( 'DBM::Deep' );
   5
   6 unlink 't/test.db';
   7 my $db = DBM::Deep->new(
   8     file => "t/test.db",
   9     locking => 1,
  10     autoflush => 1,
  11 );
  12
  13 $db->{foo} = { a => 'b' };
  14 my $x = $db->{foo};
  15 my $y = $db->{foo};
  16 is( $x, $y, "The references are the same" );
  17
  18