view release on metacpan or  search on metacpan

t/assignPVl.t  view on Meta::CPAN

if(is_InfD128($d128) == 1) {print "ok 71\n"}
else {
  warn "Inf: $d128\n";
  print "not ok 71\n";
}

assignPVl($d128, ' -0.162.235');

# Allow for known brokenness of 5.21.x (for x < 9) builds of perl.
if($] lt '5.021009' && $] ge '5.021001') {set_nnuml(8)}

if("$d128" eq '-162e-3' && nnumflagl() == 8) {print "ok 72\n"}
else {
  warn "\nExpected -162e-3\nGot $d128\n";
  warn "nnumflagl expected 8, got ", nnumflagl(), "\n";
  print "not ok 72\n";
}

###################################
# Do some checks for non-numerics #