lib/Math/GSL/Matrix/Test.pm

   1 package Math::GSL::Matrix::Test;
   2 use base q{Test::Class};
   3 use Test::More;
   4 use Math::GSL::Matrix qw/:all/;
   5 use Math::GSL qw/is_similar/;
   6 use Data::Dumper;
   7 use strict;
   8
   9 sub make_fixture : Test(setup) {
  10     my $self = shift;
  11     $self->{matrix} = gsl_matrix_alloc(5,5);
  12
  13 }
  14
  15 sub teardown : Test(teardown) {
  16 }
  17
  18 sub GSL_MATRIX_ALLOC : Tests {
  19     my $matrix = gsl_matrix_alloc(5,5);
  20     isa_ok($matrix, 'Math::GSL::Matrix');
  21 }
  22
  23 sub GSL_MATRIX_SET : Tests {
  24     my $self = shift;
  25     map { gsl_matrix_set($self->{matrix}, $_,$_, $_ ** 2) } (0..4);
  26     isa_ok( $self->{matrix}, 'Math::GSL::Matrix' );
  27
  28     my @got = map { gsl_matrix_get($self->{matrix}, $_, $_) } (0..4);
  29
  30     map { ok(is_similar($got[$_], $_ ** 2)) } (0..4);
  31
  32 }
  33
  34 sub GSL_MATRIX_CALLOC : Tests {
  35    my $matrix = gsl_matrix_calloc(5,5);
  36    isa_ok($matrix, 'Math::GSL::Matrix');
  37
  38    my @got = map { gsl_matrix_get($matrix, $_, $_) } (0..4);
  39    map { is($got[$_], 0) } (0..4);
  40 }
  41
  42 1;