r14214@rob-kinyons-computer (orig r8081): rkinyon | 2006-11-17 20:51:21 -0500

[dbsrgits/DBM-Deep.git] / t / 31_references.t

diff --git a/t/31_references.t b/t/31_references.t
index da588b2..ebeb811 100644 (file)
--- a/t/31_references.t
+++ b/t/31_references.t
@@ -55,6 +55,9 @@ is( $db->{array}[2]{b}, 'floober' );
 
 my %hash2 = ( abc => [ 1 .. 3 ] );
 $array[3] = \%hash2;
-$hash2{ def } = \%hash;
+SKIP: {
+    skip "Internal references are not supported right now", 1;
+    $hash2{ def } = \%hash;
 
-is( $array[3]{def}{foo}, 2 );
+    is( $array[3]{def}{foo}, 2 );
+}