summaryrefslogtreecommitdiff
path: root/packages/tests
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2015-06-30 14:38:52 +0200
committerAlberto Ruiz <aruiz@um.es>2015-06-30 14:38:52 +0200
commit4ada25636995115f2b26707870f611a138f4e20b (patch)
tree07ade269d5b98ae8284d2064bb3a8ea928e3e405 /packages/tests
parent4730254f061832591d4a44c86d3bdfa4620f4322 (diff)
subMatrix changed to non copying slice
Diffstat (limited to 'packages/tests')
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
index 79cb769..d9bc9a0 100644
--- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
+++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
@@ -536,7 +536,7 @@ sliceTest = utest "slice test" $ and
536 536
537 testSlice f x@(size->sz@(r,c)) = all (==f x) (map f (g y1 ++ g y2)) 537 testSlice f x@(size->sz@(r,c)) = all (==f x) (map f (g y1 ++ g y2))
538 where 538 where
539 subm = sliceMatrix 539 subm = subMatrix
540 g y = [ subm (a*r,b*c) sz y | a <-[0..2], b <- [0..2]] 540 g y = [ subm (a*r,b*c) sz y | a <-[0..2], b <- [0..2]]
541 h z = fromBlocks (replicate 3 (replicate 3 z)) 541 h z = fromBlocks (replicate 3 (replicate 3 z))
542 y1 = h x 542 y1 = h x