Lines Matching defs:ok
29 sub ok { print +(($_[0] eq $_[1]) ? "": "not "), "ok ",++$i,"\n" }
33 ok(!!looks_like_number("1"), 1);
34 ok(!!looks_like_number("-1"), 1);
35 ok(!!looks_like_number("+1"), 1);
36 ok(!!looks_like_number("1.0"), 1);
37 ok(!!looks_like_number("+1.0"), 1);
38 ok(!!looks_like_number("-1.0"), 1);
39 ok(!!looks_like_number("-1.0e-12"), 1);
40 ok(!!looks_like_number("Inf"), $] >= 5.006001);
41 ok(!!looks_like_number("Infinity"), $] >= 5.008);
42 ok(!!looks_like_number("NaN"), $] >= 5.008);
43 ok(!!looks_like_number("foo"), '');
44 ok(!!looks_like_number(undef), 1);