X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F106_LazyClass_test.t;h=c17b4907bc733754d59e3dfe4b1ee0446141a7da;hb=1aeb4c53a4098bfefdb2c98f81f9b7240d7abbd0;hp=866cbe1dcbe3c80003cde3209d565d2d2a13c4bf;hpb=5caf45ce90def730e4c3743050c7354a78ed9800;p=gitmo%2FClass-MOP.git diff --git a/t/106_LazyClass_test.t b/t/106_LazyClass_test.t index 866cbe1..c17b490 100644 --- a/t/106_LazyClass_test.t +++ b/t/106_LazyClass_test.t @@ -19,17 +19,17 @@ BEGIN { 'instance_metaclass' => 'LazyClass::Instance', ); - BinaryTree->meta->add_attribute('$:node' => ( + BinaryTree->meta->add_attribute('node' => ( accessor => 'node', init_arg => 'node' )); - BinaryTree->meta->add_attribute('$:left' => ( + BinaryTree->meta->add_attribute('left' => ( reader => 'left', default => sub { BinaryTree->new() } )); - BinaryTree->meta->add_attribute('$:right' => ( + BinaryTree->meta->add_attribute('right' => ( reader => 'right', default => sub { BinaryTree->new() } )); @@ -43,41 +43,41 @@ BEGIN { my $root = BinaryTree->new('node' => 0); isa_ok($root, 'BinaryTree'); -ok(exists($root->{'$:node'}), '... node attribute has been initialized yet'); -ok(!exists($root->{'$:left'}), '... left attribute has not been initialized yet'); -ok(!exists($root->{'$:right'}), '... right attribute has not been initialized yet'); +ok(exists($root->{'node'}), '... node attribute has been initialized yet'); +ok(!exists($root->{'left'}), '... left attribute has not been initialized yet'); +ok(!exists($root->{'right'}), '... right attribute has not been initialized yet'); isa_ok($root->left, 'BinaryTree'); isa_ok($root->right, 'BinaryTree'); -ok(exists($root->{'$:left'}), '... left attribute has now been initialized'); -ok(exists($root->{'$:right'}), '... right attribute has now been initialized'); +ok(exists($root->{'left'}), '... left attribute has now been initialized'); +ok(exists($root->{'right'}), '... right attribute has now been initialized'); -ok(!exists($root->left->{'$:node'}), '... node attribute has not been initialized yet'); -ok(!exists($root->left->{'$:left'}), '... left attribute has not been initialized yet'); -ok(!exists($root->left->{'$:right'}), '... right attribute has not been initialized yet'); +ok(!exists($root->left->{'node'}), '... node attribute has not been initialized yet'); +ok(!exists($root->left->{'left'}), '... left attribute has not been initialized yet'); +ok(!exists($root->left->{'right'}), '... right attribute has not been initialized yet'); -ok(!exists($root->right->{'$:node'}), '... node attribute has not been initialized yet'); -ok(!exists($root->right->{'$:left'}), '... left attribute has not been initialized yet'); -ok(!exists($root->right->{'$:right'}), '... right attribute has not been initialized yet'); +ok(!exists($root->right->{'node'}), '... node attribute has not been initialized yet'); +ok(!exists($root->right->{'left'}), '... left attribute has not been initialized yet'); +ok(!exists($root->right->{'right'}), '... right attribute has not been initialized yet'); is($root->left->node(), undef, '... the left node is uninitialized'); -ok(exists($root->left->{'$:node'}), '... node attribute has now been initialized'); +ok(exists($root->left->{'node'}), '... node attribute has now been initialized'); $root->left->node(1); is($root->left->node(), 1, '... the left node == 1'); -ok(!exists($root->left->{'$:left'}), '... left attribute still has not been initialized yet'); -ok(!exists($root->left->{'$:right'}), '... right attribute still has not been initialized yet'); +ok(!exists($root->left->{'left'}), '... left attribute still has not been initialized yet'); +ok(!exists($root->left->{'right'}), '... right attribute still has not been initialized yet'); is($root->right->node(), undef, '... the right node is uninitialized'); -ok(exists($root->right->{'$:node'}), '... node attribute has now been initialized'); +ok(exists($root->right->{'node'}), '... node attribute has now been initialized'); $root->right->node(2); is($root->right->node(), 2, '... the right node == 1'); -ok(!exists($root->right->{'$:left'}), '... left attribute still has not been initialized yet'); -ok(!exists($root->right->{'$:right'}), '... right attribute still has not been initialized yet'); +ok(!exists($root->right->{'left'}), '... left attribute still has not been initialized yet'); +ok(!exists($root->right->{'right'}), '... right attribute still has not been initialized yet');