@@ -1,7 +1,7 @@
1-- | General quicktest properties for the text library
1-- | General quicktest properties for the text library
3−{-# LANGUAGE BangPatterns, FlexibleInstances, OverloadedStrings,
3+{-# LANGUAGE BangPatterns, CPP, FlexibleInstances, OverloadedStrings,
4− ScopedTypeVariables, TypeSynonymInstances, CPP #-}
4+ ScopedTypeVariables, TypeSynonymInstances #-}
5{-# OPTIONS_GHC -fno-enable-rewrite-rules #-}
5{-# OPTIONS_GHC -fno-enable-rewrite-rules #-}
6{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
6{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
7module Tests.Properties
7module Tests.Properties
@@ -27,7 +27,6 @@ import Data.Text.Read as T
27import Data.Text.Search (indices)
27import Data.Text.Search (indices)
28import Data.Word (Word, Word8, Word16, Word32, Word64)
28import Data.Word (Word, Word8, Word16, Word32, Word64)
29import Numeric (showHex)
29import Numeric (showHex)
30−import Prelude hiding (catch, replicate)
31import Test.Framework (Test, testGroup)
30import Test.Framework (Test, testGroup)
32import Test.Framework.Providers.QuickCheck2 (testProperty)
31import Test.Framework.Providers.QuickCheck2 (testProperty)
33import qualified Data.Bits as Bits (shiftL, shiftR)
32import qualified Data.Bits as Bits (shiftL, shiftR)
@@ -54,6 +53,12 @@ import Tests.QuickCheckUtils
54import Tests.Utils
53import Tests.Utils
55import qualified Tests.SlowFunctions as Slow
54import qualified Tests.SlowFunctions as Slow
56+#if MIN_VERSION_base(4,6,0)
57+import Prelude hiding (replicate)
59+import Prelude hiding (catch, replicate)
57t_pack_unpack = (T.unpack . T.pack) `eq` id
62t_pack_unpack = (T.unpack . T.pack) `eq` id
58tl_pack_unpack = (TL.unpack . TL.pack) `eq` id
63tl_pack_unpack = (TL.unpack . TL.pack) `eq` id
59t_stream_unstream = (S.unstream . S.stream) `eq` id
64t_stream_unstream = (S.unstream . S.stream) `eq` id