t/06virtual.i near replacement

gistfile1.txt

sub near ($$$) {
    my ($got, $expect, $test) = @_;
    my $d = $expect ? abs($got/$expect - 1) : abs($got);
    local $Test::Builder::Level = $Test::Builder::Level + 1;
    $expect =~ /nan/i ? 
       ok( $got eq $expect, $test)  || diag("NaN is? $got ~= $expect") :
       cmp_ok($d, '<', $eps, $test) || diag("near? $got ~= $expect");
}