Change 14190 by jhi@alpha on 2002/01/11 14:52:51
Subject: [PATCH] Re: Magic numbers in B::Concise
From: Stephen McCamant <[EMAIL PROTECTED]>
Date: Thu, 10 Jan 2002 18:21:34 -0800
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/MANIFEST#703 edit
.... //depot/perl/ext/B/t/concise.t#1 add
Differences ...
==== //depot/perl/MANIFEST#703 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST.~1~ Fri Jan 11 08:00:05 2002
+++ perl/MANIFEST Fri Jan 11 08:00:05 2002
@@ -97,6 +97,7 @@
ext/B/t/assembler.t See if B::Assembler, B::Disassembler comply
ext/B/t/b.t See if B works
ext/B/t/bblock.t See if B::Bblock works
+ext/B/t/concise.t See whether B::Concise works
ext/B/t/debug.t See if B::Debug works
ext/B/t/deparse.t See if B::Deparse works
ext/B/t/showlex.t See if B::ShowLex works
==== //depot/perl/ext/B/t/concise.t#1 (text) ====
Index: perl/ext/B/t/concise.t
--- perl/ext/B/t/concise.t.~1~ Fri Jan 11 08:00:05 2002
+++ perl/ext/B/t/concise.t Fri Jan 11 08:00:05 2002
@@ -0,0 +1,24 @@
+#!./perl
+
+BEGIN {
+ chdir 't';
+ @INC = '../lib';
+ require './test.pl';
+}
+
+plan tests => 3;
+
+require_ok("B::Concise");
+
+$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);
+
+is($op_base, 1, "Smallest OP sequence number", $help);
+
+$cop_base = ($out =~ /nextstate\(main (\d+) /);
+
+is($cop_base, 1, "Smallest COP sequence number", $help);
End of Patch.
