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