1N/A chdir 't' if -d 't'; 1N/A# --- opset_to_ops and opset 1N/Aprint @
empty_l ==
0 ?
"ok $t\n" :
"not ok $t\n"; $t++;
1N/Aprint "@full_l1" eq "@full_l2" ?
"ok $t\n" :
"not ok $t\n"; $t++;
1N/Aprint @
empty_l ==
0 ?
"ok $t\n" :
"not ok $t\n"; $t++;
1N/Aprint "@full_l1" eq "@full_l3" ?
"ok $t\n" :
"not ok $t\n"; $t++;
1N/Aprint eval { opset(':_tst_') } ? "not ok $t\n" : "ok $t\n"; ++$t; 1N/Aprint eval { opset(':_tst_') } ? "ok $t\n" : "not ok $t\n"; ++$t; 1N/A# --- opdesc and opcodes 1N/Aprint opdesc("gv") eq "glob value" ? "ok $t\n" : "not ok $t\n"; $t++; 1N/Aprint "@desc" eq "private variable private array private hash stub" 1N/A ? "ok $t\n" : "not ok $t\n#@desc\n"; $t++; 1N/Aprint "ok $t\n"; ++$t; 1N/Aprint eval 'fileno STDOUT' ? "not ok $t\n" : "ok $t\n"; $t++; # fail 1N/Aprint $@ =~ /'fileno' trapped/ ? "ok $t\n" : "not ok $t\n# $@\n"; $t++; 1N/A# --- check use of bit vector ops on opsets 1N/A# Negated, e.g., with possible extra bits in last byte beyond last op bit. 1N/A# The extra bits mean we can't just say ~mask eq invert_opset(mask). 1N/Aprint "@o1" eq "@o2" ? "ok $t\n":"not ok $t\n"; $t++; 1N/A# --- finally, check some opname assertions