1 use Test::More 'no_plan';
6 my $gsl = Math::GSL->new;
9 q{is_valid_double(420)} => 1,
10 q{is_valid_double(0)} => 1,
11 q{is_valid_double(-1e5)} => 1,
12 q{is_valid_double(1e-5)} => 1,
13 q{is_valid_double(1e309)} => 0,
14 q{is_valid_double(1e-309)} => 0,
15 q{is_valid_double('nan')} => 0,
16 q{is_valid_double('inf')} => 0,
17 q{is_valid_float(0)} => 1,
18 q{is_valid_float(3.14)} => 1,
19 q{is_valid_float(-2e24)} => 1,
20 q{is_valid_float(1e39)} => 0,
21 q{is_valid_float()} => 0,
22 q{is_valid_float('foo')} => 0,
23 q{is_valid_float('e')} => 0,
24 q{is_valid_float('nan')} => 0,
25 q{is_valid_float('inf')} => 0,
26 q{is_valid_float(0e0)} => 1,
27 q{is_valid_float(0e1)} => 1,
28 q{is_valid_float(1E1)} => 1,
29 q{is_valid_float(1E1)} => 1,
30 q{is_valid_float(1e0)} => 1,
31 q{is_valid_float(1e0)} => 1,
32 q{is_valid_float('0e0')} => 1,
33 q{is_similar(5,5)} => 1,
34 q{is_similar(5,4)} => 0,
35 q{is_similar(0.10005,0.1000501, 1e-5)} => 1,
36 q{is_similar(0.10005,0.1000501, 1e-7)} => 0,
37 q{is_similar([1,2,3 ], [1,2,3.001])} => 0,
38 q{is_similar([1,2,3.001], [1,2,3.001])} => 1,
39 q{is_similar([1,2,3.0010001], [1,2,3.0010002], 1e-5)} => 1,
40 q{is_similar([1,2,3.0010001], [1,2,3.0010002] )} => 0,
43 $gsl->verify_results($results);