From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 2 Apr 2010 23:34:09 +0000 (-0500)
Subject: more tests
X-Git-Tag: 1.02~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b9f7897ba0b113beef9f2144f39389fcb9d5d46f;p=gitmo%2FClass-MOP.git

more tests
---

diff --git a/t/041_metaclass_incompatibility.t b/t/041_metaclass_incompatibility.t
index 990d55a..f801385 100644
--- a/t/041_metaclass_incompatibility.t
+++ b/t/041_metaclass_incompatibility.t
@@ -130,6 +130,20 @@ ok(!Foo::NoMeta->can('meta'), "non-cmop superclass doesn't get methods installed
 isa_ok(Class::MOP::class_of('Foo::NoMeta2'), 'Class::MOP::Class');
 isa_ok(Foo::NoMeta2::Sub->meta, 'Foo::Meta::Class');
 
+Foo::Meta::Class->create('Foo::WithMeta');
+{
+    package Foo::WithMeta::Sub;
+    use base 'Foo::WithMeta';
+}
+Class::MOP::Class->create(
+    'Foo::WithMeta::Sub::Sub',
+    superclasses => ['Foo::WithMeta::Sub']
+);
+
+isa_ok(Class::MOP::class_of('Foo::WithMeta'), 'Foo::Meta::Class');
+isa_ok(Class::MOP::class_of('Foo::WithMeta::Sub'), 'Foo::Meta::Class');
+isa_ok(Class::MOP::class_of('Foo::WithMeta::Sub::Sub'), 'Foo::Meta::Class');
+
 # unsafe fixing...
 
 {