A raft of minor improvements
[dbsrgits/DBM-Deep.git] / t / 31_references.t
index ebeb811..0184795 100644 (file)
@@ -1,7 +1,5 @@
-##
-# DBM::Deep Test
-##
 use strict;
+
 use Test::More tests => 16;
 use Test::Exception;
 use t::common qw( new_fh );
@@ -55,9 +53,6 @@ is( $db->{array}[2]{b}, 'floober' );
 
 my %hash2 = ( abc => [ 1 .. 3 ] );
 $array[3] = \%hash2;
-SKIP: {
-    skip "Internal references are not supported right now", 1;
-    $hash2{ def } = \%hash;
 
-    is( $array[3]{def}{foo}, 2 );
-}
+$hash2{ def } = \%hash;
+is( $array[3]{def}{foo}, 2 );