lib/Math/GSL/Statistics/Test.pm

   1 package Math::GSL::Statistics::Test;
   2 use base q{Test::Class};
   3 use Test::More;
   4 use Math::GSL::Statistics qw/:all/;
   5 use Math::GSL qw/:all/;
   6 use strict;
   7
   8 sub make_fixture : Test(setup) {
   9 }
  10
  11 sub teardown : Test(teardown) {
  12 }
  13
  14 sub GSL_STATS_MEAN : Tests {
  15  my $x = gsl_stats_mean([2,3,4, 5], 1, 4);
  16  ok ($x eq 3.5);
  17 }
  18
  19 sub GSL_STATS_VARIANCE : Tests {
  20  my $x = gsl_stats_variance([2,3,4, 5], 1, 4);
  21  ok ($x eq 5/3);
  22 }
  23
  24 1;