Commit | Line | Data |
c517cc47 |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't'; |
5 | @INC = '../lib'; |
6 | require './test.pl'; |
7 | } |
8 | |
9 | plan tests => 3; |
10 | |
11 | require_ok("B::Concise"); |
12 | |
13 | $out = runperl(switches => ["-MO=Concise"], prog => '$a', stderr => 1); |
14 | |
15 | # If either of the next two tests fail, it probably means you need to |
16 | # fix the section labeled 'fragile kludge' in Concise.pm |
17 | |
18 | $op_base = ($out =~ /^(\d+)\s*<0>\s*enter/m); |
19 | |
20 | is($op_base, 1, "Smallest OP sequence number", $help); |
21 | |
22 | $cop_base = ($out =~ /nextstate\(main (\d+) /); |
23 | |
24 | is($cop_base, 1, "Smallest COP sequence number", $help); |