5 use Test::More tests => 4;
14 This tests a bug sent via RT #39001
24 Foo->meta->superclasses('Foo');
25 } qr/^Recursive inheritance detected/, "error occurs when extending oneself";
33 Foo->meta->superclasses('Bar');
37 Bar->meta->superclasses('Foo');
38 } qr/^Recursive inheritance detected/, "error occurs when Bar extends Foo, when Foo is a Bar";