[commit: packages/containers] master: Remove CPP (b2b55b0)
git at git.haskell.org
git at git.haskell.org
Fri Jan 23 22:42:05 UTC 2015
Repository : ssh://git@git.haskell.org/containers
On branch : master
Link : http://git.haskell.org/packages/containers.git/commitdiff/b2b55b01aa985bb190a3f1580bf55eb2c83eb18f
>---------------------------------------------------------------
commit b2b55b01aa985bb190a3f1580bf55eb2c83eb18f
Author: David Feuer <David.Feuer at gmail.com>
Date: Fri Dec 19 23:49:35 2014 -0500
Remove CPP
>---------------------------------------------------------------
b2b55b01aa985bb190a3f1580bf55eb2c83eb18f
tests/seq-properties.hs | 8 --------
1 file changed, 8 deletions(-)
diff --git a/tests/seq-properties.hs b/tests/seq-properties.hs
index 2b4774d..880d772 100644
--- a/tests/seq-properties.hs
+++ b/tests/seq-properties.hs
@@ -17,9 +17,7 @@ import qualified Prelude
import qualified Data.List
import Test.QuickCheck hiding ((><))
import Test.QuickCheck.Poly
-#ifdef SLOW_TESTS
import Test.QuickCheck.Function
-#endif
import Test.Framework
import Test.Framework.Providers.QuickCheck2
@@ -96,11 +94,9 @@ main = defaultMain
, testProperty "zipWith3" prop_zipWith3
, testProperty "zip4" prop_zip4
, testProperty "zipWith4" prop_zipWith4
-#ifdef SLOW_TESTS
, testProperty "<*>" prop_ap
, testProperty "*>" prop_then
, testProperty ">>=" prop_bind
-#endif
]
------------------------------------------------------------------------
@@ -598,7 +594,6 @@ prop_zipWith4 xs ys zs ts =
-- Applicative operations
-#ifdef SLOW_TESTS
prop_ap :: Seq A -> Seq B -> Bool
prop_ap xs ys =
toList' ((,) <$> xs <*> ys) ~= ( (,) <$> toList xs <*> toList ys )
@@ -606,15 +601,12 @@ prop_ap xs ys =
prop_then :: Seq A -> Seq B -> Bool
prop_then xs ys =
toList' (xs *> ys) ~= (toList xs *> toList ys)
-#endif
-- Monad operations
-#ifdef SLOW_TESTS
prop_bind :: Seq A -> Fun A (Seq B) -> Bool
prop_bind xs (Fun _ f) =
toList' (xs >>= f) ~= (toList xs >>= toList . f)
-#endif
-- Simple test monad
More information about the ghc-commits
mailing list