c3 tests and details

[gitmo/Class-MOP.git] / t / 106_LazyClass_test.t

diff --git a/t/106_LazyClass_test.t b/t/106_LazyClass_test.t
index 877c845..866cbe1 100644 (file)
--- a/t/106_LazyClass_test.t
+++ b/t/106_LazyClass_test.t
@@ -8,19 +8,20 @@ use File::Spec;
 
 BEGIN { 
     use_ok('Class::MOP');    
-    require_ok(File::Spec->catdir('examples', 'LazyClass.pod'));
+    require_ok(File::Spec->catfile('examples', 'LazyClass.pod'));
 }
 
 {
     package BinaryTree;
     
-    use metaclass 'Class::MOP::Class' => (
-        ':attribute_metaclass' => 'LazyClass::Attribute'
+    use metaclass (
+        'attribute_metaclass' => 'LazyClass::Attribute',
+        'instance_metaclass'  => 'LazyClass::Instance',        
     );
 
     BinaryTree->meta->add_attribute('$:node' => (
         accessor => 'node',
-        init_arg => ':node'
+        init_arg => 'node'
     ));
     
     BinaryTree->meta->add_attribute('$:left' => (
@@ -39,7 +40,7 @@ BEGIN {
     }
 }
 
-my $root = BinaryTree->new(':node' => 0);
+my $root = BinaryTree->new('node' => 0);
 isa_ok($root, 'BinaryTree');
 
 ok(exists($root->{'$:node'}), '... node attribute has been initialized yet');