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

be polite and say bye to server.

Browse source
This commit is contained in:
Vincent Hanquez 2011-11-14 22:18:30 +00:00
parent 88b8da59f0
commit 147f1edfbf
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Tests.hs
View file

@ -176,6 +176,7 @@ prop_handshake_initiate = do
unless success $ fail "handshake failed on client side"
d <- readChan queue
sendData ctx d
bye ctx
return ()
assertEq expected got = unless (expected == got) $ error ("got " ++ show got ++ " but was expecting " ++ show expected)