The enclosed patch fixes a few of the holes in our test coverage
uncovered by Josh Wilmes
Simon
--- t/op/integer.t.old Sat Mar 9 15:38:21 2002
+++ t/op/integer.t Sat Mar 9 15:55:33 2002
@@ -1,6 +1,6 @@
#! perl -w
-use Parrot::Test tests => 30;
+use Parrot::Test tests => 32;
output_is(<<CODE, <<OUTPUT, "set_i_ic");
# XXX: Need a test for writing outside the set of available
@@ -190,12 +190,21 @@
print I0
print I1
print "\n"
+
+ set N0, -1.001
+ abs I0, N0
+ abs I1, -1.001
+ print I0
+ print I1
+ print "\n"
+
end
CODE
1
1
1
11
+11
OUTPUT
output_is(<<CODE, <<OUTPUT, "sub_(i|ic, i|ic)");
@@ -832,6 +841,24 @@
5
OUTPUT
+output_is(<<CODE, <<OUTPUT, "inc_i_i");
+ set I0, 0
+ set I1, 2
+ set I2, -2
+
+ inc I0, I1
+ print I0
+ print "\\n"
+
+ inc I0, I2
+ print I0
+ print "\\n"
+ end
+CODE
+2
+0
+OUTPUT
+
output_is(<<CODE, <<OUTPUT, "inc_i_ic");
set I0, 0
@@ -868,6 +895,24 @@
-5
OUTPUT
+output_is(<<CODE, <<OUTPUT, "dec_i_i");
+ set I0, 0
+ set I1, 3
+ set I2, -3
+
+ dec I0, I1
+ print I0
+ print "\\n"
+
+ dec I0, I2
+ print I0
+ print "\\n"
+ end
+CODE
+-3
+0
+OUTPUT
+
output_is(<<CODE, <<OUTPUT, "dec_i_ic");
set I0, 0
--- t/op/number.t.old Sat Mar 9 15:26:26 2002
+++ t/op/number.t Sat Mar 9 16:00:26 2002
@@ -1,6 +1,6 @@
#! perl -w
-use Parrot::Test tests => 29;
+use Parrot::Test tests => 31;
output_is(<<CODE, <<OUTPUT, "set_n_nc");
set N0, 1.0
@@ -157,9 +157,16 @@
set I0, -1
abs N0, I0
abs N1, -1
- set N2, -1
- abs N2, N2
- abs N3, -1.0
+ set I1, 1
+ abs N2, I1
+ abs N3, 1
+ set N4, -1
+ abs N4, N4
+ abs N5, -1.0
+ set N6, 1.0
+ abs N6, N6
+ abs N7, 1.0
+
print N0
print "\n"
print N1
@@ -168,12 +175,24 @@
print "\n"
print N3
print "\n"
+ print N4
+ print "\n"
+ print N5
+ print "\n"
+ print N6
+ print "\n"
+ print N7
+ print "\n"
end
CODE
1.000000
1.000000
1.000000
1.000000
+1.000000
+1.000000
+1.000000
+1.000000
OUTPUT
output_is(<<CODE, <<OUTPUT, "mul_i");
@@ -711,6 +730,24 @@
5.000000
OUTPUT
+output_is(<<CODE, <<OUTPUT, "inc_n_n");
+ set N0, 0.0
+ set N1, 0.5
+ set N2, -1.0
+
+ inc N0, N1
+ print N0
+ print "\\n"
+
+ inc N0, N2
+ print N0
+ print "\\n"
+ end
+CODE
+0.500000
+-0.500000
+OUTPUT
+
output_is(<<CODE, <<OUTPUT, "inc_n_nc");
set N0, 0.0
@@ -746,6 +783,24 @@
-5.000000
OUTPUT
+output_is(<<CODE, <<OUTPUT, "dec_n_n");
+ set N0, 0.0
+ set N1, 2.0
+ set N2, -1.0
+
+ dec N0, N1
+ print N0
+ print "\\n"
+
+ dec N0, N2
+ print N0
+ print "\\n"
+ end
+CODE
+-2.000000
+-1.000000
+OUTPUT
+
output_is(<<CODE, <<OUTPUT, "dec_n_nc");
set N0, 0.0
