view release on metacpan or  search on metacpan

t/assignPV.t  view on Meta::CPAN

}
else {
  warn "\nExpected -0\nGot $d64\n";
  warn "nnumflag expected 6, got ", nnumflag(), "\n";
  print "not ok 65\n";
}

assignPV($d64, " \r \n \t \f -23e-2");

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

assignPV($d64, " \r \n \t \f -23 e-2");

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

assignPV($d64, " -23e -2");

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

assignPV($d64, "2 3e-2");

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

assignPV($d64, ' inf  ');

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

assignPV($d64, ' +inf  ');

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

assignPV($d64, ' -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_nnum(10)}

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

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

assignPV($d64, '-a23');

if("$d64" eq '-0' && nnumflag() == 11) {print "ok 73\n"}
elsif("$d64" eq '0' && nnumflag() == 11){
  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 $d64\n";
  warn "nnumflag expected 11, got ", nnumflag(), "\n";
  print "not ok 73\n";
}

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

if("$d64" eq '-23e-2' && nnumflag() == 12) {print "ok 74\n"}
else {
  warn "\nExpected -23e-2\nGot $d64\n";
  warn "nnumflag expected 12, got ", nnumflag(), "\n";
  print "not ok 74\n";
}

assignPV($d64, " \r \n \t \f -23ae-2");

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

assignPV($d64, " -23ea-2");

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

assignPV($d64, "2a3e-2");

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