3 use Test::More tests => 5;
5 use Scalar::Util qw( reftype );
13 my $obj = tie %hash, 'DBM::Deep', 't/test.db';
14 isa_ok( $obj, 'DBM::Deep' );
15 is( reftype( $obj ), 'HASH', "... and its underlying representation is an HASH" );
22 my $obj = tie @array, 'DBM::Deep', 't/test.db';
23 isa_ok( $obj, 'DBM::Deep' );
25 local $TODO = "_init() returns a blessed hashref";
26 is( reftype( $obj ), 'ARRAY', "... and its underlying representation is an ARRAY" );