Permalink
Fetching contributors…
Cannot retrieve contributors at this time
18 lines (15 sloc) 466 Bytes
package Math::GSL::Machine::Test;
use base q{Test::Class};
use Test::More tests=>2;
use Math::GSL qw/:all/;
use Math::GSL::Machine qw/:all/;
use Math::GSL::Test qw/:all/;
use Math::GSL::Errno qw/:all/;
use Data::Dumper;
use strict;
BEGIN { gsl_set_error_handler_off() }
sub GSL_MACHINE_CONST: Tests {
ok( defined $GSL_MACH_EPS, "GSL_MACH_EPS=$GSL_MACH_EPS" );
ok( defined $GSL_DBL_MIN, "GSL_DBL_MIN=$GSL_DBL_MIN" );
}
Test::Class->runtests;