diff options
| author | Stephen McCamant <smcc@mit.edu> | 2002-01-11 06:29:30 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-12 15:22:01 +0000 |
| commit | c33fe6136db08002c23477124823657a548fce45 (patch) | |
| tree | e96a1a5144a0be5127fa77cb431a0acc48071a1d /ext | |
| parent | cf346138d65ead98b6b0db39f170b648fd861ca2 (diff) | |
| download | perl-c33fe6136db08002c23477124823657a548fce45.tar.gz | |
Re: Magic numbers in B::Concise
Message-ID: <15423.26442.891378.802062@soda.csua.berkeley.edu>
p4raw-id: //depot/perl@14215
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/t/concise.t | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t index ad29c20329..a567a73202 100644 --- a/ext/B/t/concise.t +++ b/ext/B/t/concise.t @@ -6,7 +6,7 @@ BEGIN { require './test.pl'; } -plan tests => 3; +plan tests => 4; require_ok("B::Concise"); @@ -15,10 +15,12 @@ $out = runperl(switches => ["-MO=Concise"], prog => '$a', stderr => 1); # If either of the next two tests fail, it probably means you need to # fix the section labeled 'fragile kludge' in Concise.pm -$op_base = ($out =~ /^(\d+)\s*<0>\s*enter/m); +($op_base) = ($out =~ /^(\d+)\s*<0>\s*enter/m); -is($op_base, 1, "Smallest OP sequence number", $help); +is($op_base, 1, "Smallest OP sequence number"); -$cop_base = ($out =~ /nextstate\(main (\d+) /); +($op_base_p1, $cop_base) = ($out =~ /^(\d+)\s*<;>\s*nextstate\(main (\d+) /m); -is($cop_base, 1, "Smallest COP sequence number", $help); +is($op_base_p1, 2, "Second-smallest OP sequence number"); + +is($cop_base, 1, "Smallest COP sequence number"); |