t/MatrixComplex.t

   1 package Math::GSL::MatrixComplex::Test;
   2 use base q{Test::Class};
   3 use Test::More tests => 3;
   4 use Math::GSL                qw/:all/;
   5 use Math::GSL::Test          qw/:all/;
   6 use Math::GSL::Errno         qw/:all/;
   7 use Math::GSL::MatrixComplex qw/:all/;
   8 use Data::Dumper;
   9 use strict;
  10
  11 BEGIN{ gsl_set_error_handler_off(); }
  12
  13 sub make_fixture : Test(setup) {
  14     my $self = shift;
  15 }
  16
  17 sub teardown : Test(teardown) {
  18     unlink 'matrix' if -f 'matrix';
  19 }
  20
  21 sub GSL_MATRIX_COMPLEX_NEW: Tests {
  22     my $u = Math::GSL::MatrixComplex->new(10,20);
  23     isa_ok($u, 'Math::GSL::MatrixComplex');
  24     ok( $u->rows ==  10, 'rows');
  25     ok( $u->cols ==  20, 'cols');
  26 }
  27
  28 Test::Class->runtests;