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

print "1..1\n";

my @me = (['inf', undef], ['+inf', 0], ['1234', -12], ['0', 123], ['1', 6200],
          ['inf', 17], ['-inf', ''], ['-1234', -12], ['-0', 123], ['-1', 6200],
          ['nan', -3], ['+nan', 0], ['-nan', ''], ['nan', 0], ['+0', 2], ['+123', 7000]);

my @pv = ('inf', 'inf', '1234e-12', '0e123', '1e6200', 'inf', '-inf', '-1234e-12', '-0e123',
       '-1e6200', 'nan', 'nan', '-nan', 'nan', '+0e2', '+123e7000');

my $ok = 1;

for(my $i = 0; $i < @me; $i++) {
  if(MEtoPV(@{$me[$i]}) ne $pv[$i]) {
    $ok = 0;
    warn "\n [ @{$me[$i]} ] does not translate to $pv[$i]\n";
  }
}

if($ok) {print "ok 1\n"}
else    {print "not ok 1\n"}