7b42eef · typeable/uuid

git.iko.soy/typeable/uuid

on master help sign in

Cleanup test

7b42eefAntoine Latter14 years ago

tests/TestUUID.hs+1−5

@@ -12,7 +12,6 @@ import qualified Data.UUID.V5 as U5

12import Test.HUnit

13import Test.QuickCheck hiding ((.&.))

14import System.IO

15−import System.Random

18isValidVersion :: Int -> U.UUID -> Bool

17isValidVersion :: Int -> U.UUID -> Bool

@@ -27,9 +26,6 @@ instance Arbitrary U.UUID where

27 -- the UUID random instance ignores bounds

26 -- the UUID random instance ignores bounds

28 arbitrary = choose (U.nil, U.nil)

27 arbitrary = choose (U.nil, U.nil)

30−-- instance Arbitrary Word8 where

31−-- arbitrary = (fromIntegral . fst . randomR (0,255::Int)) `fmap` rand

32−

34test_null :: Test

30test_null :: Test

35test_null = TestList [

31test_null = TestList [

@@ -144,7 +140,7 @@ prop_readShowRoundTrip = label "Read/Show round-trip" prop

144main :: IO ()

140main :: IO ()

145main = do

141main = do

146 v1s <- replicateM 100 U.nextUUID

142 v1s <- replicateM 100 U.nextUUID

147− runTestText (putTextToHandle stderr False) (TestList [

143+ _ <- runTestText (putTextToHandle stderr False) (TestList [

148 test_null,

144 test_null,

149 test_nil,

145 test_nil,

150 test_conv,

146 test_conv,