X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02_hash.t;h=c8a0cab55b9ea8377e21d7b9ac22373afc615912;hb=cf4a1344f9abac96f07d9645244d8dbfad2a873e;hp=a317fa39e919dc0e6bcbefa330812c52b8086732;hpb=641aa32d2d78eb7084801c7b9aa91f962c8af75f;p=dbsrgits%2FDBM-Deep.git

diff --git a/t/02_hash.t b/t/02_hash.t
index a317fa3..c8a0cab 100644
--- a/t/02_hash.t
+++ b/t/02_hash.t
@@ -4,6 +4,7 @@ use warnings FATAL => 'all';
 use Test::More;
 use Test::Exception;
 use t::common qw( new_dbm );
+use Scalar::Util qw( reftype );
 
 use_ok( 'DBM::Deep' );
 
@@ -139,6 +140,7 @@ while ( my $dbm_maker = $dbm_factory->() ) {
     # Test autovivification
     $db->{unknown}{bar} = 1;
     ok( $db->{unknown}, 'Autovivified hash exists' );
+    is( reftype($db->{unknown}), 'HASH', "... and it's a HASH" );
     cmp_ok( $db->{unknown}{bar}, '==', 1, 'And the value stored is there' );
 
     # Test failures