2 use Test::More tests => 1;
4 use t::common qw( new_fh );
6 diag "Testing DBM::Deep against Perl $] located at $^X";
10 my ($fh, $filename) = new_fh();
11 my $db = DBM::Deep->new(
17 $db->{bar} = $db->{foo};
19 warn -s $filename, $/;
20 warn $db->_dump_file, $/;
27 warn -s $filename, $/;
28 warn $db->_dump_file, $/;
30 # XXX Committing seems to break the dumper
34 warn -s $filename, $/;
35 warn $db->_dump_file, $/;
39 warn -s $filename, $/;
40 warn $db->_dump_file, $/;