"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Libtmp/GSL/SF/t/gsl_sf.t" between
PDL-2.082.tar.gz and PDL-2.083.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.082):gsl_sf.t  (PDL-2.083)
skipping to change at line 48 skipping to change at line 48
use PDL::GSLSF::TRIG; use PDL::GSLSF::TRIG;
use PDL::GSLSF::ZETA; use PDL::GSLSF::ZETA;
my $arg = 5.0; my $arg = 5.0;
my $expected = -0.17759677131433830434739701; my $expected = -0.17759677131433830434739701;
my ($y,$err) = gsl_sf_bessel_Jn($arg, 0); my ($y,$err) = gsl_sf_bessel_Jn($arg, 0);
ok(abs($y-$expected) < 1e-6,"GSL SF Bessel function"); ok(abs($y-$expected) < 1e-6,"GSL SF Bessel function");
my $version = `gsl-config --version`; chomp(my $version = `gsl-config --version`);
if ($version >= 2.0) { if ((split /\./, $version)[0] >= 2) {
my $Ylm = gsl_sf_legendre_array(xvals(21)/10-1,'Y',4,-1); my $Ylm = gsl_sf_legendre_array(xvals(21)/10-1,'Y',4,-1);
ok($Ylm->slice("(0)")->uniq->nelem == 1, "Legendre Y00 is constant"); ok($Ylm->slice("(0)")->uniq->nelem == 1, "Legendre Y00 is constant");
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, @_ };
 End of changes. 1 change blocks. 
2 lines changed or deleted 2 lines changed or added

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