Require the latest CMOP

[gitmo/Moose.git] / t / 100_bugs / 020_super_recursion.t

diff --git a/t/100_bugs/020_super_recursion.t b/t/100_bugs/020_super_recursion.t
index 3dd9667..6ad2904 100644 (file)
--- a/t/100_bugs/020_super_recursion.t
+++ b/t/100_bugs/020_super_recursion.t
@@ -1,10 +1,9 @@
 use strict;
 use warnings;
 
-use Test::More 'no_plan';
+use Test::More;
 
 {
-
     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);
@@ -68,3 +65,5 @@ use Test::More 'no_plan';
 is( C->new->foo, 'c' );
 is( C->new->bar, 'cb' );
 is( C->new->baz, 'cba' );
+
+done_testing;