From: gfx Date: Mon, 31 Aug 2009 02:26:42 +0000 (+0900) Subject: Add failing test for deparsing (re)named subs X-Git-Tag: 0.05~3 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=de3e82182d28fc52a6832368a4019b61e799285a;p=p5sagit%2FSub-Name.git Add failing test for deparsing (re)named subs Test for the issue described in RT#42725. --- diff --git a/t/RT42725_deparse.t b/t/RT42725_deparse.t new file mode 100644 index 0000000..7e61777 --- /dev/null +++ b/t/RT42725_deparse.t @@ -0,0 +1,15 @@ +use strict; +use warnings; +use Test::More tests => 2; + +use Sub::Name; + +use B::Deparse; + +my $source = eval { + B::Deparse->new->coderef2text(subname foo => sub{ @_ }); +}; + +ok !$@; + +like $source, qr/\@\_/;