sub STORESIZE {}
}
-use Test::More tests => 20;
+use Test::More tests => 24;
use_ok( 'DBM::Deep' );
is_deeply( $export2, $export, "And recovery works" );
}
+{
+ $db = DBM::Deep->new({
+ file => 't/test.db',
+ audit_file => $audit_file,
+ });
+
+ $db->{blessed} = bless { a => 5, b => 3 }, 'Floober';
+ like( $audit[15], qr{\$db->{blessed} = bless {}, 'Floober';},
+ "Assignment of a blessed reference works" );
+ like( $audit[16], qr{\$db->{blessed}{a} = '5';}, "... child 1" );
+ like( $audit[17], qr{\$db->{blessed}{b} = '3';}, "... child 2" );
+ $export = $db->export;
+}
+
+{
+ unlink 't/test2.db';
+ my $db = DBM::Deep->new({
+ file => 't/test2.db',
+ });
+
+ for ( @audit ) {
+ eval "$_";
+ }
+
+ my $export2 = $db->export;
+
+ is_deeply( $export2, $export, "And recovery works" );
+}