t/GSL.t

   1 use Test::More 'no_plan';
   2 use Math::GSL;
   3 use Data::Dumper;
   4 use strict;
   5
   6 my $gsl = Math::GSL->new;
   7
   8 my $results = {
   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               };
  38
  39 $gsl->verify_results($results);
  40