+++ /dev/null
-// Copyright ©2015 The Gonum Authors. All rights reserved.
-// Use of this source code is governed by a BSD-style
-// license that can be found in the LICENSE file.
-
-package testlapack
-
-import "testing"
-
-type Iladlrer interface {
- Iladlr(m, n int, a []float64, lda int) int
-}
-
-func IladlrTest(t *testing.T, impl Iladlrer) {
- for i, test := range []struct {
- a []float64
- m, n, lda int
- ans int
- }{
- {
- a: []float64{0, 0, 0, 0},
- m: 1,
- n: 1,
- lda: 2,
- ans: -1,
- },
- {
- a: []float64{0, 0, 0, 0},
- m: 2,
- n: 2,
- lda: 2,
- ans: -1,
- },
- {
- a: []float64{0, 0, 0, 0},
- m: 4,
- n: 1,
- lda: 1,
- ans: -1,
- },
- {
- a: []float64{0, 0, 0, 0},
- m: 1,
- n: 4,
- lda: 4,
- ans: -1,
- },
- {
- a: []float64{
- 1, 2, 3, 4,
- 5, 6, 7, 8,
- },
- m: 2,
- n: 4,
- lda: 4,
- ans: 1,
- },
- {
- a: []float64{
- 1, 2, 3, 0,
- 0, 0, 0, 0,
- },
- m: 2,
- n: 4,
- lda: 4,
- ans: 0,
- },
- {
- a: []float64{
- 0, 0, 3, 4,
- 0, 0, 0, 0,
- },
- m: 2,
- n: 2,
- lda: 4,
- ans: -1,
- },
- } {
- ans := impl.Iladlr(test.m, test.n, test.a, test.lda)
- if ans != test.ans {
- t.Errorf("Column mismatch case %v. Want: %v, got: %v", i, test.ans, ans)
- }
- }
-}