Author: particle
Date: Tue Jan 10 15:17:54 2006
New Revision: 11068
Modified:
trunk/t/op/integer.t
trunk/t/op/number.t
Log:
t: add 'divide by zero' tests for mod
~ correct pasm syntax in other 'divide by zero' tests
Modified: trunk/t/op/integer.t
==============================================================================
--- trunk/t/op/integer.t (original)
+++ trunk/t/op/integer.t Tue Jan 10 15:17:54 2006
@@ -1238,6 +1238,7 @@ output_like(<<'CODE', <<OUTPUT, "div_i_i
set I0, 0
set I1, 10
div I1, I0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1245,6 +1246,7 @@ OUTPUT
output_like(<<'CODE', <<OUTPUT, "div_i_ic by zero");
set I1, 10
div I1, 0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1253,6 +1255,7 @@ output_like(<<'CODE', <<OUTPUT, "div_i_i
set I0, 0
set I1, 10
div I2, I1, I0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1260,6 +1263,7 @@ OUTPUT
output_like(<<'CODE', <<OUTPUT, "div_i_ic_i by zero");
set I0, 0
div I2, 10, I0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1267,6 +1271,7 @@ OUTPUT
output_like(<<'CODE', <<OUTPUT, "div_i_i_ic by zero");
set I1, 10
div I2, I1, 0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1275,6 +1280,7 @@ output_like(<<'CODE', <<OUTPUT, "fdiv_i_
set I0, 0
set I1, 10
fdiv I1, I0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1282,6 +1288,7 @@ OUTPUT
output_like(<<'CODE', <<OUTPUT, "fdiv_i_ic by zero");
set I1, 10
fdiv I1, 0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1290,6 +1297,7 @@ output_like(<<'CODE', <<OUTPUT, "fdiv_i_
set I0, 0
set I1, 10
fdiv I2, I1, I0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1297,6 +1305,7 @@ OUTPUT
output_like(<<'CODE', <<OUTPUT, "fdiv_i_ic_i by zero");
set I0, 0
fdiv I2, 10, I0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1304,6 +1313,7 @@ OUTPUT
output_like(<<'CODE', <<OUTPUT, "fdiv_i_i_ic by zero");
set I1, 10
fdiv I2, I1, 0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1312,6 +1322,7 @@ output_like(<<'CODE', <<OUTPUT, "cmod_i_
set I0, 0
set I1, 10
cmod I2, I1, I0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1319,6 +1330,7 @@ OUTPUT
output_like(<<'CODE', <<OUTPUT, "cmod_i_ic_i by zero");
set I0, 0
cmod I2, 10, I0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1326,11 +1338,43 @@ OUTPUT
output_like(<<'CODE', <<OUTPUT, "cmod_i_i_ic by zero");
set I1, 10
cmod I2, I1, 0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
+output_is(<<'CODE', <<OUTPUT, "mod_i_i_i by zero");
+ set I0, 0
+ set I1, 10
+ mod I2, I1, I0
+ print I2
+ print "\n"
+ end
+CODE
+10
+OUTPUT
+
+output_is(<<'CODE', <<OUTPUT, "mod_i_ic_i by zero");
+ set I0, 0
+ mod I2, 10, I0
+ print I2
+ print "\n"
+ end
+CODE
+10
+OUTPUT
+
+output_is(<<'CODE', <<OUTPUT, "mod_i_i_ic by zero");
+ set I1, 10
+ mod I2, I1, 0
+ print I2
+ print "\n"
+ end
+CODE
+10
+OUTPUT
+
## remember to change the number of tests :-)
-BEGIN { plan tests => 53; }
+BEGIN { plan tests => 56; }
Modified: trunk/t/op/number.t
==============================================================================
--- trunk/t/op/number.t (original)
+++ trunk/t/op/number.t Tue Jan 10 15:17:54 2006
@@ -1095,6 +1095,7 @@ output_like(<<'CODE', <<OUTPUT, "div_n_n
set N0, 0
set N1, 10
div N1, N0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1102,6 +1103,7 @@ OUTPUT
output_like(<<'CODE', <<OUTPUT, "div_n_nc by zero");
set N1, 10
div N1, 0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1110,6 +1112,7 @@ output_like(<<'CODE', <<OUTPUT, "div_n_n
set N0, 0
set N1, 10
div N2, N1, N0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1117,6 +1120,7 @@ OUTPUT
output_like(<<'CODE', <<OUTPUT, "div_n_nc_n by zero");
set N0, 0
div N2, 10, N0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1124,6 +1128,7 @@ OUTPUT
output_like(<<'CODE', <<OUTPUT, "div_n_n_nc by zero");
set N1, 10
div N2, N1, 0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1132,6 +1137,7 @@ output_like(<<'CODE', <<OUTPUT, "fdiv_n_
set N0, 0
set N1, 10
fdiv N1, N0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1139,6 +1145,7 @@ OUTPUT
output_like(<<'CODE', <<OUTPUT, "fdiv_n_nc by zero");
set N1, 10
fdiv N1, 0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1147,6 +1154,7 @@ output_like(<<'CODE', <<OUTPUT, "fdiv_n_
set N0, 0
set N1, 10
fdiv N2, N1, N0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1154,6 +1162,7 @@ OUTPUT
output_like(<<'CODE', <<OUTPUT, "fdiv_n_nc_n by zero");
set N0, 0
fdiv N2, 10, N0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1161,6 +1170,7 @@ OUTPUT
output_like(<<'CODE', <<OUTPUT, "fdiv_n_n_nc by zero");
set N1, 10
fdiv N2, N1, 0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1169,6 +1179,7 @@ output_like(<<'CODE', <<OUTPUT, "cmod_n_
set N0, 0
set N1, 10
cmod N2, N1, N0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1176,6 +1187,7 @@ OUTPUT
output_like(<<'CODE', <<OUTPUT, "cmod_n_nc_n by zero");
set N0, 0
cmod N2, 10, N0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
@@ -1183,11 +1195,34 @@ OUTPUT
output_like(<<'CODE', <<OUTPUT, "cmod_n_n_nc by zero");
set N1, 10
cmod N2, N1, 0
+ end
CODE
/.*Divide by zero.*/
OUTPUT
+output_is(<<'CODE', <<OUTPUT, "mod_n_n_n by zero");
+ set N0, 0
+ set N1, 10
+ mod N2, N1, N0
+ end
+CODE
+OUTPUT
+
+output_is(<<'CODE', <<OUTPUT, "mod_n_nc_n by zero");
+ set N0, 0
+ mod N2, 10, N0
+ end
+CODE
+OUTPUT
+
+output_is(<<'CODE', <<OUTPUT, "mod_n_n_nc by zero");
+ set N1, 10
+ mod N2, N1, 0
+ end
+CODE
+OUTPUT
+
## remember to change the number of tests :-)
-BEGIN { plan tests => 53; }
+BEGIN { plan tests => 56; }
