5 use Test::More tests => 3;
12 This tests a bug sent via RT #39001
22 Foo->meta->superclasses('Foo');
23 } qr/^Recursive inheritance detected/, "error occurs when extending oneself";
31 Foo->meta->superclasses('Bar');
35 Bar->meta->superclasses('Foo');
36 } qr/^Recursive inheritance detected/, "error occurs when Bar extends Foo, when Foo is a Bar";