#!/usr/bin/env webinteract
setvals(url="https://a.web.page/")
setvals(account="an@email.address", pw="s3crEt p4s5w0rd")
visit(url)
fill(account, "id", "loginForm:id")
fill(pw, "id", "loginForm:password")
click("id", "loginForm:loginButton")
verify( \
  is_text_present("Login succeeded", wait_time=10), True, \
  "Login failed")
fill("A text", "id", "textForm:field1")
fill("Another text", "id", "textForm:field2")
click("id", "registerForm:addText")
verify( \
  is_text_present("Add text failed"), False, \
  "Add text failed")