From c33fe6136db08002c23477124823657a548fce45 Mon Sep 17 00:00:00 2001 From: Stephen McCamant Date: Fri, 11 Jan 2002 06:29:30 -0800 Subject: [PATCH] Re: Magic numbers in B::Concise Message-ID: <15423.26442.891378.802062@soda.csua.berkeley.edu> p4raw-id: //depot/perl@14215 --- ext/B/t/concise.t | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) 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"); -- 2.7.4