t/QRNG.t

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