X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F020_attributes%2F007_attribute_custom_metaclass.t;h=702cd6203f088a460ceaad1b7fc72ddb6ecfa4b0;hb=1eb43e0a41287a5b7de774527e379f9ed57e7e21;hp=00256f7ec4229d42d011267a4593c17301566bda;hpb=fde8e43f95fe996fbc2a778aa259feeb04552171;p=gitmo%2FMouse.git

diff --git a/t/020_attributes/007_attribute_custom_metaclass.t b/t/020_attributes/007_attribute_custom_metaclass.t
index 00256f7..702cd62 100644
--- a/t/020_attributes/007_attribute_custom_metaclass.t
+++ b/t/020_attributes/007_attribute_custom_metaclass.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;
 
 
+
 {
     package Foo::Meta::Attribute;
     use Mouse;
@@ -45,13 +43,15 @@ use Test::Exception;
     isa_ok($foo_attr_type_constraint, 'Mouse::Meta::TypeConstraint');
 
     is($foo_attr_type_constraint->name, 'Foo', '... got the right type constraint name');
-    is($foo_attr_type_constraint->parent->name, 'Object', '... got the right type constraint parent name');
+
+    is($foo_attr_type_constraint->parent, 'Object', '... got the right type constraint parent name');
 }
 {
     package Bar::Meta::Attribute;
     use Mouse;
 
-    extends 'Mouse::Meta::Attribute';
+    #extends 'Class::MOP::Attribute';
+    extends 'Foo::Meta::Attribute';
 
     package Bar;
     use Mouse;
@@ -92,4 +92,4 @@ use Test::Exception;
     isa_ok($bar_attr, 'Mouse::Meta::Attribute');
 }
 
-done_testing;
+