From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Sat, 5 Sep 2009 22:56:06 +0000 (-0500)
Subject: skip meta tests for 100
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ef6f54bd8233546c01f7fe92929d7863085d91b5;p=gitmo%2FMoose.git

skip meta tests for 100
---

diff --git a/t/100_bugs/007_reader_precedence_bug.t b/t/100_bugs/007_reader_precedence_bug.t
index 1aa0abd..766b703 100644
--- a/t/100_bugs/007_reader_precedence_bug.t
+++ b/t/100_bugs/007_reader_precedence_bug.t
@@ -3,8 +3,12 @@
 use strict;
 use warnings;
 
+use lib 't/lib';
+
 use Test::More tests => 3;
 
+use MetaTest;
+
 {
     package Foo;
     use Moose;
@@ -13,11 +17,13 @@ use Test::More tests => 3;
 
 {
     my $foo = Foo->new(foo => 10);
-    my $reader = $foo->meta->get_attribute('foo')->reader;
-    is($reader, 'get_foo',
-       'reader => "get_foo" has correct presedence');
+    skip_meta {
+       my $reader = $foo->meta->get_attribute('foo')->reader;
+       is($reader, 'get_foo',
+          'reader => "get_foo" has correct presedence');
+       is($foo->$reader, 10, "Reader works as expected");
+    } 2;
     can_ok($foo, 'get_foo');
-    is($foo->$reader, 10, "Reader works as expected");
 }
 
 
diff --git a/t/100_bugs/018_immutable_metaclass_does_role.t b/t/100_bugs/018_immutable_metaclass_does_role.t
index eccb1d9..ec5a667 100644
--- a/t/100_bugs/018_immutable_metaclass_does_role.t
+++ b/t/100_bugs/018_immutable_metaclass_does_role.t
@@ -3,10 +3,14 @@
 use strict;
 use warnings;
 
-use Test::More tests => 36;
+use lib 't/lib';
+
+use Test::More;
 use Test::Exception;
 
+use MetaTest;
 
+skip_all_meta 36;
 
 BEGIN {
     package MyRole;
diff --git a/t/100_bugs/023_DEMOLISH_fails_without_metaclass.t b/t/100_bugs/023_DEMOLISH_fails_without_metaclass.t
index 7e9b9b9..f4130e0 100644
--- a/t/100_bugs/023_DEMOLISH_fails_without_metaclass.t
+++ b/t/100_bugs/023_DEMOLISH_fails_without_metaclass.t
@@ -1,9 +1,15 @@
 use strict;
 use warnings;
 
-use Test::More tests => 2;
+use lib 't/lib';
+
+use Test::More;
 use Test::Exception;
 
+use MetaTest;
+
+skip_all_meta 2;
+
 {
     package MyClass;
     use Moose;
diff --git a/t/100_bugs/024_anon_method_metaclass.t b/t/100_bugs/024_anon_method_metaclass.t
index b2c5674..c0da106 100644
--- a/t/100_bugs/024_anon_method_metaclass.t
+++ b/t/100_bugs/024_anon_method_metaclass.t
@@ -1,6 +1,13 @@
 use strict;
 use warnings;
-use Test::More tests => 10;
+
+use lib 't/lib';
+
+use Test::More;
+
+use MetaTest;
+
+skip_all_meta 10;
 
 {
     package Ball;
diff --git a/t/100_bugs/026_create_anon_recursion.t b/t/100_bugs/026_create_anon_recursion.t
index f981247..745dba3 100644
--- a/t/100_bugs/026_create_anon_recursion.t
+++ b/t/100_bugs/026_create_anon_recursion.t
@@ -1,11 +1,17 @@
 use strict;
 use warnings;
 
-use Test::More tests => 1;
+use lib 't/lib';
+
+use Test::More;
 use Test::Exception;
 
 use Moose::Meta::Class;
 
+use MetaTest;
+
+skip_all_meta 1;
+
 $SIG{__WARN__} = sub { die if shift =~ /recurs/ };
 
 TODO: