Author: particle
Date: Tue Jan 10 06:53:55 2006
New Revision: 11040
Modified:
trunk/t/op/integer.t
trunk/t/op/number.t
Log:
t: add TODO tests for divide by zero
Modified: trunk/t/op/integer.t
==============================================================================
--- trunk/t/op/integer.t (original)
+++ trunk/t/op/integer.t Tue Jan 10 06:53:55 2006
@@ -1234,7 +1234,81 @@ CODE
0
OUTPUT
+output_like(<<'CODE', <<OUTPUT, "div_i_i by zero", todo => 'not yet
implemented');
+ set I0, 0
+ set I1, 10
+ div I1, I0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "div_i_ic by zero", todo => 'not yet
implemented');
+ set I1, 10
+ div I1, 0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "div_i_i_i by zero", todo => 'not yet
implemented');
+ set I0, 0
+ set I1, 10
+ div I2, I1, I0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "div_i_ic_i by zero", todo => 'not yet
implemented');
+ set I0, 0
+ div I2, 10, I0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "div_i_i_ic by zero", todo => 'not yet
implemented');
+ set I1, 10
+ div I2, I1, 0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "fdiv_i_i by zero", todo => 'not yet
implemented');
+ set I0, 0
+ set I1, 10
+ fdiv I1, I0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "fdiv_i_ic by zero", todo => 'not yet
implemented');
+ set I1, 10
+ fdiv I1, 0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "fdiv_i_i_i by zero", todo => 'not yet
implemented');
+ set I0, 0
+ set I1, 10
+ fdiv I2, I1, I0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "fdiv_i_ic_i by zero", todo => 'not yet
implemented');
+ set I0, 0
+ fdiv I2, 10, I0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "fdiv_i_i_ic by zero", todo => 'not yet
implemented');
+ set I1, 10
+ fdiv I2, I1, 0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
## remember to change the number of tests :-)
-BEGIN { plan tests => 40; }
+BEGIN { plan tests => 50; }
Modified: trunk/t/op/number.t
==============================================================================
--- trunk/t/op/number.t (original)
+++ trunk/t/op/number.t Tue Jan 10 06:53:55 2006
@@ -1091,7 +1091,81 @@ CODE
1.414214
OUTPUT
+output_like(<<'CODE', <<OUTPUT, "div_n_n by zero", todo => 'not yet
implemented');
+ set N0, 0
+ set N1, 10
+ div N1, N0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "div_n_nc by zero", todo => 'not yet
implemented');
+ set N1, 10
+ div N1, 0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "div_n_n_n by zero", todo => 'not yet
implemented');
+ set N0, 0
+ set N1, 10
+ div N2, N1, N0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "div_n_nc_n by zero", todo => 'not yet
implemented');
+ set N0, 0
+ div N2, 10, N0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "div_n_n_nc by zero", todo => 'not yet
implemented');
+ set N1, 10
+ div N2, N1, 0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "fdiv_n_n by zero", todo => 'not yet
implemented');
+ set N0, 0
+ set N1, 10
+ fdiv N1, N0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "fdiv_n_nc by zero", todo => 'not yet
implemented');
+ set N1, 10
+ fdiv N1, 0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "fdiv_n_n_n by zero", todo => 'not yet
implemented');
+ set N0, 0
+ set N1, 10
+ fdiv N2, N1, N0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "fdiv_n_nc_n by zero", todo => 'not yet
implemented');
+ set N0, 0
+ fdiv N2, 10, N0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "fdiv_n_n_nc by zero", todo => 'not yet
implemented');
+ set N1, 10
+ fdiv N2, N1, 0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
## remember to change the number of tests :-)
-BEGIN { plan tests => 40; }
+BEGIN { plan tests => 50; }
