3 use Test::More tests => 5;
4 use t::common qw( new_fh );
8 use Scalar::Util qw( reftype );
11 my ($fh, $filename) = new_fh();
14 my $obj = tie %hash, 'DBM::Deep', $filename;
15 isa_ok( $obj, 'DBM::Deep' );
16 is( reftype( $obj ), 'HASH', "... and its underlying representation is an HASH" );
20 my ($fh, $filename) = new_fh();
23 my $obj = tie @array, 'DBM::Deep', $filename;
24 isa_ok( $obj, 'DBM::Deep' );
25 is( reftype( $obj ), 'HASH', "... and its underlying representation is an HASH" );