Merged with master and am ready to merge back

[dbsrgits/DBM-Deep.git] / t / 97_dump_file.t

diff --git a/t/97_dump_file.t b/t/97_dump_file.t
index 931cb07..67a6627 100644 (file)
--- a/t/97_dump_file.t
+++ b/t/97_dump_file.t
@@ -1,16 +1,17 @@
 use strict;
-use Test::More tests => 3;
+use warnings FATAL => 'all';
+
+use Test::More;
 use Test::Deep;
 use t::common qw( new_fh );
 
 use_ok( 'DBM::Deep' );
 
 my ($fh, $filename) = new_fh();
-my $db = DBM::Deep->new(
-       file => $filename,
-);
+my $db = DBM::Deep->new( $filename );
 
 is( $db->_dump_file, <<"__END_DUMP__", "Dump of initial file correct" );
+NumTxns: 1
 Chains(B):
 Chains(D):
 Chains(I):
@@ -19,7 +20,8 @@ __END_DUMP__
 
 $db->{foo} = 'bar';
 
-is( $db->_dump_file, <<"__END_DUMP__", "Dump of initial file correct" );
+is( $db->_dump_file, <<"__END_DUMP__", "Dump of file after single assignment" );
+NumTxns: 1
 Chains(B):
 Chains(D):
 Chains(I):
@@ -30,3 +32,4 @@ Chains(I):
 00000545: D  0064 foo
 __END_DUMP__
 
+done_testing;