Add tests for new back/forward functionality, accepting a numeric arg…

…ument for number of pages back/forward in history
devn · Feb 17, 2012 · aeae113 · aeae113
1 parent 5bc4fdb
commit aeae113
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/test/clj_webdriver/test/taxi.clj b/test/clj_webdriver/test/taxi.clj
@@ -29,12 +29,17 @@
   ;; Back, forward ;;
   (go)
   (click (find-element {:tag :a, :text "example form"}))
-  (Thread/sleep 500)
+  (Thread/sleep 500) ;; cross-browser race condition
   (fact (current-url) => (str test-base-url "example-form"))
   (back)
   (fact (current-url) => test-base-url)
   (forward)
   (fact (current-url) => (str test-base-url "example-form"))
+  (go "clojure")
+  (back 2)
+  (fact (current-url) => test-base-url)
+  (forward 2)
+  (fact (current-url) => (str test-base-url "clojure"))
 
   ;; To function (navigation) ;;
   (to (str test-base-url "example-form"))