[perl5.git] / t / op / arith.t

#!./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;
Commit	Line	Data
54310121	1	#!./perl
	2
	3	print "1..4\n";
	4
	5	sub try ($$) {
	6	print +($_[1] ? "ok" : "not ok"), " $_[0]\n";
	7	}
	8
	9	try 1, 13 % 4 == 1;
	10	try 2, -13 % 4 == 3;
	11	try 3, 13 % -4 == -3;
	12	try 4, -13 % -4 == -1;