mirror of
https://github.com/dillonkearns/elm-pages-v3-beta.git
synced 2024-11-28 14:34:18 +03:00
Add another test case.
This commit is contained in:
parent
26f9f02697
commit
3d24e970e0
@ -53,6 +53,17 @@ suite =
|
||||
[ text "Hello Jane!"
|
||||
]
|
||||
|> ProgramTest.done
|
||||
, test "back to login page with session" <|
|
||||
\() ->
|
||||
start "/login" mockData
|
||||
|> ProgramTest.ensureBrowserUrl (Expect.equal "https://localhost:1234/login")
|
||||
|> ProgramTest.fillInDom "name" "Name" "Jane"
|
||||
|> ProgramTest.submitForm
|
||||
|> ProgramTest.ensureBrowserUrl (Expect.equal "https://localhost:1234/greet")
|
||||
|> ProgramTest.routeChange "/login"
|
||||
|> ProgramTest.ensureBrowserUrl (Expect.equal "https://localhost:1234/login")
|
||||
|> ProgramTest.ensureViewHas [ text "Hello Jane!" ]
|
||||
|> ProgramTest.done
|
||||
]
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user