From b545f90c4651f25784b7cab32e28de6b825d75a3 Mon Sep 17 00:00:00 2001 From: Duke Leto Date: Sun, 15 Mar 2009 00:14:30 -0700 Subject: [PATCH] Refactor SF --- t/SF.t | 17 +++++++---------- 1 file changed, 7 insertions(+), 10 deletions(-) diff --git a/t/SF.t b/t/SF.t index 621c91a..bff997b 100644 --- a/t/SF.t +++ b/t/SF.t @@ -2,7 +2,6 @@ package Math::GSL::SF::Test; use Math::GSL::Test qw/:all/; use base q{Test::Class}; use Test::More tests => 1109; -use Math::GSL qw/:all/; use Math::GSL::Const qw/:all/; use Math::GSL::Errno qw/:all/; use Math::GSL::SF qw/:all/; @@ -13,22 +12,20 @@ use Data::Dumper; use strict; use warnings; -BEGIN{ gsl_set_error_handler_off(); } -my $factor = 100; -my $TOL1 = $factor*16.0*$GSL_DBL_EPSILON; +BEGIN { gsl_set_error_handler_off() } + +my $factor = 100; +my $TOL1 = $factor*16.0*$GSL_DBL_EPSILON; my $SQRT_TOL0 = 2.0*$GSL_SQRT_DBL_EPSILON; -my $DELTA = 1.2246467991473531772e-16; -my $w = 0.8*$GSL_LOG_DBL_MAX; -my $y = 0.2*$GSL_DBL_MAX; +my $DELTA = 1.2246467991473531772e-16; +my $w = 0.8*$GSL_LOG_DBL_MAX; +my $y = 0.2*$GSL_DBL_MAX; sub make_fixture : Test(setup) { - my $w = 0.8*$GSL_LOG_DBL_MAX; - my $y = 0.2*$GSL_DBL_MAX; } sub teardown : Test(teardown) { } - sub TEST_THE_KITCHEN_SINK : Tests { my $results = { 'gsl_sf_airy_Ai_e(-5, $Math::GSL::GSL_MODE_DEFAULT, $r)' => 0.3507610090241142, -- 2.11.4.GIT