POSIX/t/posix.t

189     skip("strtold() not present", 3) unless $Config{d_strtold};
196     # we're just checking that strtold works, not how accurate it is
197     ($n, $x) = &POSIX::strtold('2.718_ISH');
198     cmp_ok(abs("2.718" - $n), '<', 1e-6, 'strtold works');
199     is($x, 4, 'strtold works');
201     # If $Config{nvtype} is 'long double' we check that strtold assigns the same value as
208       $n = &POSIX::strtold('9.81256119e4820');
209       cmp_ok($n, '==', 9.81256119e4820, "strtold and perl agree $weasel_words");
212       $n = &POSIX::strtold('9.81256119e4820');
214         cmp_ok($n, '==', 9.81256119e4820, "strtold and perl agree $weasel_words");
217         cmp_ok($n, '!=', 9.81256119e4820, "strtold and perl should differ $weasel_words");
221       cmp_ok(1, '==', 1, 'skipping comparison between strtold amd perl');