Add test case for empty form data
commit765249bbb19653dc3dfbde35a1fe3835f7cdbee5
authorNickolay Kudasov <nickolay.kudasov@gmail.com>
dateMon 29 Aug 2016, 18:23 (10 years ago)
parent28713e6
test/Web/Internal/FormUrlEncodedSpec.hs+4−1
@@ -81,4 +81,7 @@ urlEncoding = describe "urlEncoding" $ do
8181 (decodeAsForm x :: Either Text Form) `shouldBe` (fromForm <=< decodeForm) x
8282
8383 it "encodeAsForm == encodeForm . toForm" $ property $ \(x :: Form) -> do
84− encodeAsForm x `shouldBe` (encodeForm . toForm) x
84+ encodeAsForm x `shouldBe` (encodeForm . toForm) x
85+
86+ it "decodeForm \"\" == Right mempty" $ do
87+ decodeForm "" `shouldBe` Right mempty