@@ -33,18 +33,20 @@ spec = do
3333 tryPackHeader 10 ["01234567890", "12"] `shouldReturn` 3
3434 it "returns how much the buffer is consumed (6)" $
3535 tryPackHeader 10 ["012345678901234567890123456789012", "34"] `shouldReturn` 5
36− it "returns how much the buffer is consumed (1)" $
36+
37+ it "sends headers correctly (1)" $
3738 tryPackHeader2 10 ["foo"] "" `shouldReturn` True
38− it "returns how much the buffer is consumed (2)" $
39+ it "sends headers correctly (2)" $
3940 tryPackHeader2 10 ["foo", "bar"] "" `shouldReturn` True
40− it "returns how much the buffer is consumed (3)" $
41+ it "sends headers correctly (3)" $
4142 tryPackHeader2 10 ["0123456789"] "0123456789" `shouldReturn` True
42− it "returns how much the buffer is consumed (4)" $
43+ it "sends headers correctly (4)" $
4344 tryPackHeader2 10 ["01234", "56789"] "0123456789" `shouldReturn` True
44− it "returns how much the buffer is consumed (5)" $
45+ it "sends headers correctly (5)" $
4546 tryPackHeader2 10 ["01234567890", "12"] "0123456789" `shouldReturn` True
46− it "returns how much the buffer is consumed (6)" $
47+ it "sends headers correctly (6)" $
4748 tryPackHeader2 10 ["012345678901234567890123456789012", "34"] "012345678901234567890123456789" `shouldReturn` True
49+
4850 describe "readSendFile" $ do
4951 it "sends a file correctly (1)" $
5052 tryReadSendFile 10 0 1474 ["foo"] `shouldReturn` ExitSuccess