yogsototh/hs-tls
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re-indent

Browse source
This commit is contained in:
Vincent Hanquez 2013-07-21 07:00:35 +01:00
parent 5c989623d4
commit 498dc07daa
4 changed files with 132 additions and 135 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
core/Tests/Tests.hs
View file

@ -65,8 +65,7 @@ instance Arbitrary Session where
_ -> return $ Session Nothing
instance Arbitrary CertVerifyData where
arbitrary = do
liftM CertVerifyData (genByteString 128)
arbitrary = liftM CertVerifyData (genByteString 128)
arbitraryCiphersIDs :: Gen [Word16]
arbitraryCiphersIDs = choose (0,200) >>= vector
@ -118,8 +117,7 @@ prop_header_marshalling_id x = (decodeHeader $ encodeHeader x) == Right x
prop_handshake_marshalling_id :: Handshake -> Bool
prop_handshake_marshalling_id x = (decodeHs $ encodeHandshake x) == Right x
where
decodeHs b = either (Left . id) (uncurry (decodeHandshake cp) . head) $ decodeHandshakes b
where decodeHs b = either (Left . id) (uncurry (decodeHandshake cp) . head) $ decodeHandshakes b
cp = CurrentParams { cParamsVersion = TLS10, cParamsKeyXchgType = CipherKeyExchange_RSA, cParamsSupportNPN = True }
prop_pipe_work :: PropertyM IO ()
@ -276,8 +274,7 @@ main = defaultMain
[ tests_marshalling
, tests_handshake
]
where
-- lowlevel tests to check the packet marshalling.
where -- lowlevel tests to check the packet marshalling.
tests_marshalling = testGroup "Marshalling"
[ testProperty "Header" prop_header_marshalling_id
, testProperty "Handshake" prop_handshake_marshalling_id