From 52f6db64fc36d8e2ce11f18898fc2f4ff05c7686 Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@faui2k3.org>
Date: Mon, 27 Feb 2012 18:49:59 +0100
Subject: [PATCH] test for X::Routine::Unwrap

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

diff --git a/S32-exceptions/misc.t b/S32-exceptions/misc.t
index a7b377de96..a8240021e6 100644
--- a/S32-exceptions/misc.t
+++ b/S32-exceptions/misc.t
@@ -158,4 +158,6 @@ throws_like 'my sub f($x, $y:) { }', X::Syntax::Signature::InvocantMarker;
 throws_like 'Date.new("2012-02-30")', X::OutOfRange,
     range => Range, message => rx/<<1\.\.29>>/;
 
+throws_like 'sub f() { }; &f.unwrap("foo")', X::Routine::Unwrap;
+
 done;