t/QRNG.t

   1 package Math::GSL::QRNG::Test;
   2 use Math::GSL::Test qw/:all/;
   3 use base q{Test::Class};
   4 use Test::More;
   5 use Math::GSL::QRNG qw/:all/;
   6 use Math::GSL qw/:all/;
   7 use Data::Dumper;
   8 use Math::GSL::Errno qw/:all/;
   9 use strict;
  10
  11 sub make_fixture : Test(setup) {
  12     my $self = shift;
  13     $self->{sobol} = gsl_qrng_alloc($gsl_qrng_sobol, 2);
  14 }
  15
  16 sub teardown : Test(teardown) {
  17     my $self = shift;
  18     gsl_qrng_free($self->{sobol});
  19 }
  20
  21 sub GSL_QRNG_ALLOC : Tests {
  22     my $qrng = gsl_qrng_alloc($gsl_qrng_sobol, 2);
  23     isa_ok( $qrng, 'Math::GSL::QRNG');
  24 }
  25
  26 sub GSL_QRNG_STATE_SIZE : Tests {
  27     my $self = shift;
  28     my $state  = gsl_qrng_state($self->{sobol});
  29     my $size   = gsl_qrng_size($self->{sobol});
  30     ok( defined $state && $state >0 , 'gsl_qrng_state' );
  31     ok( defined $size && $size > 0, 'gsl_qrng_size' );
  32 }
  33
  34 sub GSL_QRNG_CLONE : Tests {
  35     my $self = shift;
  36     my $droid = gsl_qrng_clone($self->{sobol});
  37     isa_ok($droid, 'Math::GSL::QRNG' );
  38 }
  39
  40 sub GSL_QRNG_NAME : Tests {
  41     my $self = shift;
  42     my $name = gsl_qrng_name($self->{sobol});
  43     ok ($name eq 'sobol', 'gsl_qrng_name' );
  44 }
  45
  46 sub GSL_QRNG_GET : Tests {
  47     my $self = shift;
  48     my ($status, @values)= gsl_qrng_get($self->{sobol});
  49
  50     is ($status, $GSL_SUCCESS);
  51     ok_similar( [ 0.5, 0.5 ], \@values, 'gsl_qrng_get returns multiple values' );
  52     ($status, @values)= gsl_qrng_get($self->{sobol});
  53     ok_similar( [ 0.75, 0.25 ], \@values, 'gsl_qrng_get returns correct values for sobol' );
  54 }
  55 Test::Class->runtests;