[DHG_packages] 01/03: haskell-t-f-quickcheck: import another patch for qc-2.8

[Iustin Pop]

This is an automated email from the git hooks/post-receive script.

iustin pushed a commit to branch master
in repository DHG_packages.

commit ca7c9e5109ee0b6c0e9640eb29094e7e2378ad87
Author: Iustin Pop <iustin at debian.org>
Date:   Thu Jun 9 11:09:17 2016 +0200

    haskell-t-f-quickcheck: import another patch for qc-2.8
    
    This prevents test failures with "Incomplete pattern matching". Patch is
    slightly modified from upstream to match the .tar.gz layout (which is not
    identical to upstream git).
---
 .../patches/quickcheck-2.8-more-compat.patch       | 35 ++++++++++++++++++++++
 .../debian/patches/series                          |  1 +
 2 files changed, 36 insertions(+)

diff --git a/p/haskell-test-framework-quickcheck2/debian/patches/quickcheck-2.8-more-compat.patch b/p/haskell-test-framework-quickcheck2/debian/patches/quickcheck-2.8-more-compat.patch
new file mode 100644
index 0000000..c236110
--- /dev/null
+++ b/p/haskell-test-framework-quickcheck2/debian/patches/quickcheck-2.8-more-compat.patch
@@ -0,0 +1,35 @@
+commit bb009e005c8a3d481c0773a038392adc4b442773
+Author: Mikhail Glushenkov <mikhail.glushenkov at gmail.com>
+Date:   Tue Aug 18 06:09:26 2015 +0200
+
+    Improve QuickCheck 2.8 support.
+
+--- a/Test/Framework/Providers/QuickCheck2.hs
++++ b/Test/Framework/Providers/QuickCheck2.hs
+@@ -43,6 +43,9 @@
+                     | PropertyFalsifiable String String -- ^ The property was not true. The strings are the reason and the output.
+                     | PropertyNoExpectedFailure         -- ^ We expected that a property would fail but it didn't
+                     | PropertyTimedOut                  -- ^ The property timed out during execution
++#if MIN_VERSION_QuickCheck(2,8,0)
++                    | PropertyInsufficientCoverage      -- ^ The tests passed but a use of 'cover' had insufficient coverage.
++#endif
+ 
+ instance Show PropertyResult where
+     show (PropertyResult { pr_status = status, pr_used_seed = used_seed, pr_tests_run = mb_tests_run })
+@@ -52,6 +55,9 @@
+             PropertyFalsifiable _rsn otpt -> otpt ++ "(used seed " ++ show used_seed ++ ")"
+             PropertyNoExpectedFailure     -> "No expected failure with seed " ++ show used_seed ++ ", after " ++ tests_run_str ++ " tests"
+             PropertyTimedOut              -> "Timed out after " ++ tests_run_str ++ " tests"
++#if MIN_VERSION_QuickCheck(2,8,0)
++            PropertyInsufficientCoverage  -> "Insufficient coverage after " ++ tests_run_str ++ " tests"
++#endif
+       where
+         tests_run_str = fmap show mb_tests_run `orElse` "an unknown number of"
+ 
+@@ -115,3 +121,6 @@
+     toPropertyStatus (GaveUp {})                               = PropertyArgumentsExhausted
+     toPropertyStatus (Failure { reason = rsn, output = otpt }) = PropertyFalsifiable rsn otpt
+     toPropertyStatus (NoExpectedFailure {})                    = PropertyNoExpectedFailure
++#if MIN_VERSION_QuickCheck(2,8,0)
++    toPropertyStatus (InsufficientCoverage _ _ _)              = PropertyInsufficientCoverage
++#endif
diff --git a/p/haskell-test-framework-quickcheck2/debian/patches/series b/p/haskell-test-framework-quickcheck2/debian/patches/series
index bd8e354..136fadd 100644
--- a/p/haskell-test-framework-quickcheck2/debian/patches/series
+++ b/p/haskell-test-framework-quickcheck2/debian/patches/series
@@ -1 +1,2 @@
 quickcheck-compat
+quickcheck-2.8-more-compat.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-haskell/DHG_packages.git