The header now has its own sector. A lot needs to be moved over to it, but it's there.

[dbsrgits/DBM-Deep.git] / t / 26_scalar_ref.t

diff --git a/t/26_scalar_ref.t b/t/26_scalar_ref.t
index 7f6e3e7..30237ec 100644 (file)
--- a/t/26_scalar_ref.t
+++ b/t/26_scalar_ref.t
@@ -32,7 +32,9 @@ my $x = 25;
     } qr/Storage of references of type 'GLOB' is not supported/,
     'Storage of glob refs not supported';
 
+    warn "\n1: " . $db->_engine->_dump_file;
     $db->{scalar} = $x;
+    warn "\n2: " . $db->_engine->_dump_file;
     TODO: {
         todo_skip "Refs to DBM::Deep objects aren't implemented yet", 2;
         lives_ok {
@@ -41,6 +43,8 @@ my $x = 25;
 
         is( ${$db->{selfref}}, $x, "A ref to a DBM::Deep object is ok" );
     }
+
+    warn $db->_engine->_dump_file;
 }
 
 {