ok("$PINF" eq '1.#INF', "positive infinity, $PINF");

##</code><code>##

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