"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Libtmp/GSL/SF/t/gsl_sf.t" between
PDL-2.074.tar.gz and PDL-2.075.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

gsl_sf.t  (PDL-2.074):gsl_sf.t  (PDL-2.075)
skipping to change at line 62 skipping to change at line 62
ok(approx($Ylm->slice("(0),(0)"),0.5/sqrt(3.141592654),1E-6), "Y00 value is co rect"); ok(approx($Ylm->slice("(0),(0)"),0.5/sqrt(3.141592654),1E-6), "Y00 value is co rect");
} }
{ {
# Check that the PDL error handler gets called instead of aborting # Check that the PDL error handler gets called instead of aborting
# Failure is an abort. # Failure is an abort.
my @warning; my @warning;
local $SIG{__WARN__} = sub { push @warning, @_ }; local $SIG{__WARN__} = sub { push @warning, @_ };
my $err_test = eval {gsl_sf_lngamma(pdl(0))}; my $err_test = eval {gsl_sf_lngamma(pdl(0))};
isnt $@, '', "Got an error for invalid input"; isnt $@, '', "Got an error for invalid input";
ok @warning > 0, 'Got warnings Ok'; ok !@warning, 'no warnings' or diag explain \@warning;
} }
($y, my $e) = gsl_sf_airy_Ai(sequence(4)); ($y, my $e) = gsl_sf_airy_Ai(sequence(4));
ok all approx($y, pdl([0.35502805, 0.13529242, 0.03492413, 0.0065911394])); ok all approx($y, pdl([0.35502805, 0.13529242, 0.03492413, 0.0065911394]));
ok all approx($e, pdl([8.3366727e-17, 5.6151774e-17, 3.9261626e-17, 1.0852712e-1 7])); ok all approx($e, pdl([8.3366727e-17, 5.6151774e-17, 3.9261626e-17, 1.0852712e-1 7]));
done_testing; done_testing;
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)