lib/Math/GSL/Sort/Test.pm

   1 package Math::GSL::Sort::Test;
   2 use base q{Test::Class};
   3 use Test::More;
   4 use Math::GSL::Sort qw/:plain :vector :all/;
   5 use Math::GSL qw/is_similar/;
   6 use Data::Dumper;
   7 use strict;
   8
   9 sub make_fixture : Test(setup) {
  10 }
  11 sub teardown : Test(teardown) {
  12 }
  13
  14 sub GSL_SORT : Tests {
  15     my $x = [ 2**10, 1, 42, 17, 6900, 3 ];
  16     gsl_sort($x, 1, $#$x );
  17     print Dumper [ $x ];
  18
  19 }
  20
  21 42;