From 586adfa8baa75eb3259ae2ba40c770abff896bcc Mon Sep 17 00:00:00 2001
From: Thierry Moisan <thierry.moisan@gmail.com>
Date: Thu, 22 May 2008 19:00:49 -0400
Subject: [PATCH] Adding GSL_MATRIX_ROW test.

---
 lib/Math/GSL/Matrix/Test.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/lib/Math/GSL/Matrix/Test.pm b/lib/Math/GSL/Matrix/Test.pm
index 2d50991..db45a02 100644
--- a/lib/Math/GSL/Matrix/Test.pm
+++ b/lib/Math/GSL/Matrix/Test.pm
@@ -3,6 +3,7 @@ use base q{Test::Class};
 use Test::More;
 use Math::GSL::Matrix qw/:all/;
 use Math::GSL qw/is_similar/;
+use Math::GSL::Vector qw/:all/;
 use Data::Dumper;
 use strict;
 
@@ -57,4 +58,12 @@ sub GSL_MATRIX_SUBMATRIX {
    map { is($got[$_], $_) } (0..2);
 
 }
+
+sub GSL_MATRIX_ROW {
+   my $matrix = gsl_matrix_alloc(4,4);
+   map { gsl_matrix_set($matrix, $_,$_, $_) } (0..3);
+   my $vector = gsl_matrix_row($matrix, 2);
+   my @got = map { gsl_vector_get($vector, $_) } (0..3);
+   map { is($got[$_], $_) } (0..3);
+}
 1;
-- 
2.11.4.GIT