t/Machine.t

   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/;
   5 use Data::Dumper;
   6 use strict;
   7 use warnings;
   8
   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};
  13