use warnings;
use strict;
use Math::LongDouble qw(:all);

print "1..15\n";

my($uv, $iv, $nv, $pv, $pv_copy1, $pv_copy2);

$uv = Math::LongDouble->new(~0);
if($uv == UVtoLD(~0)) {print "ok 1\n"}
else {
  warn "New: $uv\nUVtoLD: ", UVtoLD(~0), "\n";
  print "not ok 1\n";
}

$iv = Math::LongDouble->new(-23);
$pv = Math::LongDouble->new('-23');

if($pv == $iv){print "ok 2\n"}
else {
  warn "\$pv: $pv\n\$iv: $iv\n";
  print "not ok 2\n";
}

$pv += Math::LongDouble->new(0.5);
$nv = Math::LongDouble->new(-22.5);

if($pv == $nv) {print "ok 3\n"}
else {
  warn "\$pv: $pv\n\$nv: $nv\n";
  print "not ok 3\n";
}

$pv_copy1 = $pv;

if($pv == $pv_copy1) {print "ok 4\n"}
else {
  warn "\$pv: $pv\n\$pv_copy1: $pv_copy1\n";
  print "not ok 4\n";
}

$pv_copy2 = Math::LongDouble->new($pv);

if($pv == $pv_copy2) {print "ok 5\n"}
else {
  warn "\$pv: $pv\n\$pv_copy2: $pv_copy2\n";
  print "not ok 5\n";
}

$uv = Math::LongDouble::new(~0);
if($uv == UVtoLD(~0)) {print "ok 6\n"}
else {
  warn "New: $uv\nUVtoLD: ", UVtoLD(~0), "\n";
  print "not ok 6\n";
}

$iv = Math::LongDouble::new(-23);
$pv = Math::LongDouble::new('-23');

if($pv == $iv){print "ok 7\n"}
else {
  warn "\$pv: $pv\n\$iv: $iv\n";
  print "not ok 7\n";
}

$pv += Math::LongDouble::new(0.5);
$nv = Math::LongDouble::new(-22.5);

if($pv == $nv) {print "ok 8\n"}
else {
  warn "\$pv: $pv\n\$nv: $nv\n";
  print "not ok 8\n";
}

$pv_copy1 = $pv;

if($pv == $pv_copy1) {print "ok 9\n"}
else {
  warn "\$pv: $pv\n\$pv_copy1: $pv_copy1\n";
  print "not ok 9\n";
}

$pv_copy2 = Math::LongDouble::new($pv);

if($pv == $pv_copy2) {print "ok 10\n"}
else {
  warn "\$pv: $pv\n\$pv_copy2: $pv_copy2\n";
  print "not ok 10\n";
}

$uv = new Math::LongDouble(~0);
if($uv == UVtoLD(~0)) {print "ok 11\n"}
else {
  warn "New: $uv\nUVtoLD: ", UVtoLD(~0), "\n";
  print "not ok 11\n";
}

$iv = new Math::LongDouble(-23);
$pv = new Math::LongDouble('-23');

if($pv == $iv){print "ok 12\n"}
else {
  warn "\$pv: $pv\n\$iv: $iv\n";
  print "not ok 12\n";
}

$pv += new Math::LongDouble(0.5);
$nv =  new Math::LongDouble(-22.5);

if($pv == $nv) {print "ok 13\n"}
else {
  warn "\$pv: $pv\n\$nv: $nv\n";
  print "not ok 13\n";
}

$pv_copy1 = $pv;

if($pv == $pv_copy1) {print "ok 14\n"}
else {
  warn "\$pv: $pv\n\$pv_copy1: $pv_copy1\n";
  print "not ok 14\n";
}

$pv_copy2 = new Math::LongDouble($pv);

if($pv == $pv_copy2) {print "ok 15\n"}
else {
  warn "\$pv: $pv\n\$pv_copy2: $pv_copy2\n";
  print "not ok 15\n";
}