tweaks
[gitmo/Class-MOP.git] / t / 106_LazyClass_test.t
index 4b63964..d9a8924 100644 (file)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More no_plan => 29;
+use Test::More tests => 26;
 use File::Spec;
 
 BEGIN { 
@@ -14,11 +14,10 @@ BEGIN {
 {
     package BinaryTree;
     
-    sub meta {
-        LazyClass->initialize($_[0] => (
-            ':attribute_metaclass' => 'LazyClass::Attribute'
-        ));
-    }
+    use metaclass (
+        ':attribute_metaclass' => 'LazyClass::Attribute',
+        ':instance_metaclass'  => 'LazyClass::Instance',        
+    );
 
     BinaryTree->meta->add_attribute('$:node' => (
         accessor => 'node',