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

prepend which side (client/server) had an exception

Browse source
This commit is contained in:
Vincent Hanquez 2011-02-20 08:21:02 +00:00
parent a3ea15886f
commit 4458931597
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Tests/Connection.hs
View file

@ -33,8 +33,11 @@ import Control.Monad.Trans (lift)
import Control.Applicative ((<$>))
import Control.Concurrent.Chan
import Control.Concurrent
import Control.Exception (catch, throw, SomeException)
import System.IO
import Prelude hiding (catch)
someWords8 :: Int -> Gen [Word8]
someWords8 i = replicateM i (fromIntegral <$> (choose (0,255) :: Gen Int))
@ -123,10 +126,12 @@ testInitiate spCert = do
(cHandle, sHandle, clientRNG, serverRNG, startQueue, resultQueue) <- run setup
run $ forkIO $ do
S.runTLSServer (tlsServer sHandle resultQueue) serverstate serverRNG
catch (S.runTLSServer (tlsServer sHandle resultQueue) serverstate serverRNG)
(\e -> putStrLn ("server exception: " ++ show e) >> throw (e :: SomeException))
return ()
run $ forkIO $ do
C.runTLSClient (tlsClient startQueue cHandle) clientstate clientRNG
catch (C.runTLSClient (tlsClient startQueue cHandle) clientstate clientRNG)
(\e -> putStrLn ("client exception: " ++ show e) >> throw (e :: SomeException))
return ()
{- the test involves writing data on one side of the data "pipe" and