From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Wed, 22 Feb 2006 20:17:24 +0000 (+0000)
Subject: Added verification that autobless still allows access through the tie mechanism
X-Git-Tag: 0-97~23
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e7ffaba00aa1f40b3f363aea9a7613c1f60ddb72;p=dbsrgits%2FDBM-Deep.git

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
--- 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();