freebsd-dev/contrib/perl5/t/op/arith.t

13 lines
186 B
Raku
Executable File

#!./perl
print "1..4\n";
sub try ($$) {
print +($_[1] ? "ok" : "not ok"), " $_[0]\n";
}
try 1, 13 % 4 == 1;
try 2, -13 % 4 == 3;
try 3, 13 % -4 == -3;
try 4, -13 % -4 == -1;