 (defn url-ends-with [& args]
   (is (.endsWith (taxi/current-url) (apply app-url args))))
 
-;; TODO - revisit not being able to go forward - log count stays the same going forward
-#_(deftest history-works
-  (click "Tag Stats")
-  (is (.endsWith (taxi/current-url) "/semtag-web-test.html#/tag-stats"))
-  (back)
-  (is (.endsWith (taxi/current-url) "/semtag-web-test.html#/"))
-  (forward))
-
-(deftest urls-get-updated-correctly
-  (is (.endsWith (taxi/current-url) (app-url)))
+(deftest navbar-links-work
   (url-ends-with "")
   (click "Tag Stats")
   (url-ends-with "#/tag-stats")

            [clj-webdriver.driver :refer [init-driver]]
            [clj-webdriver.core :as core]
            [clj-webdriver.taxi :as taxi]
            [clojure.string :as string])
  (:import [org.openqa.selenium.phantomjs PhantomJSDriver]
           [org.openqa.selenium.remote DesiredCapabilities]))

(defn app-url [& args]
  (apply str "/semtag-web-test.html" args))

(defn full-app-url [& args]
  (str "out/public" (apply app-url args)))

(defn click [text]
  (core/click (taxi/find-element {:tag :a :text text}))
  (Thread/sleep 500))
