t/21-single_delim.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 1;
   7
   8 use B::RecDeparse;
   9 use B::Deparse;
  10
  11 sub wut { "\x{1c}B::RecDeparse\x{1c}"->() }
  12
  13 my $bd = B::Deparse->new();
  14 my $code = $bd->coderef2text(\&wut);
  15 like $code, qr/B::RecDeparse/, 'single_delim is only fooled when called from B::RecDeparse';