1 use Test::More tests=>2;
2 use Math::GSL qw/:all/;
3 use Math::GSL::Machine qw/:all/;
4 use Math::GSL::Test qw/:all/;
9 ok( defined $GSL_MACH_EPS, 'GSL_MACH_EPS');
10 print "Machine Epsilon=$GSL_MACH_EPS\n" if $ENV{DEBUG};
11 ok( defined $GSL_DBL_MIN, 'GSL_DBL_MIN' );
12 print "Machine Double Min=$GSL_DBL_MIN\n" if $ENV{DEBUG};