X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F050_metaclasses%2Ffailing%2F004_moose_for_meta.t;fp=t%2F050_metaclasses%2F004_moose_for_meta.t;h=21d3a9ac2832e354a0d9f531b991a27a5a0c1d90;hb=9864f0e4ba233c5f30ad6dc7c484ced43d883d27;hp=aa37b0459a003abf4cb8cccfa73f0ad76f8da7ef;hpb=8845df4dd6432e3164d078ade741409061adae9f;p=gitmo%2FMouse.git

diff --git a/t/050_metaclasses/004_moose_for_meta.t b/t/050_metaclasses/failing/004_moose_for_meta.t
similarity index 86%
rename from t/050_metaclasses/004_moose_for_meta.t
rename to t/050_metaclasses/failing/004_moose_for_meta.t
index aa37b04..21d3a9a 100644
--- a/t/050_metaclasses/004_moose_for_meta.t
+++ b/t/050_metaclasses/failing/004_moose_for_meta.t
@@ -1,15 +1,13 @@
 #!/usr/bin/perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
 
 use strict;
 use warnings;
 
-use Test::More;
+use Test::More tests => 16;
 use Test::Exception;
 
 
+
 =pod
 
 This test demonstrates the ability to extend
@@ -35,7 +33,7 @@ Mouse meta-level classes using Mouse itself.
 my $anon = My::Meta::Class->create_anon_class();
 isa_ok($anon, 'My::Meta::Class');
 isa_ok($anon, 'Mouse::Meta::Class');
-isa_ok($anon, 'Mouse::Meta::Class');
+isa_ok($anon, 'Class::MOP::Class');
 
 is_deeply(
     [ $anon->superclasses ],
@@ -61,7 +59,7 @@ is_deeply(
     my $attr = My::Meta::Attribute::DefaultReadOnly->new('foo');
     isa_ok($attr, 'My::Meta::Attribute::DefaultReadOnly');
     isa_ok($attr, 'Mouse::Meta::Attribute');
-    isa_ok($attr, 'Mouse::Meta::Attribute');
+    isa_ok($attr, 'Class::MOP::Attribute');
 
     ok($attr->has_reader, '... the attribute has a reader (as expected)');
     ok(!$attr->has_writer, '... the attribute does not have a writer (as expected)');
@@ -72,11 +70,10 @@ is_deeply(
     my $attr = My::Meta::Attribute::DefaultReadOnly->new('foo', (is => 'rw'));
     isa_ok($attr, 'My::Meta::Attribute::DefaultReadOnly');
     isa_ok($attr, 'Mouse::Meta::Attribute');
-    isa_ok($attr, 'Mouse::Meta::Attribute');
+    isa_ok($attr, 'Class::MOP::Attribute');
 
     ok(!$attr->has_reader, '... the attribute does not have a reader (as expected)');
     ok(!$attr->has_writer, '... the attribute does not have a writer (as expected)');
     ok($attr->has_accessor, '... the attribute does have an accessor (as expected)');
 }
 
-done_testing;