ok("$PINF" eq 'Inf', "positive infinity, $PINF");