From: Stephen McCamant <smcc@mit.edu>
Date: Fri, 11 Jan 2002 14:29:30 +0000 (-0800)
Subject: Re: Magic numbers in B::Concise
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c33fe6136db08002c23477124823657a548fce45;p=p5sagit%2Fp5-mst-13.2.git

Re: Magic numbers in B::Concise
Message-ID: <15423.26442.891378.802062@soda.csua.berkeley.edu>

p4raw-id: //depot/perl@14215
---

diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t
index ad29c20..a567a73 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");