dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-25 09:21:57 +03:00
Code Issues Packages Projects Releases Wiki Activity

Migrate use of old Form type.

Browse Source
This commit is contained in:
Dillon Kearns 2022-07-23 20:29:03 +02:00
parent f77db01796
commit 320374cee7
1 changed files with 26 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
tests/ServerRequestTest.elm
View File

@ -62,21 +62,27 @@ all =
[ ( "q", "hello" ) ]
, test "tries multiple form post formats" <|
\() ->
Request.formDataWithoutServerValidation
[ Form.init
Request.formDataWithoutServerValidation2
[ Form.init2
(\bar ->
Validation.succeed identity
|> Validation.andMap bar
{ combine =
Validation.succeed identity
|> Validation.andMap bar
, view =
\_ -> ()
}
)
(\_ _ -> ())
|> Form.field "bar" Field.text
, Form.init
|> Form.field2 "bar" Field.text
, Form.init2
(\bar ->
Validation.succeed identity
|> Validation.andMap bar
{ combine =
Validation.succeed identity
|> Validation.andMap bar
, view =
\_ -> ()
}
)
(\_ _ -> ())
|> Form.field "foo" Field.text
|> Form.field2 "foo" Field.text
]
|> expectMatch
{ method = Request.Post
@ -92,14 +98,17 @@ all =
}
, test "expectFormPost with missing content-type" <|
\() ->
Request.formDataWithoutServerValidation
[ Form.init
Request.formDataWithoutServerValidation2
[ Form.init2
(\bar ->
Validation.succeed identity
|> Validation.andMap bar
{ combine =
Validation.succeed identity
|> Validation.andMap bar
, view =
\_ -> ()
}
)
(\_ _ -> ())
|> Form.field "bar" Field.text
|> Form.field2 "bar" Field.text
]
|> expectNoMatch
{ method = Request.Post