view release on metacpan or  search on metacpan

t/assignPVl.t  view on Meta::CPAN

}
else {
  warn "\nExpected -0\nGot $d128\n";
  warn "nnumflagl expected 4, got ", nnumflagl(), "\n";
  print "not ok 65\n";
}

assignPVl($d128, " \r \n \t \f -23e-2");

if("$d128" eq '-23e-2') {print "ok 66\n"}
else {
  warn "\nExpected -23e-2\nGot $d128\n";
  print "not ok 66\n";
}

assignPVl($d128, " \r \n \t \f -23 e-2");

if("$d128" eq '-23e0' && nnumflagl() == 5) {print "ok 67\n"}
else {
  warn "\nExpected -23e0\nGot $d128\n";
  warn "nnumflagl expected 5, got ", nnumflagl(), "\n";
  print "not ok 67\n";
}

assignPVl($d128, " -23e -2");

if("$d128" eq '-23e0') {print "ok 68\n"}
else {
  warn "\nExpected -23e0\nGot $d128\n";
  print "not ok 68\n";
}

assignPVl($d128, "2 3e-2");

if("$d128" eq '2e0' && nnumflagl() == 7) {print "ok 69\n"}
else {
  warn "\nExpected 2e0\nGot $d128\n";
  warn "nnumflagl expected 7, got ", nnumflagl(), "\n";
  print "not ok 69\n";
}

assignPVl($d128, ' inf  ');

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

assignPVl($d128, ' +inf  ');

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 #
###################################

assignPVl($d128, '-a23');

if("$d128" eq '-0' && nnumflagl() == 9) {print "ok 73\n"}
elsif("$d128" eq '0' && nnumflagl() == 9) {
  warn "\nThis compiler/libc doesn't honor sign of zero correctly\n";
  warn "This is not a failing of the module\n";
  print "ok 73\n";
}
else {
  warn "\nExpected -0\nGot $d128\n";
  warn "nnumflagl expected 9, got ", nnumflagl(), "\n";
  print "not ok 73\n";
}

assignPVl($d128, " \r \n \t \f -23e-2.");

if("$d128" eq '-23e-2') {print "ok 74\n"}
else {
  warn "\nExpected -23e-2\nGot $d128\n";
  print "not ok 74\n";
}

assignPVl($d128, " \r \n \t \f -23ae-2");

if("$d128" eq '-23e0' && nnumflagl() == 11) {print "ok 75\n"}
else {
  warn "\nExpected -23e0\nGot $d128\n";
  warn "nnumflagl expected 11, got ", nnumflagl(), "\n";
  print "not ok 75\n";
}

assignPVl($d128, " -23ea-2");

if("$d128" eq '-23e0') {print "ok 76\n"}
else {
  warn "\nExpected -23e0\nGot $d128\n";
  print "not ok 76\n";
}

assignPVl($d128, "2a3e-2");

if("$d128" eq '2e0') {print "ok 77\n"}
else {
  warn "\nExpected 2e0\nGot $d128\n";
  print "not ok 77\n";
}

assignPVl($d128, ' infa ');