Reverse sense of test to check for success, not failure
Dave Rolsky [Wed, 1 Jul 2009 17:45:28 +0000 (12:45 -0500)]
t/088_immutable_role_application_bug.t

index ef29669..7fb8bea 100644 (file)
@@ -8,13 +8,13 @@ BEGIN {
     package My::Meta::Trait;
     use Moose::Role;
 
-    our $FAILED = 0;
+    our $HAS_METH = 0;
 
     before 'make_immutable' => sub {
         my ($meta) = @_;
 
         # $meta->name->meta should have the correct methods on it..
-        $FAILED++ unless $meta->name->meta->get_method('some_method');
+        $HAS_METH++ if $meta->name->meta->get_method('some_method');
     };
 }
 
@@ -30,6 +30,6 @@ BEGIN {
 
 TODO: {
     local $TODO = 'This broke as of 07302fb';
-    is( $My::Meta::Trait::FAILED, 0, 'Can find method' );
+    ok( $My::Meta::Trait::HAS_METH, 'Can find method' );
 }