From 1a6b95273628d898226eb448c8b671dc33f3c495 Mon Sep 17 00:00:00 2001 From: Elizabeth Hunt Date: Wed, 15 Nov 2023 14:16:15 -0700 Subject: compute dominant eigenvalue --- test/matrix.t.c | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'test/matrix.t.c') diff --git a/test/matrix.t.c b/test/matrix.t.c index 1c72b85..597d6e0 100644 --- a/test/matrix.t.c +++ b/test/matrix.t.c @@ -230,3 +230,18 @@ UTEST(matrix, m_dot_m) { free_matrix(b); free_matrix(prod); } + +UTEST(matrix, transpose) { + Matrix_double *a = InitMatrixWithSize(double, 1, 3, 12.0); + a->data[0]->data[1] = 13.0; + Matrix_double *b = InitMatrixWithSize(double, 3, 1, 12.0); + b->data[1]->data[0] = 13.0; + + Matrix_double *a_t = transpose(a); + + EXPECT_TRUE(matrix_equal(a_t, b)); + + free_matrix(a_t); + free_matrix(a); + free_matrix(b); +} -- cgit v1.3