t/RT42725_deparse.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 2;
   4
   5 use Sub::Name;
   6
   7 use B::Deparse;
   8
   9 my $source = eval {
  10         B::Deparse->new->coderef2text(subname foo => sub{ @_ });
  11 };
  12
  13 ok !$@;
  14
  15 like $source, qr/\@\_/;