use metaclass;
}
-like exception {
+like( exception {
Foo->meta->superclasses('Foo');
-}, qr/^Recursive inheritance detected/, "error occurs when extending oneself";
+}, qr/^Recursive inheritance detected/, "error occurs when extending oneself" );
{
package Bar;
# if DEBUG_NO_META is set)
@Foo::ISA = ();
-ok ! exception {
+is( exception {
Foo->meta->superclasses('Bar');
-}, "regular subclass";
+}, undef, "regular subclass" );
-like exception {
+like( exception {
Bar->meta->superclasses('Foo');
-}, qr/^Recursive inheritance detected/, "error occurs when Bar extends Foo, when Foo is a Bar";
+}, qr/^Recursive inheritance detected/, "error occurs when Bar extends Foo, when Foo is a Bar" );
done_testing;