Implements web driver test suite and simple test.

tests/browsertester.nim

@@ -0,0 +1,68 @@
+import options, osproc, streams, threadpool, os, strformat, httpclient
+
+import webdriver
+
+proc runProcess(cmd: string) =
+  let p = startProcess(
+    cmd,
+    options={
+      poStdErrToStdOut,
+      poEvalCommand
+    }
+  )
+
+  let o = p.outputStream
+  while p.running and (not o.atEnd):
+    echo cmd.substr(0, 10), ": ", o.readLine()
+
+  p.close()
+
+const backend = "forum"
+const port = 5000
+const baseUrl = "http://localhost:" & $port & "/"
+template withBackend(body: untyped): untyped =
+  ## Starts a new backend instance with a fresh DB.
+  doAssert(execCmd("nimble testdb") == QuitSuccess)
+
+  spawn runProcess("nimble runbackend")
+  defer:
+    discard execCmd("killall " & backend)
+
+  echo("Waiting for server...")
+  var success = false
+  for i in 0..5:
+    sleep(5000)
+    try:
+      let client = newHttpClient()
+      doAssert client.getContent(baseUrl).len > 0
+      success = true
+      break
+    except:
+      echo("Failed to getContent")
+
+  doAssert success
+
+  body
+
+import browsertests/scenario1
+
+when isMainModule:
+  spawn runProcess("geckodriver -p 4444 --log config")
+  defer:
+    discard execCmd("killall geckodriver")
+
+  doAssert(execCmd("nimble frontend") == QuitSuccess)
+  echo("Waiting for geckodriver to startup...")
+  sleep(5000)
+
+  try:
+    let driver = newWebDriver()
+    let session = driver.createSession()
+
+    withBackend:
+      scenario1.test(session, baseUrl)
+
+    session.close()
+  except:
+    sleep(10000) # See if we can grab any more output.
+    raise

tests/browsertester.nims

@@ -0,0 +1 @@
+--threads:on

tests/browsertests/scenario1.nim

@@ -0,0 +1,29 @@
+import unittest, options, os
+
+import webdriver
+
+proc waitForLoad(session: Session) =
+  sleep(2000)
+
+  while true:
+    let loading = session.findElement(".loading")
+    if loading.isNone: return
+    sleep(1000)
+
+proc test*(session: Session, baseUrl: string) =
+  session.navigate(baseUrl)
+
+  waitForLoad(session)
+
+  # Sanity checks
+  test "shows sign up":
+    let signUp = session.findElement("#signup-btn")
+    check signUp.get().getText() == "Sign up"
+
+  test "shows log in":
+    let signUp = session.findElement("#login-btn")
+    check signUp.get().getText() == "Log in"
+
+  test "is empty":
+    let thread = session.findElement("tr > td.thread-title")
+    check thread.isNone()