fixed all the attribute name to be more Perl6ish and then removed the : in the init_a...

[gitmo/Class-MOP.git] / t / 044_instance_metaclass_incompatibility_dynamic.t

diff --git a/t/044_instance_metaclass_incompatibility_dynamic.t b/t/044_instance_metaclass_incompatibility_dynamic.t
index e52b24a..9587930 100644 (file)
--- a/t/044_instance_metaclass_incompatibility_dynamic.t
+++ b/t/044_instance_metaclass_incompatibility_dynamic.t
@@ -24,21 +24,21 @@ BEGIN {
 $@ = undef;
 eval {
     package Foo;
-    metaclass->import(':instance_metaclass' => 'Foo::Meta::Instance');
+    metaclass->import('instance_metaclass' => 'Foo::Meta::Instance');
 };
 ok(!$@, '... Foo.meta => Foo::Meta is compatible') || diag $@;
 
 $@ = undef;
 eval {
     package Bar;
-    metaclass->import(':instance_metaclass' => 'Bar::Meta::Instance');
+    metaclass->import('instance_metaclass' => 'Bar::Meta::Instance');
 };
 ok(!$@, '... Bar.meta => Bar::Meta is compatible') || diag $@;
 
 $@ = undef;
 eval {
     package Foo::Foo;
-    metaclass->import(':instance_metaclass' => 'Bar::Meta::Instance');
+    metaclass->import('instance_metaclass' => 'Bar::Meta::Instance');
     Foo::Foo->meta->superclasses('Foo');    
 };
 ok($@, '... Foo::Foo.meta => Bar::Meta is not compatible') || diag $@;
@@ -46,7 +46,7 @@ ok($@, '... Foo::Foo.meta => Bar::Meta is not compatible') || diag $@;
 $@ = undef;
 eval {
     package Bar::Bar;
-    metaclass->import(':instance_metaclass' => 'Foo::Meta::Instance');  
+    metaclass->import('instance_metaclass' => 'Foo::Meta::Instance');  
     Bar::Bar->meta->superclasses('Bar');
 };
 ok($@, '... Bar::Bar.meta => Foo::Meta is not compatible') || diag $@;
@@ -54,7 +54,7 @@ ok($@, '... Bar::Bar.meta => Foo::Meta is not compatible') || diag $@;
 $@ = undef;
 eval {
     package FooBar;
-    metaclass->import(':instance_metaclass' => 'FooBar::Meta::Instance');   
+    metaclass->import('instance_metaclass' => 'FooBar::Meta::Instance');   
     FooBar->meta->superclasses('Foo');    
 };
 ok(!$@, '... FooBar.meta => FooBar::Meta is compatible') || diag $@;
@@ -62,7 +62,7 @@ ok(!$@, '... FooBar.meta => FooBar::Meta is compatible') || diag $@;
 $@ = undef;
 eval {
     package FooBar2;
-    metaclass->import(':instance_metaclass' => 'FooBar::Meta::Instance');   
+    metaclass->import('instance_metaclass' => 'FooBar::Meta::Instance');   
     FooBar2->meta->superclasses('Bar');    
 };
 ok(!$@, '... FooBar2.meta => FooBar::Meta is compatible') || diag $@;