1 files changed, 33 insertions, 0 deletions

diff --git a/lib/Numeric/LinearAlgebra/Tests/quickCheckCompat.h b/lib/Numeric/LinearAlgebra/Tests/quickCheckCompat.h
new file mode 100644
index 0000000..714587b
--- /dev/null
+++ b/lib/Numeric/LinearAlgebra/Tests/quickCheckCompat.h
@@ -0,0 +1,33 @@
+#ifndef MIN_VERSION_QuickCheck
+#define MIN_VERSION_QuickCheck(A,B,C) 1
+#endif
+
+#if MIN_VERSION_QuickCheck(2,0,0)
+import Test.QuickCheck(Arbitrary,arbitrary,coarbitrary,choose,vector
+                      ,sized,classify,Testable,Property
+
+                      ,quickCheckWith,maxSize,stdArgs,shrink)
+
+#else
+import Test.QuickCheck(Arbitrary,arbitrary,coarbitrary,choose,vector
+                      ,sized,classify,Testable,Property
+
+                      ,check,configSize,defaultConfig,trivial)
+#endif
+
+
+
+#if MIN_VERSION_QuickCheck(2,0,0)
+trivial :: Testable a => Bool -> a -> Property
+trivial = (`classify` "trivial")
+#else
+#endif
+
+
+-- define qCheck, which used to be in Tests.hs
+#if MIN_VERSION_QuickCheck(2,0,0)
+qCheck n = quickCheckWith stdArgs {maxSize = n}
+#else
+qCheck n = check defaultConfig {configSize = const n}
+#endif
+