Add failing test for #127

scotty-web · Nov 2, 2014 · 083e18a · 083e18a
1 parent 787580a
commit 083e18a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/test/Web/ScottySpec.hs b/test/Web/ScottySpec.hs
@@ -93,6 +93,10 @@ spec = do
           it "returns POST parameter with given name" $ do
             request "POST" "/search" [("Content-Type","application/x-www-form-urlencoded")] "query=haskell" `shouldRespondWith` "haskell"
 
+          it "handles newline normalization as per the HTML 4.01 Specification" $ do
+            -- see http://www.w3.org/TR/html401/interact/forms.html#h-17.13.4.1
+            request "POST" "/search" [("Content-Type","application/x-www-form-urlencoded")] "query=foo%0D%0Abar" `shouldRespondWith` "foo\nbar"
+
     describe "text" $ do
       let modernGreekText :: IsString a => a
           modernGreekText = "νέα ελληνικά"