t/GSL.t

   1 package Math::GSL::GSL::Test;
   2 use base q{Test::Class};
   3 use Test::More;
   4 use Math::GSL::SF      qw/:all/;
   5 use Math::GSL::BLAS    qw/:all/;
   6 use Math::GSL::Vector  qw/:all/;
   7 use Math::GSL::Complex qw/:all/;
   8 use Math::GSL::Matrix  qw/:all/;
   9 use Math::GSL::CBLAS   qw/:all/;
  10 use Math::GSL          qw/:all/;
  11 use Math::GSL::Test qw/:all/;
  12 use Data::Dumper;
  13 use Math::GSL::Errno qw/:all/;
  14 use strict;
  15
  16 BEGIN { gsl_set_error_handler_off(); }
  17
  18 sub make_fixture : Test(setup) {
  19 }
  20
  21 sub teardown : Test(teardown) {
  22 }
  23
  24 sub TEST_STUFF : Tests {
  25     {
  26         my $results = {
  27                     q{is_similar(undef, [1,2,3]) }                        => [ 0 ],
  28                     q{is_similar(0.10005,0.1000501, 1e-5)}                => [ 1 ],
  29                     q{is_similar(0.10005,0.1000501, 1e-7)}                => [ 0 ],
  30                     q{is_similar([1,2,3    ], [1,2,3.001])}               => [ 0 ],
  31                     q{is_similar([1,2,3.001], [1,2,3.001])}               => [ 1 ],
  32                     q{is_similar([1,2,3.001], [1,2,3.001],1e-2)}          => [ 1 ],
  33                     q{is_similar([1,2,3.0010001], [1,2,3.0010002], 1e-5)} => [ 1 ],
  34                     q{is_similar([1,2,3.0010001], [1,2,3.0010002] )}      => [ 0 ],
  35                     q{is_similar_relative( 1e8, 1e8 + 1, 1e-7) }          => [ 1 ],
  36                     q{is_similar_relative( 1e8, 1e8 + 1e3, 1e-7) }        => [ 0 ],
  37         };
  38
  39         verify($results, 'Math::GSL');
  40     }
  41     {
  42             ok_status(0,$GSL_SUCCESS);
  43             ok_status(0);
  44     }
  45     {
  46         my $fh = gsl_fopen('mrfuji','w');
  47         ok(defined $fh, 'gsl_fopen can create files');
  48         ok_status(gsl_fclose($fh));
  49     }
  50     {
  51         my $fh = gsl_fopen('mrfuji','r');
  52         ok(defined $fh, 'gsl_fopen can read files');
  53         ok_status(gsl_fclose($fh));
  54         unlink 'mrfuji' if -e 'mrfuji';
  55     }
  56
  57 }
  58
  59 Test::Class->runtests;