[dbsrgits/DBM-Deep.git] / t / 39_singletons.t

use strict;
use Test::More tests => 2;

use_ok( 'DBM::Deep' );

unlink 't/test.db';
my $db = DBM::Deep->new(
    file => "t/test.db",
    locking => 1,
    autoflush => 1,
);

$db->{foo} = { a => 'b' };
my $x = $db->{foo};
my $y = $db->{foo};
is( $x, $y, "The references are the same" );
Commit	Line	Data
74de6d5b	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