Compare commits
2 Commits
64444bbc81
...
440aee7536
Author | SHA1 | Date | |
---|---|---|---|
440aee7536 | |||
63702be1e7 |
@ -48,7 +48,7 @@ import qualified Data.ByteString.Lazy as BSL
|
|||||||
import Data.Connection (Connection, source)
|
import Data.Connection (Connection, source)
|
||||||
import qualified Data.Text as T
|
import qualified Data.Text as T
|
||||||
import Data.Text.Encoding (decodeUtf8')
|
import Data.Text.Encoding (decodeUtf8')
|
||||||
import System.IO.Streams as S
|
import qualified System.IO.Streams as S
|
||||||
|
|
||||||
import Network.Gemini.Capsule.Encoding
|
import Network.Gemini.Capsule.Encoding
|
||||||
import Network.Gemini.Capsule.Types
|
import Network.Gemini.Capsule.Types
|
||||||
|
@ -97,7 +97,7 @@ readMaxSpec = describe "readMax" $ mapM_
|
|||||||
readMax maxLen conn `shouldReturn` expect
|
readMax maxLen conn `shouldReturn` expect
|
||||||
)
|
)
|
||||||
|
|
||||||
-- description, max length, connection, expected
|
-- description, max length, connection, expected
|
||||||
[ ( "single input", 1024, singleConn, Just singleBS )
|
[ ( "single input", 1024, singleConn, Just singleBS )
|
||||||
, ( "multi input", 1024, multiConn, Just multiBS )
|
, ( "multi input", 1024, multiConn, Just multiBS )
|
||||||
, ( "long input", longLen, longConn, Just longBS )
|
, ( "long input", longLen, longConn, Just longBS )
|
||||||
|
Loading…
x
Reference in New Issue
Block a user