5 # This is here because Tie::File is STOOPID.
13 filename => $filename,
21 open( my $fh, $self->{filename} );
31 open( my $fh, $self->{filename} );
42 my ($db_orig, $audit) = @_;
43 my $export = $db_orig->export;
45 my ($fh2, $file2) = new_fh();
46 my $db = DBM::Deep->new({
54 my $export2 = $db->export;
56 cmp_deeply( $export2, $export, "And recovery works" );
59 use Test::More tests => 12;
61 use t::common qw( new_fh );
63 use_ok( 'DBM::Deep' );
65 my ($audit_fh, $audit_file) = new_fh();
68 tie @audit, 'My::Tie::File', $audit_file;
70 my ($fh, $filename) = new_fh();
71 my $db = DBM::Deep->new({
73 audit_file => $audit_file,
76 isa_ok( $db, 'DBM::Deep' );
79 $audit[0], qr/^\# Database created on/,
80 "Audit file header written to",
84 testit( $db, \@audit );
87 testit( $db, \@audit );
89 $db->{bar} = { a => 1 };
90 testit( $db, \@audit );
92 $db->{baz} = [ 1 .. 2 ];
93 testit( $db, \@audit );
98 testit( $db, \@audit );
103 $db = DBM::Deep->new({
105 audit_file => $audit_file,
109 testit( $db, \@audit );
112 testit( $db, \@audit );
115 testit( $db, \@audit );
117 $db->{blessed} = bless { a => 5, b => 3 }, 'Floober';
118 testit( $db, \@audit );