 
 (defonce replay (atom {:actions [] :step 0}))
 
+(defn error-page? [page-source]
+  (or (boolean (re-find #"error-page" page-source))
+      (boolean (re-find #"not-found" page-source))))
+
+(defn login-button-rendered? [page-source]
+  (boolean (re-find #"login" page-source)))
+
 (deftest users
   (testing "All created users are valid"
     (o/start!)

       (if-let [action (rand-nth (seq (find-actions d)))]
         (let [action' (expand-action d action)]
           (eval! d action')
           (f action')
           (recur (dec n) (conj actions action')))
         actions)))))

;; ======================================================================

(ns osmium.core-test
  (:require [clojure.test :refer :all]
            [clj-webdriver.taxi :as taxi]
            [osmium.core :as o]
