t/Const.t

   1 package Math::GSL::Const::Test;
   2 use Math::GSL::Test qw/:all/;
   3 use base q{Test::Class};
   4 use Test::More;
   5 use Math::GSL qw/:all/;
   6 use Math::GSL::SF qw/:all/;
   7 use Math::GSL::Const qw/:all/;
   8 use strict;
   9
  10 sub make_fixture : Test(setup) {
  11     my $self = shift;
  12 }
  13
  14 sub teardown : Test(teardown) {
  15 }
  16
  17 sub GSL_CONST_CGS : Tests {
  18     my $self = shift;
  19     my $results = {
  20         'GSL_CONST_CGS_SPEED_OF_LIGHT' => 29979245800
  21     };
  22     verify($results, '$Math::GSL::Const');
  23 }
  24
  25 sub MATH_CONSTANTS : Tests {
  26     my $self = shift;
  27     ok_similar( gsl_sf_log($M_E), 1,'ln($M_E)=1');
  28     ok_similar( gsl_sf_exp($M_LN2), 2,'e^($M_LN2)=2' );
  29     ok_similar( gsl_sf_exp($M_LNPI), $M_PI ,'e^($M_LNPI)=$M_PI');
  30     ok_similar( $M_SQRT2 ** 2, 2,'($M_SQRT2)**2=2' );
  31     ok_similar( $M_EULER, 0.577215664901532860606512090082 );
  32 }
  33
  34 Test::Class->runtests;