inf_nan.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
# Thanx to Jarkko for the excellent explanations and the tables
use Test;
use strict;
{
chdir 't' if -d 't';
}
{
$| = 1;
# to locate the testing files
{
}
if (-d 't')
{
chdir 't';
}
else
{
}
print "# INC = @INC\n";
# values groups operators classes tests
7 * 6 * 2 * 4 * 1; # bmod
}
my @classes =
/;
my (@args,$x,$y,$z);
# +
foreach (qw/
-1:-1:-2
-0:-1:-1
0:-1:-1
1:-1:0
-1:0:-1
-0:0:0
0:0:0
1:0:1
-1:1:0
-0:1:1
0:1:1
1:1:2
/)
{
{
}
}
# -
foreach (qw/
-1:-1:0
-0:-1:1
0:-1:1
1:-1:2
-1:0:-1
-0:0:-0
0:0:0
1:0:1
-1:1:-2
-0:1:-1
0:1:-1
1:1:0
/)
{
{
}
}
# *
foreach (qw/
-1:-1:1
-0:-1:0
0:-1:-0
1:-1:-1
-1:0:-0
-0:0:-0
0:0:0
1:0:0
-1:1:-1
-0:1:-0
0:1:0
1:1:1
/)
{
{
}
}
# /
foreach (qw/
-1:-inf:0
-0:-inf:0
0:-inf:-0
1:-inf:-0
-1:-1:1
-0:-1:0
0:-1:-0
1:-1:-1
-1:0:-inf
-0:0:NaN
0:0:NaN
1:0:inf
-1:1:-1
-0:1:-0
0:1:0
1:1:1
-1:inf:-0
-0:inf:-0
0:inf:0
1:inf:0
/)
{
{
# bdiv in scalar context
# bmod and bdiv in list context
# bdiv in list context
# bmod
# bmod() agrees with bdiv?
# bmod() return agrees with set value?
}
}