Regenerate test files
[gitmo/Mouse.git] / t / 050_metaclasses / 004_moose_for_meta.t
similarity index 86%
rename from t/050_metaclasses/failing/004_moose_for_meta.t
rename to t/050_metaclasses/004_moose_for_meta.t
index 21d3a9a..aa37b04 100644 (file)
@@ -1,13 +1,15 @@
 #!/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 tests => 16;
+use Test::More;
 use Test::Exception;
 
 
-
 =pod
 
 This test demonstrates the ability to extend
@@ -33,7 +35,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, 'Class::MOP::Class');
+isa_ok($anon, 'Mouse::Meta::Class');
 
 is_deeply(
     [ $anon->superclasses ],
@@ -59,7 +61,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, 'Class::MOP::Attribute');
+    isa_ok($attr, 'Mouse::Meta::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)');
@@ -70,10 +72,11 @@ 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, 'Class::MOP::Attribute');
+    isa_ok($attr, 'Mouse::Meta::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;