git.iko.soy/typeable/uuid
on master help sign in
Our tests should now pass on GHC 7.4.
5418bb2Antoine Latter
tests/TestUUID.hs+3−2
compare with master
unifiedsplit
@@ -1,8 +1,8 @@
1−{-# LANGUAGE OverloadedStrings #-}
2{-# LANGUAGE ViewPatterns #-}
1{-# LANGUAGE ViewPatterns #-}
3import Control.Monad (replicateM)
2import Control.Monad (replicateM)
4import Data.Bits
3import Data.Bits
5import qualified Data.ByteString.Lazy as BL
4import qualified Data.ByteString.Lazy as BL
5+import qualified Data.ByteString.Lazy.Char8 as BL8
6import qualified Data.ByteString.Char8 as BC8
6import qualified Data.ByteString.Char8 as BC8
7import Data.Char (ord)
7import Data.Char (ord)
8import Data.Functor ((<$>))
8import Data.Functor ((<$>))
@@ -88,7 +88,8 @@ test_v5 = H.TestList [
88test_fromByteString :: H.Test
88test_fromByteString :: H.Test
89test_fromByteString =
89test_fromByteString =
90 "UUID fromByteString" ~:
90 "UUID fromByteString" ~:
91+ Just inputUUID @=?
91− Just inputUUID @=? U.fromByteString "\165\202\133f\217\197H5\153\200\225\241>s\181\226"
92+ U.fromByteString (BL8.pack "\165\202\133f\217\197H5\153\200\225\241>s\181\226")
92
93
93-- | Test fromWords with a fixed-input
94-- | Test fromWords with a fixed-input
94test_fromWords :: H.Test
95test_fromWords :: H.Test