Added _dump_file and improved how arrays/hashes clean up after themselves

[dbsrgits/DBM-Deep.git] / t / 01_basic.t

diff --git a/t/01_basic.t b/t/01_basic.t
index 7025ea9..8c9c430 100644 (file)
--- a/t/01_basic.t
+++ b/t/01_basic.t
@@ -25,3 +25,16 @@ if ( $@ ) {
 
 isa_ok( $db, 'DBM::Deep' );
 ok(1, "We can successfully open a file!" );
+__END__
+$db->{foo} = [ 1 ];
+$db->{bar} = $db->{foo};
+
+warn -s $filename, $/;
+warn $db->_dump_file;
+
+warn $/;
+
+delete $db->{foo};
+$db->{bar} = 'x';
+warn -s $filename, $/;
+warn $db->_dump_file;