opcode.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl -w
$|=1;
BEGIN {
chdir 't' if -d 't';
print "1..0\n";
exit 0;
}
}
);
use strict;
my $t = 1;
my $last_test; # initalised at end
print "1..$last_test\n";
# --- opset_to_ops and opset
# --- define_optag
# --- opdesc and opcodes
? "ok $t\n" : "not ok $t\n#@desc\n"; $t++;
print "ok $t\n"; ++$t;
# --- invert_opset
# --- opmask
# --- verify_opset
# --- opmask_add
print eval 'fileno STDOUT' ? "not ok $t\n" : "ok $t\n"; $t++; # fail
# --- check use of bit vector ops on opsets
# Non-negated
# Negated, e.g., with possible extra bits in last byte beyond last op bit.
# The extra bits mean we can't just say ~mask eq invert_opset(mask).
# --- finally, check some opname assertions
BEGIN { $last_test = 25 }