The test for cmod_i was using the 'mod Ix, Ix, Ix' form which compiles
into the mod op, not the cmod_i op, hence wasn't testing what it thought
it was. I've patched this below.
The following ops also do not yet have tests, some because they are throwaway,
some because they're waiting on other ops being added. Some may not fit
into either category...
make test run with line deleting temp files removed then ...
[7:47PM]perl6/parrot% for i in t/op/*.pbc;
do perl disassemble.pl $i > $i.dis;
done
[7:51PM]perl6/parrot% perl -nle'/OP (\w+)/ or next;
print("$1") if system("grep -q -e\"$1\" t/op/*.dis")' < basic_opcodes.ops
print_nc
push_p
pop_p
clear_p
shl_i_ic
bounds_ic
trace_ic
Alex Gough
--
<rejs> You are the weakest link. Have a nice day.
###################
Index: t/op/integer.t
===================================================================
RCS file: /home/perlcvs/parrot/t/op/integer.t,v
retrieving revision 1.11
diff -u -r1.11 integer.t
--- t/op/integer.t 2001/10/08 13:45:22 1.11
+++ t/op/integer.t 2001/10/09 18:54:31
@@ -268,13 +268,18 @@
output_is(<<CODE, <<OUTPUT, "cmod_i");
set I0, 5
set I1, 3
- mod I2, I0, I1
+ cmod_i I2, I0, I1
print I2
print "\\n"
-
+ print I0
+ print "\\n"
+ print I1
+ print "\\n"
end
CODE
2
+5
+3
OUTPUT
output_is(<<CODE, <<OUTPUT, "eq_i_ic");
