Revert autogenerated tests. Tests should not changed radically.

[gitmo/Mouse.git] / t / 050_metaclasses / failing / 004_moose_for_meta.t

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 (file)
--- 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;