t/BSpline.t

   1 package Math::GSL::Poly::Test;
   2 use Math::GSL::Test qw/:all/;
   3 use base q{Test::Class};
   4 use Test::More;
   5 use Math::GSL qw/:all/;
   6 use Math::GSL::BSpline qw/:all/;
   7 use Math::GSL::Errno qw/:all/;
   8 use Data::Dumper;
   9 use strict;
  10
  11
  12 sub make_fixture : Test(setup) {
  13 }
  14 sub teardown : Test(teardown) {
  15 }
  16
  17 sub ALLOC : Tests {
  18  my $B = gsl_bspline_alloc(2,5);
  19  isa_ok($B, 'Math::GSL::BSpline');
  20 }
  21
  22 Test::Class->runtests;