[svn:parrot] r11052 - trunk/t/op

[particle]

Author: particle
Date: Tue Jan 10 11:38:22 2006
New Revision: 11052

Modified:
   trunk/t/op/integer.t
   trunk/t/op/number.t
Log:
t: add 'divide by zero' tests for cmod

Modified: trunk/t/op/integer.t
==============================================================================
--- trunk/t/op/integer.t        (original)
+++ trunk/t/op/integer.t        Tue Jan 10 11:38:22 2006
@@ -1308,7 +1308,29 @@ CODE
 /.*Divide by zero.*/
 OUTPUT
 
+output_like(<<'CODE', <<OUTPUT, "cmod_i_i_i by zero");
+       set I0, 0
+       set I1, 10
+       cmod I2, I1, I0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "cmod_i_ic_i by zero");
+       set I0, 0
+       cmod I2, 10, I0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "cmod_i_i_ic by zero");
+       set I1, 10
+       cmod I2, I1, 0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
 
 ## remember to change the number of tests :-)
-BEGIN { plan tests => 50; }
+BEGIN { plan tests => 53; }
 

Modified: trunk/t/op/number.t
==============================================================================
--- trunk/t/op/number.t (original)
+++ trunk/t/op/number.t Tue Jan 10 11:38:22 2006
@@ -1165,7 +1165,29 @@ CODE
 /.*Divide by zero.*/
 OUTPUT
 
+output_like(<<'CODE', <<OUTPUT, "cmod_n_n_n by zero");
+       set N0, 0
+       set N1, 10
+       cmod N2, N1, N0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "cmod_n_nc_n by zero");
+       set N0, 0
+       cmod N2, 10, N0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
+output_like(<<'CODE', <<OUTPUT, "cmod_n_n_nc by zero");
+       set N1, 10
+       cmod N2, N1, 0
+CODE
+/.*Divide by zero.*/
+OUTPUT
+
 
 ## remember to change the number of tests :-)
-BEGIN { plan tests => 50; }
+BEGIN { plan tests => 53; }