use strict;
use warnings FATAL => 'all';
-use Test::More no_plan => 1;
+use Test::More tests => 2;
use Test::Deep;
use t::common qw( new_fh );
{
my ($fh, $filename) = t::common::new_fh();
- my $db = DBM::Deep->new(
- file => $filename,
- fh => $fh,
- );
+ my $db = DBM::Deep->new( $filename );
# Add a self-referencing connection to test export
my %struct = (