This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/opbasic/arith.t - extra tests to better exercise dleft/dright paths in pp_modulo
authorRichard Leach <richardleach@users.noreply.github.com>
Fri, 18 Sep 2020 22:10:24 +0000 (23:10 +0100)
committerTony Cook <tony@develop-help.com>
Wed, 14 Oct 2020 04:50:38 +0000 (04:50 +0000)
t/opbasic/arith.t

index 96b243b..69ea784 100644 (file)
@@ -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';