t/Machine.t

   1 package Math::GSL::Machine::Test;
   2 use base q{Test::Class};
   3 use Test::More tests=>2;
   4 use Math::GSL          qw/:all/;
   5 use Math::GSL::Machine qw/:all/;
   6 use Math::GSL::Test    qw/:all/;
   7 use Data::Dumper;
   8 use strict;
   9
  10 sub GSL_MACHINE_CONST: Tests {
  11     ok( defined $GSL_MACH_EPS, "GSL_MACH_EPS=$GSL_MACH_EPS" );
  12     ok( defined $GSL_DBL_MIN,  "GSL_DBL_MIN=$GSL_DBL_MIN" );
  13 }
  14
  15 Test::Class->runtests;