From 5d1d2e6a135ce1bee9933f6a4aa5b53669f9e79f Mon Sep 17 00:00:00 2001 From: Duke Leto Date: Sat, 9 May 2009 00:40:09 -0700 Subject: [PATCH] Add some tests to Randist --- t/Randist.t | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/t/Randist.t b/t/Randist.t index 78694a8..3152360 100644 --- a/t/Randist.t +++ b/t/Randist.t @@ -1,22 +1,27 @@ package Math::GSL::Randist::Test; use base q{Test::Class}; -use Test::More tests => 1; +use Test::More tests => 4; use Math::GSL::Test qw/:all/; use Math::GSL::RNG qw/:all/; use Math::GSL::Errno qw/:all/; use Math::GSL::Randist qw/:all/; +use Math::GSL::Const qw/ $M_PI /; use Data::Dumper; + use strict; sub make_fixture : Test(setup) { my $self = shift; - $self->{vector} = gsl_rng_alloc($gsl_rng_default); } sub teardown : Test(teardown) { } -sub GSL_RAN_BERNOULLI_PDF : Tests { - ok_similar( 0, gsl_ran_bernoulli_pdf(2, 0.5), '=0 at (2,0.5)' ); -} +sub GSL_RAN_PDF : Tests(4) { + my $rng = Math::GSL::RNG->new; + ok_similar(0, gsl_ran_bernoulli_pdf(2, 0.5), 'gsl_ran_bernoulli_pdf(2,0.5)=0' ); + ok_similar( gsl_ran_gaussian_pdf(0,1), 1/sqrt(2*$M_PI) ); + ok_similar( gsl_ran_ugaussian_pdf(0), 1/sqrt(2*$M_PI) ); + ok_similar( gsl_ran_chisq_pdf(1,2), exp(-1/2)/2 ); +} Test::Class->runtests; -- 2.11.4.GIT