Activated more tests marked as skip-all until internal references are supported

diff --git a/t/16_circular.todo b/t/16_circular.t
similarity index 96%
rename from t/16_circular.todo
rename to t/16_circular.t
index 501435d..61ec238 100644 (file)
--- a/t/16_circular.todo
+++ b/t/16_circular.t
@@ -2,7 +2,8 @@
 # DBM::Deep Test
 ##
 use strict;
-use Test::More tests => 32;
+use Test::More skip_all => "Internal references are not supported right now";
+#use Test::More tests => 32;
 use t::common qw( new_fh );
 
 use_ok( 'DBM::Deep' );

diff --git a/t/22_internal_copy.todo b/t/22_internal_copy.t
similarity index 94%
rename from t/22_internal_copy.todo
rename to t/22_internal_copy.t
index 9de69f4..edd2531 100644 (file)
--- a/t/22_internal_copy.todo
+++ b/t/22_internal_copy.t
@@ -2,7 +2,8 @@
 # DBM::Deep Test
 ##
 use strict;
-use Test::More tests => 13;
+use Test::More skip_all => "Internal references are not supported right now";
+#use Test::More tests => 13;
 use t::common qw( new_fh );
 
 use_ok( 'DBM::Deep' );

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