t/Machine.t

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