2 use warnings FATAL => 'all';
5 use t::common qw( new_fh );
9 use Scalar::Util qw( reftype );
12 my ($fh, $filename) = new_fh();
15 my $obj = tie %hash, 'DBM::Deep', $filename;
16 isa_ok( $obj, 'DBM::Deep' );
17 is( reftype( $obj ), 'HASH', "... and its underlying representation is an HASH" );
21 my ($fh, $filename) = new_fh();
24 my $obj = tie @array, 'DBM::Deep', $filename;
25 isa_ok( $obj, 'DBM::Deep' );
26 is( reftype( $obj ), 'HASH', "... and its underlying representation is an HASH" );