Change 13696 by jhi@alpha on 2001/12/15 17:11:32
Subject: [PATCH MANIFEST ext/B/t/asmdata.t] B::Asmdata test
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Fri, 14 Dec 2001 19:36:12 -0500
Message-ID: <20011215003611.GA28596@blackrider>
Affected files ...
.... //depot/perl/MANIFEST#667 edit
.... //depot/perl/ext/B/t/asmdata.t#1 add
Differences ...
==== //depot/perl/MANIFEST#667 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST.~1~ Sat Dec 15 10:15:05 2001
+++ perl/MANIFEST Sat Dec 15 10:15:05 2001
@@ -91,6 +91,7 @@
ext/B/ramblings/reg.alloc Compiler ramblings: register allocation
ext/B/ramblings/runtime.porting Compiler ramblings: porting PP enging
ext/B/README Compiler backend README
+ext/B/t/asmdata.t See if B::Asmdata works
ext/B/t/b.t See if B works
ext/B/t/debug.t See if B::Debug works
ext/B/t/deparse.t See if B::Deparse works
==== //depot/perl/ext/B/t/asmdata.t#1 (text) ====
Index: perl/ext/B/t/asmdata.t
--- perl/ext/B/t/asmdata.t.~1~ Sat Dec 15 10:15:05 2001
+++ perl/ext/B/t/asmdata.t Sat Dec 15 10:15:05 2001
@@ -0,0 +1,44 @@
+#!./perl -Tw
+
+BEGIN {
+ chdir 't';
+ @INC = '../lib';
+}
+
+use Test::More tests => 13;
+
+use_ok('B::Asmdata', qw(%insn_data @insn_name @optype @specialsv_name));
+
+# check we got something.
+isnt( keys %insn_data, 0, '%insn_data exported and populated' );
+isnt( @insn_name, 0, ' @insn_name' );
+isnt( @optype, 0, ' @optype' );
+isnt( @specialsv_name, 0, ' @specialsv_name' );
+
+# pick an op that's not likely to go away in the future
+my @data = values %insn_data;
+is( (grep { ref eq 'ARRAY' } @data), @data, '%insn_data contains arrays' );
+
+# pick one at random to test with.
+my $opname = (keys %insn_data)[rand @data];
+my $data = $insn_data{$opname};
+like( $data->[0], qr/^\d+$/, ' op number' );
+is( ref $data->[1], 'CODE', ' PUT code ref' );
+ok( !ref $data->[2], ' GET method' );
+
+is( $insn_name[$data->[0]], $opname, '@insn_name maps correctly' );
+
+
+# I'm going to assume that op types will all be named /OP$/.
+# If this changes in the future, change this test.
+is( grep(/OP$/, @optype), @optype, '@optype is all /OP$/' );
+
+
+# comment in bytecode.pl says "Nullsv *must come first so that the
+# condition ($$sv == 0) can continue to be used to test (sv == Nullsv)."
+is( $specialsv_name[0], 'Nullsv', 'Nullsv come first in @special_sv_name' );
+
+# other than that, we can't really say much more about @specialsv_name
+# than it has to contain strings (on the off chance &PL_sv_undef gets
+# flubbed)
+is( grep(!ref, @specialsv_name), @specialsv_name, ' contains all strings' );
End of Patch.
