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