actually, why not make the meta method renameable

[gitmo/Class-MOP.git] / t / 090_meta_method.t

diff --git a/t/090_meta_method.t b/t/090_meta_method.t
index 6567f49..774b8b3 100644 (file)
--- a/t/090_meta_method.t
+++ b/t/090_meta_method.t
@@ -26,8 +26,25 @@ use Class::MOP;
 
 {
     {
+        package Blarg;
+        use metaclass meta_name => 'blarg';
+    }
+    ok(!Blarg->can('meta'));
+    can_ok('Blarg', 'blarg');
+    isa_ok(Blarg->blarg->find_method_by_name('blarg'),
+           'Class::MOP::Method::Meta');
+
+    my $meta = Class::MOP::Class->create('Blorg', meta_name => 'blorg');
+    ok(!Blorg->can('meta'));
+    can_ok('Blorg', 'blorg');
+    isa_ok(Blorg->blorg->find_method_by_name('blorg'),
+           'Class::MOP::Method::Meta');
+}
+
+{
+    {
         package Foo;
-        use metaclass no_meta => 1;
+        use metaclass meta_name => undef;
     }
 
     my $meta = Class::MOP::class_of('Foo');
@@ -39,7 +56,7 @@ use Class::MOP;
 }
 
 {
-    my $meta = Class::MOP::Class->create('Bar', no_meta => 1);
+    my $meta = Class::MOP::Class->create('Bar', meta_name => undef);
     ok(!$meta->has_method('meta'), "no meta method was installed");
     $meta->add_method(meta => sub { die 'META' });
     lives_ok { $meta->find_method_by_name('meta') } "can do meta-level stuff";