1 package Math
::GSL
::Const
::Test
;
2 use base
q{Test::Class};
4 use Math
::GSL qw
/:all/;
5 use Math
::GSL
::SF qw
/:all/;
6 use Math
::GSL
::Const qw
/:all/;
9 sub make_fixture
: Test
(setup
) {
13 sub teardown
: Test
(teardown
) {
16 sub GSL_CONST_CGS
: Tests
{
19 'GSL_CONST_CGS_SPEED_OF_LIGHT' => 29979245800
21 verify
($results, '$Math::GSL::Const');
24 sub MATH_CONSTANTS
: Tests
{
26 ok_similar
( gsl_sf_log
($M_E), 1,'ln($M_E)=1');
27 ok_similar
( gsl_sf_exp
($M_LN2), 2,'e^($M_LN2)=2' );
28 ok_similar
( gsl_sf_exp
($M_LNPI), $M_PI ,'e^($M_LNPI)=$M_PI');
29 ok_similar
( $M_SQRT2 ** 2, 2,'($M_SQRT2)**2=2' );
30 ok_similar
( $M_EULER, 0.577215664901532860606512090082 );