use warnings;
use strict;
use Math::Decimal64 qw(:all);
print "1..7\n";
my $nan = NaND64();
my $ninf = InfD64(-1);
my $pinf = InfD64(1);
my $zero = ZeroD64(-1);
my $none = UnityD64(-1);
my $pone = UnityD64(1);
if(!defined($nan <=> $ninf) && !defined($nan <=> $pinf)) {print "ok 1\n"}
else {print "not ok 1\n"}
if(($pinf <=> $ninf) > 0) {print "ok 2\n"}
else {print "not ok 2\n"}
if(($ninf <=> $pinf) < 0) {print "ok 3\n"}
else {print "not ok 3\n"}
if(($ninf <=> $none) < 0) {print "ok 4\n"}
else {print "not ok 4\n"}
if(($none <=> $ninf) > 0) {print "ok 5\n"}
else {print "not ok 5\n"}
unless($zero <=> ZeroD64(1)) {print "ok 6\n"}
else {print "not ok 6\n"}
unless(($pone + $none) <=> $zero) {print "ok 7\n"}
else {print "not ok 7\n"}