Added verification that autobless still allows access through the tie mechanism

diff --git a/t/24_autobless.t b/t/24_autobless.t
index 93fe857..069afd0 100644 (file)
--- a/t/24_autobless.t
+++ b/t/24_autobless.t
@@ -7,7 +7,7 @@ use strict;
     sub foo { 'foo' };
 }
 
-use Test::More tests => 26;
+use Test::More tests => 28;
 
 use_ok( 'DBM::Deep' );
 
@@ -59,6 +59,17 @@ is( $db2->{unblessed}{b}[0], 1 );
 is( $db2->{unblessed}{b}[1], 2 );
 is( $db2->{unblessed}{b}[2], 3 );
 
+$obj2->{c} = 'new';
+is( $db2->{blessed}{c}, 'new' );
+
+undef $db2;
+
+$db2 = DBM::Deep->new(
+    file     => 't/test.db',
+    autobless => 1,
+);
+is( $db2->{blessed}{c}, 'new' );
+
 TODO: {
     todo_skip "_copy_node() doesn't work with autobless", 1;
     my $structure = $db2->export();