lib/Math/GSL/Block/Test.pm

   1 package Math::GSL::Block::Test;
   2 use base q{Test::Class};
   3 use Test::More;
   4 use Math::GSL::Block qw/:all/;
   5 use Math::GSL qw/is_similar/;
   6 use strict;
   7
   8 sub make_fixture : Test(setup) {
   9     my $self = shift;
  10 }
  11
  12 sub teardown : Test(teardown) {
  13 }
  14
  15 sub GSL_BLOCK_ALLOC : Test {
  16     my $self  = shift;
  17     my $block = gsl_block_alloc(5);
  18     isa_ok( $block , 'Math::GSL::Block' );
  19 }
  20
  21 1;