t/RandDistFunctions.t

   1 # -*-Perl-*- Test Harness script for Bioperl
   2 # $Id$
   3
   4 use strict;
   5
   6 BEGIN {
   7     use lib 't/lib';
   8     use BioperlTest;
   9
  10     test_begin(-tests => 5);
  11
  12     use_ok('Bio::Tools::RandomDistFunctions');
  13 }
  14
  15
  16 ok my $dist = Bio::Tools::RandomDistFunctions->new();
  17
  18 ok($dist->rand_exponentional_distribution(1.0));
  19 ok($dist->rand_geometric_distribution(0.9));
  20 ok($dist->rand_normal_distribution);
  21
  22 # TODO? these tests seem pretty pointless!