2
## Bioperl Test Harness Script for Modules
8
# to handle systems with no installed Test module
9
# we include the t dir (where a copy of Test.pm is located)
12
eval { require Test; };
20
use Bio::Tools::RandomDistFunctions;
22
my $dist = Bio::Tools::RandomDistFunctions->new;
25
ok($dist->rand_exponentional_distribution(1.0));
26
ok($dist->rand_geometric_distribution(0.9));
27
ok($dist->rand_normal_distribution);