git.iko.soy/typeable/uuid
on master help sign in
uuid-types: Use minimal imports in testing module.
00d895eAntoine Latter
uuid-types/tests/TestUUID.hs+4−3
compare with master
unifiedsplit
@@ -1,4 +1,5 @@
1{-# LANGUAGE ViewPatterns #-}
1{-# LANGUAGE ViewPatterns #-}
2+
2import qualified Data.ByteString.Lazy as BL
3import qualified Data.ByteString.Lazy as BL
3import qualified Data.ByteString.Lazy.Char8 as BL8
4import qualified Data.ByteString.Lazy.Char8 as BL8
4import qualified Data.ByteString.Char8 as BC8
5import qualified Data.ByteString.Char8 as BC8
@@ -9,11 +10,11 @@ import qualified Data.UUID.Types as U
9import Foreign (alloca, peek, poke)
10import Foreign (alloca, peek, poke)
10import System.IO.Unsafe (unsafePerformIO)
11import System.IO.Unsafe (unsafePerformIO)
11
12
12−import Test.QuickCheck hiding ((.&.))
13+import Test.QuickCheck ( Arbitrary(arbitrary), choose )
13
14
14import Test.Tasty ( defaultMain, TestTree, testGroup )
15import Test.Tasty ( defaultMain, TestTree, testGroup )
15−import Test.Tasty.HUnit
16+import Test.Tasty.HUnit ( assertBool, (@?=), (@=?), testCase )
16−import Test.Tasty.QuickCheck
17+import Test.Tasty.QuickCheck ( testProperty )
17
18
18
19
19instance Arbitrary U.UUID where
20instance Arbitrary U.UUID where