t/opbasic/arith.t - extra tests to better exercise dleft/dright paths in pp_modulo

1 files changed, 7 insertions, 1 deletions

diff --git a/t/opbasic/arith.t b/t/opbasic/arith.t
index 96b243b2c5..69ea784a02 100644
--- a/t/opbasic/arith.t
+++ b/t/opbasic/arith.t
@@ -10,7 +10,7 @@ BEGIN {
 # functions imported from t/test.pl or Test::More, as those programs/libraries
 # use operators which are what is being tested in this file.
 
-print "1..186\n";
+print "1..189\n";
 
 sub try ($$$) {
    print +($_[1] ? "ok" : "not ok") . " $_[0] - $_[2]\n";
@@ -45,6 +45,12 @@ tryeq $T++, -13 %  4, 3, 'modulo: negative positive';
 tryeq $T++,  13 % -4, -3, 'modulo: positive negative';
 tryeq $T++, -13 % -4, -1, 'modulo: negative negative';
 
+# Exercise some of the dright/dleft logic in pp_modulo
+
+tryeq $T++, 13.333333 % 5.333333, 3, 'modulo: 13.333333 % 5.333333';
+tryeq $T++, 13.333333 % 5,        3, 'modulo: 13.333333 % 5';
+tryeq $T++, 13 % 5.333333,        3, 'modulo: 13 % 5.333333';
+
 # Give abs() a good work-out before using it in anger
 tryeq $T++, abs(0), 0, 'abs(): 0 0';
 tryeq $T++, abs(1), 1, 'abs(): 1 1';