Change 14215: [PATCH] Re: Magic numbers in B::Concise

[Jarkko Hietaniemi]

Change 14215 by jhi@alpha on 2002/01/12 15:22:01

        Subject: [PATCH] Re: Magic numbers in B::Concise
        From: Stephen McCamant <[EMAIL PROTECTED]>               
        Date: Fri, 11 Jan 2002 14:29:30 -0800
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/ext/B/t/concise.t#2 edit

Differences ...

==== //depot/perl/ext/B/t/concise.t#2 (text) ====
Index: perl/ext/B/t/concise.t
--- perl/ext/B/t/concise.t.~1~  Sat Jan 12 08:30:05 2002
+++ perl/ext/B/t/concise.t      Sat Jan 12 08:30:05 2002
@@ -6,7 +6,7 @@
     require './test.pl';
 }
 
-plan tests => 3;
+plan tests => 4;
 
 require_ok("B::Concise");
 
@@ -15,10 +15,12 @@
 # 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");
 
-is($op_base, 1, "Smallest OP sequence number", $help);
+($op_base_p1, $cop_base) = ($out =~ /^(\d+)\s*<;>\s*nextstate\(main (\d+) /m);
 
-$cop_base = ($out =~ /nextstate\(main (\d+) /);
+is($op_base_p1, 2, "Second-smallest OP sequence number");
 
-is($cop_base, 1, "Smallest COP sequence number", $help);
+is($cop_base, 1, "Smallest COP sequence number");
End of Patch.