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 more test cases.

Browse Source
This commit is contained in:
Dillon Kearns 2022-07-23 08:51:24 +02:00
parent 0e2ab10e50
commit 93e2afc158
1 changed files with 21 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
tests/FormTests.elm
View File

@ -71,25 +71,31 @@ all =
, describe "oneOf" <|
let
oneOfParsers =
[ Form.init
(\_ -> Validation.succeed Signout)
(\_ -> Div)
|> Form.hiddenField "kind" (Field.exactValue "signout" "Expected signout")
, Form.init
(\_ uuid quantity ->
Validation.succeed SetQuantity
|> Validation.andMap (uuid |> Validation.map Uuid)
|> Validation.andMap quantity
[ Form.init2
(\_ ->
{ combine = Validation.succeed Signout
, view = \_ -> Div
}
)
(\_ _ -> Div)
|> Form.hiddenField "kind" (Field.exactValue "setQuantity" "Expected setQuantity")
|> Form.hiddenField "uuid" (Field.text |> Field.required "Required")
|> Form.field "quantity" (Field.int { invalid = \_ -> "Expected int" } |> Field.required "Required")
|> Form.hiddenField2 "kind" (Field.exactValue "signout" "Expected signout")
, Form.init2
(\_ uuid quantity ->
{ combine =
Validation.succeed SetQuantity
|> Validation.andMap (uuid |> Validation.map Uuid)
|> Validation.andMap quantity
, view =
\_ -> Div
}
)
|> Form.hiddenField2 "kind" (Field.exactValue "setQuantity" "Expected setQuantity")
|> Form.hiddenField2 "uuid" (Field.text |> Field.required "Required")
|> Form.field2 "quantity" (Field.int { invalid = \_ -> "Expected int" } |> Field.required "Required")
]
in
[ test "first branch" <|
\() ->
Form.runOneOfServerSide
Form.runOneOfServerSide2
(fields
[ ( "kind", "signout" )
]
@ -101,7 +107,7 @@ all =
)
, test "second branch" <|
\() ->
Form.runOneOfServerSide
Form.runOneOfServerSide2
(fields
[ ( "kind", "setQuantity" )
, ( "uuid", "123" )