6 use blib 't/Sub-Op-LexicalSub';
8 use Test::More tests => 13;
13 my $bd = B::Deparse->new;
27 my $test = eval <<" TESTCASE";
29 use Sub::Op::LexicalSub f => sub { };
30 use Sub::Op::LexicalSub g => sub { };
35 fail "unable to compile testcase: $@";
38 my $deparsed = $bd->coderef2text($test);
39 $deparsed =~ s[BEGIN \s* \{ \s* \$\^H \s* \{ .*? \} .*? \} \s*][]gxs;
44 f(); g(); # silence 'once' warnings without setting the bits
45 my $exp = eval <<" EXPECTED";
51 fail "unable to compile expected code: $@";
54 $bd->coderef2text($exp);
57 is $deparsed, $expected, "deparsed <$code> is as expected";
76 f 1, f(2), 3, g(4, f(g, 5), 6);