git.iko.soy/text
on master help sign in
Tests: sort imports
37fb6c7Bryan O'Sullivan
tests/Tests/Properties.hs+11−14
compare with master
unifiedsplit
@@ -9,10 +9,6 @@ module Tests.Properties
9 tests
9 tests
10 ) where
10 ) where
11
11
12−import Test.QuickCheck hiding ((.&.))
13−import Test.QuickCheck.Monadic
14−import Text.Show.Functions ()
15−
16import Control.Applicative ((<$>), (<*>))
12import Control.Applicative ((<$>), (<*>))
17import Control.Arrow ((***), second)
13import Control.Arrow ((***), second)
18import Data.Bits ((.&.))
14import Data.Bits ((.&.))
@@ -24,13 +20,19 @@ import Data.Text.Encoding.Error
24import Data.Text.Foreign
20import Data.Text.Foreign
25import Data.Text.Internal.Encoding.Utf8
21import Data.Text.Internal.Encoding.Utf8
26import Data.Text.Internal.Fusion.Size
22import Data.Text.Internal.Fusion.Size
23+import Data.Text.Internal.Search (indices)
27import Data.Text.Lazy.Read as TL
24import Data.Text.Lazy.Read as TL
28import Data.Text.Read as T
25import Data.Text.Read as T
29−import Data.Text.Internal.Search (indices)
30import Data.Word (Word, Word8, Word16, Word32, Word64)
26import Data.Word (Word, Word8, Word16, Word32, Word64)
31import Numeric (showHex)
27import Numeric (showHex)
28+import Prelude hiding (replicate)
32import Test.Framework (Test, testGroup)
29import Test.Framework (Test, testGroup)
33import Test.Framework.Providers.QuickCheck2 (testProperty)
30import Test.Framework.Providers.QuickCheck2 (testProperty)
31+import Test.QuickCheck hiding ((.&.))
32+import Test.QuickCheck.Monadic
33+import Tests.QuickCheckUtils
34+import Tests.Utils
35+import Text.Show.Functions ()
34import qualified Control.Exception as Exception
36import qualified Control.Exception as Exception
35import qualified Data.Bits as Bits (shiftL, shiftR)
37import qualified Data.Bits as Bits (shiftL, shiftR)
36import qualified Data.ByteString as B
38import qualified Data.ByteString as B
@@ -38,26 +40,21 @@ import qualified Data.ByteString.Lazy as BL
38import qualified Data.List as L
40import qualified Data.List as L
39import qualified Data.Text as T
41import qualified Data.Text as T
40import qualified Data.Text.Encoding as E
42import qualified Data.Text.Encoding as E
43+import qualified Data.Text.IO as T
41import qualified Data.Text.Internal.Fusion as S
44import qualified Data.Text.Internal.Fusion as S
42import qualified Data.Text.Internal.Fusion.Common as S
45import qualified Data.Text.Internal.Fusion.Common as S
43−import qualified Data.Text.IO as T
46+import qualified Data.Text.Internal.Lazy.Fusion as SL
47+import qualified Data.Text.Internal.Lazy.Search as S (indices)
48+import qualified Data.Text.Internal.Unsafe.Shift as U
44import qualified Data.Text.Lazy as TL
49import qualified Data.Text.Lazy as TL
45import qualified Data.Text.Lazy.Builder as TB
50import qualified Data.Text.Lazy.Builder as TB
46import qualified Data.Text.Lazy.Builder.Int as TB
51import qualified Data.Text.Lazy.Builder.Int as TB
47import qualified Data.Text.Lazy.Builder.RealFloat as TB
52import qualified Data.Text.Lazy.Builder.RealFloat as TB
48import qualified Data.Text.Lazy.Encoding as EL
53import qualified Data.Text.Lazy.Encoding as EL
49−import qualified Data.Text.Internal.Lazy.Fusion as SL
50import qualified Data.Text.Lazy.IO as TL
54import qualified Data.Text.Lazy.IO as TL
51−import qualified Data.Text.Internal.Lazy.Search as S (indices)
52−import qualified Data.Text.Internal.Unsafe.Shift as U
53import qualified System.IO as IO
55import qualified System.IO as IO
54−
55−import Tests.QuickCheckUtils
56−import Tests.Utils
57import qualified Tests.SlowFunctions as Slow
56import qualified Tests.SlowFunctions as Slow
58
57
59−import Prelude hiding (replicate)
60−
61t_pack_unpack = (T.unpack . T.pack) `eq` id
58t_pack_unpack = (T.unpack . T.pack) `eq` id
62tl_pack_unpack = (TL.unpack . TL.pack) `eq` id
59tl_pack_unpack = (TL.unpack . TL.pack) `eq` id
63t_stream_unstream = (S.unstream . S.stream) `eq` id
60t_stream_unstream = (S.unstream . S.stream) `eq` id
tests/Tests/QuickCheckUtils.hs+4−5
@@ -42,25 +42,24 @@ import Control.DeepSeq (NFData (..), deepseq)
42import Control.Exception (bracket)
42import Control.Exception (bracket)
43import Data.Bits ((.&.))
43import Data.Bits ((.&.))
44import Data.Char (chr)
44import Data.Char (chr)
45−import Data.Word (Word8, Word16)
46import Data.String (IsString, fromString)
45import Data.String (IsString, fromString)
47import Data.Text.Foreign (I16)
46import Data.Text.Foreign (I16)
47+import Data.Word (Word8, Word16)
48import Debug.Trace (trace)
48import Debug.Trace (trace)
49import System.Random (Random (..), RandomGen)
49import System.Random (Random (..), RandomGen)
50import Test.QuickCheck hiding ((.&.))
50import Test.QuickCheck hiding ((.&.))
51import Test.QuickCheck.Monadic (assert, monadicIO, run)
51import Test.QuickCheck.Monadic (assert, monadicIO, run)
52+import Tests.Utils
52import qualified Data.ByteString as B
53import qualified Data.ByteString as B
53import qualified Data.Text as T
54import qualified Data.Text as T
54import qualified Data.Text.Encoding.Error as T
55import qualified Data.Text.Encoding.Error as T
55import qualified Data.Text.Internal.Fusion as TF
56import qualified Data.Text.Internal.Fusion as TF
56import qualified Data.Text.Internal.Fusion.Common as TF
57import qualified Data.Text.Internal.Fusion.Common as TF
57−import qualified Data.Text.Lazy as TL
58−import qualified Data.Text.Internal.Lazy.Fusion as TLF
59import qualified Data.Text.Internal.Lazy as TL
58import qualified Data.Text.Internal.Lazy as TL
59+import qualified Data.Text.Internal.Lazy.Fusion as TLF
60+import qualified Data.Text.Lazy as TL
60import qualified System.IO as IO
61import qualified System.IO as IO
61
62
62−import Tests.Utils
63−
64instance Random I16 where
63instance Random I16 where
65 randomR = integralRandomR
64 randomR = integralRandomR
66 random = randomR (minBound,maxBound)
65 random = randomR (minBound,maxBound)