X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F004_advanced_methods.t;h=7ae901912950c081825bf435553e0c277519e990;hb=1c02057119480effee157e45ce362dd04f16bebd;hp=83efe4243a23aa62a0509d79a46d15d5f1a66248;hpb=1a7ebbb3e44301a39a8b5c57542ca8ae76a3e2d0;p=gitmo%2FClass-MOP.git

diff --git a/t/004_advanced_methods.t b/t/004_advanced_methods.t
index 83efe42..7ae9019 100644
--- a/t/004_advanced_methods.t
+++ b/t/004_advanced_methods.t
@@ -36,7 +36,6 @@ A more real-world example would be a nice addition :)
     package Baz;
     our @ISA = ('Bar');
     
-    sub BUILD { 'Baz::BUILD' }    
     sub baz { 'Baz::baz' }
     sub foo { 'Baz::foo' }           
     
@@ -94,11 +93,11 @@ is_deeply(
 
 is_deeply(
     [ sort { $a->{name} cmp $b->{name} } Class::MOP::Class->initialize('Baz')->compute_all_applicable_methods() ],
-    [
+    [   
         {
             name  => 'BUILD',
-            class => 'Baz',
-            code  => \&Baz::BUILD 
+            class => 'Bar',
+            code  => \&Bar::BUILD 
         },    
         {
             name  => 'bar',
@@ -215,11 +214,6 @@ is_deeply(
             name  => 'BUILD',
             class => 'Bar',
             code  => \&Bar::BUILD 
-        },    
-        {
-            name  => 'BUILD',
-            class => 'Baz',
-            code  => \&Baz::BUILD 
-        },        
+        },            
     ],
     '... got the right list of BUILD methods for Foo::Bar::Baz');
\ No newline at end of file