Fix deparsing of reversed foreach loops,

[p5sagit/p5-mst-13.2.git] / ext / B / t / assembler.t

diff --git a/ext/B/t/assembler.t b/ext/B/t/assembler.t
index 6640082..fedb6a7 100644 (file)
--- a/ext/B/t/assembler.t
+++ b/ext/B/t/assembler.t
@@ -155,6 +155,10 @@ use Test::More;
 use Config qw(%Config);
 
 BEGIN {
+  if (($Config{'extensions'} !~ /\bB\b/) ){
+    print "1..0 # Skip -- Perl configured without B module\n";
+    exit 0;
+  }
   if (($Config{'extensions'} !~ /\bByteLoader\b/) ){
     print "1..0 # Skip -- Perl configured without ByteLoader module\n";
     exit 0;
@@ -247,7 +251,9 @@ NV          => [ 1.23456789E3 ],
 U16         => [ 0xffff, 0 ],
 pvcontents  => [],
 strconst    => [ '""', '"another string"' ], # no NUL
-op_tr_array => [ join( ',', 0..255 ) ],
+op_tr_array => [ join( ',', 256, 0..255 ) ],
+PADOFFSET   => undef,
+long        => undef,
              );
 
 # Erronous operand values
@@ -269,7 +275,9 @@ IV          => $Config{ivsize} == 4 ?
 NV          => undef, # PUT_NV accepts anything - it shouldn't, real-ly
 pvcontents  => [ '"spurious arg"' ],
 strconst    => [  'no quote"',  '"with NUL '."\0".' char"' ], # no NUL
-op_tr_array => [ join( ',', 1..42 ) ],
+op_tr_array => undef, # op_pv_tr is no longer exactly 256 shorts
+PADOFFSET   => undef,
+long        => undef,
              );