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

Fix tests.

Browse Source
This commit is contained in:
Dillon Kearns 2022-06-22 16:11:52 -07:00
parent 9f8395e1c6
commit 89278009be
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/FormTests.elm
View File

@ -154,7 +154,7 @@ all =
, describe "dependent validations" <|
let
--checkinFormParser : Form.HtmlForm String ( Date, Date ) data msg
checkinFormParser : Form.Form String ( Maybe ( Date, Date ), Dict String (List String) ) data (Form.Context String -> MyView)
checkinFormParser : Form.Form String ( Maybe ( Date, Date ), Dict String (List String) ) data (Form.Context String data -> MyView)
checkinFormParser =
Form.init
(\checkin checkout ->
@ -209,7 +209,7 @@ all =
let
--checkinFormParser : Form.HtmlForm String ( Date, Date ) data msg
--dependentParser : Form.Form String ( Maybe ( Date, Date ), Dict String (List String) ) data (Form.Context String -> MyView)
linkForm : Form.Form String ( Maybe PostAction, Form.FieldErrors error ) data (Form.Context String -> MyView)
linkForm : Form.Form String ( Maybe PostAction, Form.FieldErrors error ) data (Form.Context String data -> MyView)
linkForm =
Form.init
(\url ->
@ -222,7 +222,7 @@ all =
|> Field.url
)
postForm : Form.Form String ( Maybe PostAction, Form.FieldErrors error ) data (Form.Context String -> MyView)
postForm : Form.Form String ( Maybe PostAction, Form.FieldErrors error ) data (Form.Context String data -> MyView)
postForm =
Form.init
(\title body ->
@ -237,11 +237,12 @@ all =
|> Form.field "title" (Field.text |> Field.required "Required")
|> Form.field "body" Field.text
dependentParser : Form.Form String ( Maybe PostAction, Form.FieldErrors String ) data (Form.Context String -> MyView)
dependentParser : Form.Form String ( Maybe PostAction, Form.FieldErrors String ) data (Form.Context String data -> MyView)
dependentParser =
Form.init
(\kind postForm_ ->
postForm_ kind.value
|> Form.andThen identity
)
(\fieldErrors kind postForm_ ->
Div