]> git.vpit.fr Git - perl/modules/B-RecDeparse.git/blob - t/21-single_delim.t
Update VPIT::TestHelpers to 4fb18792
[perl/modules/B-RecDeparse.git] / 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';