mirror of
https://github.com/dillonkearns/elm-pages-v3-beta.git
synced 2024-11-27 11:05:46 +03:00
59 lines
2.1 KiB
Elm
59 lines
2.1 KiB
Elm
module FormDataTest exposing (all)
|
|
|
|
import Dict
|
|
import Expect
|
|
import FormData
|
|
import Test exposing (Test, describe, test)
|
|
|
|
|
|
all : Test
|
|
all =
|
|
describe "FormData"
|
|
[ test "single field" <|
|
|
\() ->
|
|
"user=dillon"
|
|
|> FormData.parse
|
|
|> Expect.equalDicts
|
|
(Dict.fromList
|
|
[ ( "user"
|
|
, ( "dillon", [] )
|
|
)
|
|
]
|
|
)
|
|
, test "multiple fields" <|
|
|
\() ->
|
|
"custname=Customer+name&custtel=123456&custemail=hello%40example.com&size=medium&topping=bacon&delivery=&comments="
|
|
|> FormData.parse
|
|
|> Expect.equalDicts
|
|
(Dict.fromList
|
|
[ ( "comments", ( "", [] ) )
|
|
, ( "custemail", ( "hello@example.com", [] ) )
|
|
, ( "custname", ( "Customer name", [] ) )
|
|
, ( "custtel", ( "123456", [] ) )
|
|
, ( "delivery", ( "", [] ) )
|
|
, ( "size", ( "medium", [] ) )
|
|
, ( "topping", ( "bacon", [] ) )
|
|
]
|
|
)
|
|
, test "duplicate empty fields" <|
|
|
\() ->
|
|
"name=&name=&name="
|
|
|> FormData.parse
|
|
|> Expect.equalDicts
|
|
(Dict.fromList
|
|
[ ( "name", ( "", [ "", "" ] ) )
|
|
]
|
|
)
|
|
, test "duplicate fields" <|
|
|
\() ->
|
|
"name=name1&name=%26name2&name=%22this+is+name+3%22"
|
|
|> FormData.parse
|
|
|> Expect.equalDicts
|
|
(Dict.fromList
|
|
[ ( "name"
|
|
, ( "name1", [ "&name2", "\"this is name 3\"" ] )
|
|
)
|
|
]
|
|
)
|
|
]
|