From b68e3d833ef335f256caa8a57ed66da3c8570338 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Fri, 21 Jan 2011 15:50:32 +0000
Subject: disable normv test in 7.0.1

---
 lib/Numeric/LinearAlgebra/Tests.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/Numeric/LinearAlgebra/Tests.hs b/lib/Numeric/LinearAlgebra/Tests.hs
index 32cd39d..2b5869d 100644
--- a/lib/Numeric/LinearAlgebra/Tests.hs
+++ b/lib/Numeric/LinearAlgebra/Tests.hs
@@ -232,9 +232,10 @@ offsetTest = y == y' where
 normsVTest = TestList [
     utest "normv2CD" $ norm2PropC v
   , utest "normv2CF" $ norm2PropC (single v)
+#ifndef NONORMVTEST
   , utest "normv2D"  $ norm2PropR x
   , utest "normv2F"  $ norm2PropR (single x)
-
+#endif
   , utest "normv1CD" $ norm1 v          == 8
   , utest "normv1CF" $ norm1 (single v) == 8
   , utest "normv1D"  $ norm1 x          == 6
@@ -247,7 +248,9 @@ normsVTest = TestList [
 
  ] where v = fromList [1,-2,3:+4] :: Vector (Complex Double)
          x = fromList [1,2,-3] :: Vector Double
+#ifndef NONORMVTEST
          norm2PropR a = norm2 a =~= sqrt (dot a a)
+#endif
          norm2PropC a = norm2 a =~= realPart (sqrt (dot a (conj a)))
          a =~= b = fromList [a] |~| fromList [b]
 
-- 
cgit v1.2.3