git.iko.soy/text
on master help sign in
Tests: sort imports
commit37fb6c71670622897057eb27268da5a0cc8fb549 authorBryan O'Sullivan <bos@serpentine.com> dateWed 19 Feb 2014, 13:24 (13 years ago) parent7e1a008
2 files changed+15−19
compare with master
unifiedsplit
tests/Tests/Properties.hs+11−14 tests/Tests/QuickCheckUtils.hs+4−5
tests/Tests/Properties.hs+11−14
@@ -9,10 +9,6 @@ module Tests.Properties
99 tests
1010 ) where
1111
12−import Test.QuickCheck hiding ((.&.))
13−import Test.QuickCheck.Monadic
14−import Text.Show.Functions ()
15−
1612import Control.Applicative ((<$>), (<*>))
1713import Control.Arrow ((***), second)
1814import Data.Bits ((.&.))
@@ -24,13 +20,19 @@ import Data.Text.Encoding.Error
2420import Data.Text.Foreign
2521import Data.Text.Internal.Encoding.Utf8
2622import Data.Text.Internal.Fusion.Size
23+import Data.Text.Internal.Search (indices)
2724import Data.Text.Lazy.Read as TL
2825import Data.Text.Read as T
29−import Data.Text.Internal.Search (indices)
3026import Data.Word (Word, Word8, Word16, Word32, Word64)
3127import Numeric (showHex)
28+import Prelude hiding (replicate)
3229import Test.Framework (Test, testGroup)
3330import 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 ()
3436import qualified Control.Exception as Exception
3537import qualified Data.Bits as Bits (shiftL, shiftR)
3638import qualified Data.ByteString as B
@@ -38,26 +40,21 @@ import qualified Data.ByteString.Lazy as BL
3840import qualified Data.List as L
3941import qualified Data.Text as T
4042import qualified Data.Text.Encoding as E
43+import qualified Data.Text.IO as T
4144import qualified Data.Text.Internal.Fusion as S
4245import 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
4449import qualified Data.Text.Lazy as TL
4550import qualified Data.Text.Lazy.Builder as TB
4651import qualified Data.Text.Lazy.Builder.Int as TB
4752import qualified Data.Text.Lazy.Builder.RealFloat as TB
4853import qualified Data.Text.Lazy.Encoding as EL
49−import qualified Data.Text.Internal.Lazy.Fusion as SL
5054import 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
5355import qualified System.IO as IO
54−
55−import Tests.QuickCheckUtils
56−import Tests.Utils
5756import qualified Tests.SlowFunctions as Slow
5857
59−import Prelude hiding (replicate)
60−
6158t_pack_unpack = (T.unpack . T.pack) `eq` id
6259tl_pack_unpack = (TL.unpack . TL.pack) `eq` id
6360t_stream_unstream = (S.unstream . S.stream) `eq` id
tests/Tests/QuickCheckUtils.hs+4−5
@@ -42,25 +42,24 @@ import Control.DeepSeq (NFData (..), deepseq)
4242import Control.Exception (bracket)
4343import Data.Bits ((.&.))
4444import Data.Char (chr)
45−import Data.Word (Word8, Word16)
4645import Data.String (IsString, fromString)
4746import Data.Text.Foreign (I16)
47+import Data.Word (Word8, Word16)
4848import Debug.Trace (trace)
4949import System.Random (Random (..), RandomGen)
5050import Test.QuickCheck hiding ((.&.))
5151import Test.QuickCheck.Monadic (assert, monadicIO, run)
52+import Tests.Utils
5253import qualified Data.ByteString as B
5354import qualified Data.Text as T
5455import qualified Data.Text.Encoding.Error as T
5556import qualified Data.Text.Internal.Fusion as TF
5657import 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
5958import 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
6061import qualified System.IO as IO
6162
62−import Tests.Utils
63−
6463instance Random I16 where
6564 randomR = integralRandomR
6665 random = randomR (minBound,maxBound)