Do not use no_plan!
[gitmo/Moose.git] / t / 100_bugs / 020_super_recursion.t
index 3dd9667..85d230c 100644 (file)
@@ -1,10 +1,9 @@
 use strict;
 use warnings;
 
-use Test::More 'no_plan';
+use Test::More tests => 3;
 
 {
-
     package A;
     use Moose;
 
@@ -25,7 +24,6 @@ use Test::More 'no_plan';
 }
 
 {
-
     package B;
     use Moose;
     extends qw(A);
@@ -37,7 +35,7 @@ use Test::More 'no_plan';
 
     sub bar {
         ::BAIL_OUT('B::bar called twice') if $main::seen{'B::bar'}++;
-        return 'b' . super();
+        return 'b' . ( super() || '' );
     }
 
     override baz => sub {
@@ -47,7 +45,6 @@ use Test::More 'no_plan';
 }
 
 {
-
     package C;
     use Moose;
     extends qw(B);