From: rkinyon Date: Mon, 4 Dec 2006 15:37:20 +0000 (+0000) Subject: Activated more tests marked as skip-all until internal references are supported X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c8a41eb0f330f77226cacca46f2aec8f9ce80427;p=dbsrgits%2FDBM-Deep.git 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 --- 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 --- 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 --- 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 );