From 95a13d770a180c6a5905b1468f329ea175d34a99 Mon Sep 17 00:00:00 2001
From: Timo Paulssen <timonator@perpetuum-immobile.de>
Date: Sat, 19 Jan 2013 23:45:57 +0100
Subject: [PATCH] check for X::Inheritance::SelfInherit.

---
 S32-exceptions/misc.t | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
index 6074834953..5a3bd59471 100644
--- 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;