t/Sys.t

   1 package Math::GSL::Sys::Test;
   2 use Math::GSL::Test qw/:all/;
   3 use base q{Test::Class};
   4 use Test::More;
   5 use Math::GSL::Sys qw/:all/;
   6 use Math::GSL qw/:all/;
   7 use Data::Dumper;
   8 use strict;
   9
  10 sub make_fixture : Test(setup) {
  11 }
  12
  13 sub teardown : Test(teardown) {
  14 }
  15
  16 sub SANITY : Tests {
  17     ok( gsl_isnan(gsl_nan()), 'I like nan');
  18     ok(!gsl_isnan(0.0), '0 is a number');
  19     ok(!gsl_isnan(1.0), '1 is a number');
  20     ok( gsl_isnan(gsl_log1p(-1)), 'ln(0)=nan');
  21     ok(!gsl_isnan(gsl_posinf()), 'posinf is a number');
  22     ok( gsl_isinf(gsl_posinf()),'posinf is inf' );
  23     ok( gsl_isinf(gsl_neginf()),'neginf is inf' );
  24     ok(!gsl_isinf(gsl_nan()),'nan is not inf' );
  25
  26     ok( gsl_finite(0.0), '0 is finite' );
  27     ok( gsl_finite(1.0), '1 is finite' );
  28     ok(!gsl_finite(gsl_nan()), 'nan is not finite' );
  29     ok(!gsl_finite(gsl_posinf()),'posinf is not finite' );
  30     ok(!gsl_finite(gsl_neginf()),'neginf is not finite' );
  31 }
  32
  33 Test::Class->runtests;