view release on metacpan or  search on metacpan

t/691-nanf.t  view on Meta::CPAN

#!perl
use 5.006;
use strict;
use warnings;
use Test::More;

our $VERSION = '0.06';

use GCC::Builtins qw/:all/;

my $res = nanf('some string');
my $expected = "NaN";
if( $expected =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/ ){
	my $dif = abs($res-$expected);
	ok($dif<1e-09, "called nanf('some string') returned ($res) and expected ($expected) values differ ($dif) by less than 1e-09.");
} else {
	is(lc($res), lc($expected), "called nanf('some string') returned ($res) and expected ($expected) values are identical.");
}
diag("copy-this-expected-value 'nanf' => '$res',");

done_testing();