dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-12-23 20:03:31 +03:00
Code Issues Packages Projects Releases Wiki Activity

Remove NonEmpty type reference to see if it fixes CI error.

Browse Source
This commit is contained in:
Dillon Kearns 2022-06-30 10:54:24 -07:00
parent 5b1bf51c25
commit 1b52b4a15c
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/ServerRequestTest.elm
View File

@ -6,7 +6,6 @@ import FormData
import Internal.Request exposing (Parser(..))
import Json.Decode as Decode
import Json.Encode
import List.NonEmpty as NonEmpty exposing (NonEmpty)
import Pages.Field as Field
import Pages.Form as Form
import Server.Request as Request
@ -85,7 +84,7 @@ all =
, body =
Just
(FormData
(Dict.fromList [ ( "foo", NonEmpty.singleton "bar" ) ])
(Dict.fromList [ ( "foo", ( "bar", [] ) ) ])
)
}
, test "expectFormPost with missing content-type" <|
@ -107,7 +106,7 @@ all =
, body =
Just
(FormData
(Dict.fromList [ ( "foo", NonEmpty.singleton "bar" ) ])
(Dict.fromList [ ( "foo", ( "bar", [] ) ) ])
)
}
"""expectFormPost did not match - Was form POST but expected content-type `application/x-www-form-urlencoded` but the request didn't have a content-type header"""
@ -159,7 +158,7 @@ type alias Request =
type Body
= FormData (Dict String (NonEmpty String))
= FormData (Dict String ( String, List String ))
| JsonBody Decode.Value
| StringBody String