Main.elm

actions : List Step
actions =
    [ visit "https://google.com"
    , title <| Expect.equal "this will fail!"
    , elementCount "input" <| Expect.atLeast 1
    , setValue "input[name='q']" "Elm lang"
    , elementText "#rso > div:nth-child(1) > div:nth-child(1) > div > h3 > a" <| Expect.equal "Elm is the best"
    , click "#rso > div:nth-child(1) > div:nth-child(1) > div > h3 > a"
    , pause 2000
    , title <| Expect.equal "home"
    ]