t/RT42725_deparse.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
   6 use Sub::Name;
   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/\@\_/;
  16
  17 done_testing;