cvsuser 02/03/09 16:14:33
Modified: t/op integer.t number.t
Log:
Patch from Simon Glover <[EMAIL PROTECTED]>:
The enclosed patch fixes a few of the holes in our test coverage
uncovered by Josh Wilmes
Revision Changes Path
1.19 +46 -1 parrot/t/op/integer.t
Index: integer.t
===================================================================
RCS file: /home/perlcvs/parrot/t/op/integer.t,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -w -r1.18 -r1.19
--- integer.t 1 Feb 2002 12:19:08 -0000 1.18
+++ integer.t 10 Mar 2002 00:14:33 -0000 1.19
@@ -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
@@ -866,6 +893,24 @@
CODE
-1
-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");
1.13 +59 -4 parrot/t/op/number.t
Index: number.t
===================================================================
RCS file: /home/perlcvs/parrot/t/op/number.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -w -r1.12 -r1.13
--- number.t 25 Jan 2002 01:27:37 -0000 1.12
+++ number.t 10 Mar 2002 00:14:33 -0000 1.13
@@ -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
@@ -744,6 +781,24 @@
CODE
-1.000000
-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");
