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 a test case.

Browse Source
This commit is contained in:
Dillon Kearns 2022-07-23 20:16:32 +02:00
parent 5fe860a11e
commit c31f1b43ed
1 changed files with 24 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
tests/FormTests.elm
View File

@ -225,36 +225,41 @@ all =
)
, test "sub-form" <|
\() ->
Form.runServerSide
Form.runServerSide4
(fields
[ ( "password", "mypassword" )
, ( "password-confirmation", "doesnt-match" )
]
)
(Form.init
(Form.init2
(\postForm_ ->
postForm_ ()
{ combine =
postForm_.combine ()
, view =
\_ -> ( [], [ Div ] )
}
)
(\_ _ -> ( [], [ Div ] ))
|> Form.dynamic
|> Form.dynamic2
(\() ->
Form.init
Form.init2
(\password passwordConfirmation ->
Validation.succeed
(\passwordValue passwordConfirmationValue ->
if passwordValue == passwordConfirmationValue then
Validation.succeed { password = passwordValue }
{ combine =
Validation.succeed
(\passwordValue passwordConfirmationValue ->
if passwordValue == passwordConfirmationValue then
Validation.succeed { password = passwordValue }
else
Validation.fail passwordConfirmation "Must match password"
)
|> Validation.andMap password
|> Validation.andMap passwordConfirmation
|> Validation.andThen identity
else
Validation.fail2 passwordConfirmation "Must match password"
)
|> Validation.andMap password
|> Validation.andMap passwordConfirmation
|> Validation.andThen identity
, view = [ Div ]
}
)
(\_ _ _ -> [ Div ])
|> Form.field "password" (Field.text |> Field.password |> Field.required "Required")
|> Form.field "password-confirmation" (Field.text |> Field.password |> Field.required "Required")
|> Form.field2 "password" (Field.text |> Field.password |> Field.required "Required")
|> Form.field2 "password-confirmation" (Field.text |> Field.password |> Field.required "Required")
)
)
|> Expect.equal