 (def default-ports
   "Default ports to launch a driver process."
   {:firefox 4444
-   :chrome 5555
+   :chrome 9515
    :phantom 8910})
 
 (def default-locator "xpath")

;; wait functions
;;

(def default-timeout 10)
(def default-interval 0.1)

(defn wait
  "Does nothing for N seconds."

  (wait-predicate #(exists? driver q) opt))

(defn wait-absent [driver q & [opt]]
  (let [message (format "Wait for %s element is absent" q)]
    (wait-predicate #(absent? driver q)
                    (assoc opt :message message))))

(defn wait-visible [driver q & [opt]]
  (let [message (format "Wait for %s element is visible" q)]
    (wait-predicate #(visible? driver q)
                    (assoc opt :message message))))

(defn wait-invisible [driver q & [opt]]
  (wait-predicate #(invisible? driver q) opt))
