git.iko.soy/typeable/http-api-data
on master help sign in
Add test case for empty form data
765249bNickolay Kudasov
test/Web/Internal/FormUrlEncodedSpec.hs+4−1
compare with master
unifiedsplit
@@ -81,4 +81,7 @@ urlEncoding = describe "urlEncoding" $ do
81 (decodeAsForm x :: Either Text Form) `shouldBe` (fromForm <=< decodeForm) x
81 (decodeAsForm x :: Either Text Form) `shouldBe` (fromForm <=< decodeForm) x
82
82
83 it "encodeAsForm == encodeForm . toForm" $ property $ \(x :: Form) -> do
83 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