The refcount functions have been refactored a bit

[dbsrgits/DBM-Deep.git] / t / 100_dump_file.t

diff --git a/t/100_dump_file.t b/t/100_dump_file.t
index d7abaae..a99e73f 100644 (file)
--- a/t/100_dump_file.t
+++ b/t/100_dump_file.t
@@ -14,7 +14,7 @@ my $db = DBM::Deep->new(
 );
 
 $db->{foo} = [];
-#$db->{bar} = $db->{foo};
+$db->{bar} = $db->{foo};
 
 warn -s $filename, $/;
 warn $db->_dump_file, $/;
@@ -22,7 +22,7 @@ warn $db->_dump_file, $/;
 $db->begin_work;
 
     delete $db->{foo};
-#    delete $db->{bar};
+    delete $db->{bar};
 
     warn -s $filename, $/;
     warn $db->_dump_file, $/;
@@ -33,3 +33,8 @@ $db->commit;
 
 warn -s $filename, $/;
 warn $db->_dump_file, $/;
+
+$db->{foo} = 1;
+
+warn -s $filename, $/;
+warn $db->_dump_file, $/;