summaryrefslogtreecommitdiff
path: root/lib/Numeric/LinearAlgebra/Tests/Properties.hs
diff options
context:
space:
mode:
authorDaniel Schüssler <danlex@gmx.de>2009-01-19 10:41:49 +0000
committerDaniel Schüssler <danlex@gmx.de>2009-01-19 10:41:49 +0000
commit2b8aea01b22db9aedb5bd6bdc327a02bfa92e1c2 (patch)
tree2029e9cd03c6f4d0e27a4220f08c2f63f3ff59d5 /lib/Numeric/LinearAlgebra/Tests/Properties.hs
parentbde1d4bec13cfaa22fab938156c0860539637473 (diff)
Compatibility with QuickCheck 2 as well as QuickCheck 1
Used the C preprocessor to make it compile against either QuickCheck version. Added some implementations for the new "shrink" method of class Arbitrary. The tests (runTests 10) succeed when compiled with QC 1. With QC 2 (runTests 10 too) the fourth "vector operations" test (complex trigonometry) now fails. I don't know whether this is a bug in my changes, or whether QC 2 just generates Doubles differently and thus uncovered a real bug.
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Tests/Properties.hs')
-rw-r--r--lib/Numeric/LinearAlgebra/Tests/Properties.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Numeric/LinearAlgebra/Tests/Properties.hs b/lib/Numeric/LinearAlgebra/Tests/Properties.hs
index ec87ad0..d4c2770 100644
--- a/lib/Numeric/LinearAlgebra/Tests/Properties.hs
+++ b/lib/Numeric/LinearAlgebra/Tests/Properties.hs
@@ -1,4 +1,5 @@
1{-# OPTIONS #-} 1{-# LANGUAGE CPP #-}
2{-# OPTIONS_GHC -fno-warn-unused-imports #-}
2----------------------------------------------------------------------------- 3-----------------------------------------------------------------------------
3{- | 4{- |
4Module : Numeric.LinearAlgebra.Tests.Properties 5Module : Numeric.LinearAlgebra.Tests.Properties
@@ -40,7 +41,7 @@ module Numeric.LinearAlgebra.Tests.Properties (
40) where 41) where
41 42
42import Numeric.LinearAlgebra 43import Numeric.LinearAlgebra
43import Test.QuickCheck 44#include "quickCheckCompat.h"
44-- import Debug.Trace 45-- import Debug.Trace
45 46
46-- debug x = trace (show x) x 47-- debug x = trace (show x) x