check for X::Inheritance::SelfInherit.

timo · timo · commit 95a13d770a18 · 2013-01-19T23:45:57.000+01:00
diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
@@ -356,4 +356,6 @@ if $emits_suggestions {
     ok $!.message !~~ /Did you mean/, "doesn't suggest if there's no suggestions.";
 }
 
+throws_like 'class Foobar is Foobar', X::Inheritance::SelfInherit, name => "Foobar";
+
 done;

Original file line number	Diff line number	Diff line change
`@@ -356,4 +356,6 @@ if $emits_suggestions {`
`356`	`356`	`ok $!.message !~~ /Did you mean/, "doesn't suggest if there's no suggestions.";`
`357`	`357`	`}`
`358`	`358`
	`359`	`+throws_like 'class Foobar is Foobar', X::Inheritance::SelfInherit, name => "Foobar";`
	`360`	`+`
`359`	`361`	`done;`