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;
+ }
+}
+
use B::Asmdata qw( %insn_data );
use B::Assembler qw( &assemble_fh );
use B::Disassembler qw( &disassemble_fh &get_header );
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
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,
);