add tests for recursion in super()

diff --git a/t/100_bugs/020_super_recursion.t b/t/100_bugs/020_super_recursion.t
new file mode 100644 (file)
index 0000000..89b355c
--- /dev/null
+++ b/t/100_bugs/020_super_recursion.t
@@ -0,0 +1,34 @@
+#!/usr/bin/env perl -l
+use Test::More qw(no_plan);
+our $seen;
+
+package A;
+use Moose;
+
+sub foo { ::BAIL_OUT('A::foo called twice') if $main::seen{'A::foo'}++; return 'a' }
+sub bar { ::BAIL_OUT('A::bar called twice') if $main::seen{'A::bar'}++; return 'a' }
+sub baz { ::BAIL_OUT('A::baz called twice') if $main::seen{'A::baz'}++; return 'a' }
+
+package B;
+use Moose;
+extends qw(A);
+
+
+sub foo { ::BAIL_OUT('B::foo called twice') if $main::seen{'B::foo'}++; return 'b'.super() }
+sub bar { ::BAIL_OUT('B::bar called twice') if $main::seen{'B::bar'}++; return 'b'.super() }
+override baz => sub { ::BAIL_OUT('B::baz called twice') if $main::seen{'B::baz'}++; return 'b'.super() };
+
+package C;
+use Moose;
+extends qw(B);
+
+sub foo { return 'c'.super() }
+override bar => sub { ::BAIL_OUT('C::bar called twice') if $main::seen{'C::bar'}++; return 'c'.super() };
+override baz => sub { ::BAIL_OUT('C::baz called twice') if $main::seen{'C::baz'}++; return 'c'.super() };
+
+
+package main;
+
+is(C->new->foo, 'c');
+is(C->new->bar, 'cb');
+is(C->new->baz, 'cba');