Commit | Line | Data |
c517cc47 |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't'; |
5 | @INC = '../lib'; |
6 | require './test.pl'; |
7 | } |
8 | |
c33fe613 |
9 | plan tests => 4; |
c517cc47 |
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 | |
c33fe613 |
18 | ($op_base) = ($out =~ /^(\d+)\s*<0>\s*enter/m); |
c517cc47 |
19 | |
c33fe613 |
20 | is($op_base, 1, "Smallest OP sequence number"); |
c517cc47 |
21 | |
c33fe613 |
22 | ($op_base_p1, $cop_base) = ($out =~ /^(\d+)\s*<;>\s*nextstate\(main (\d+) /m); |
c517cc47 |
23 | |
c33fe613 |
24 | is($op_base_p1, 2, "Second-smallest OP sequence number"); |
25 | |
26 | is($cop_base, 1, "Smallest COP sequence number"); |