Standardized test incantations

[dbsrgits/DBM-Deep.git] / t / 19_crossref.t

diff --git a/t/19_crossref.t b/t/19_crossref.t
index ff99319..67a3589 100644 (file)
--- a/t/19_crossref.t
+++ b/t/19_crossref.t
@@ -9,7 +9,7 @@ use t::common qw( new_fh );
 use_ok( 'DBM::Deep' );
 
 my ($fh2, $filename2) = new_fh();
-my $db2 = DBM::Deep->new( file => $filename2, fh => $fh2, );
+my $db2 = DBM::Deep->new( $filename2 );
 
 SKIP: {
     skip "Apparently, we cannot detect a tied scalar?", 1;
@@ -35,7 +35,7 @@ SKIP: {
 
 {
     my ($fh, $filename) = new_fh();
-    my $db = DBM::Deep->new( file => $filename, fh => $fh, );
+    my $db = DBM::Deep->new( $filename );
 
     ##
     # Create structure in $db