       (io/copy "foo.png")
 ))
 
-
-
-
 (defn is-url-matches? [session url-regex]
   (->> session
        get-url

  (let [element (find-element browser :foo :bar)]
    (element-value! browser element text)))

(deftest foo
  (let [browser :todo]
    (doto browser
      (goto "http://ya.ru")
      (go-back)
      (go-forward)
      (-> (has-text "hello") is)

      )

    (doto browser
      (-> )
      (has-text "hello")
      )

    (-> (has-text "hello") is)

    (is (has-text browser "hello"))

    (-> browser
        (goto "http://ya.ru")
        (go-back)
        (go-forward)
        (is-url-matches? #"todo")
        (click "todo")
        (fill-in "name" "Ivan")
        (fill-in "password" "test")
        (set-cookie "foo" "bar" "baz")
        (delete-cookie "foo")
        (has-cookie! "name")
        (has-text! "test")
        (click "submit")
        (wait-for-element "message")
        (exists "ready")
        (pause 1000)
        (assert )
        (end))))

(ns webdriver.core
  (:require [clj-http.client :as client]
            [clojure.string :as str]
            [clojure.data.codec.base64 :as b64]
            [clojure.java.io :as io]
            [clojure.test :refer [is deftest]]))

(def url-server "http://127.0.0.1:4444")

(def url-status "/status")
(def url-session "/session")
(def url-session-delete "/session/%s")
(def url-go-url "/session/%s/url")
(def url-go-back "/session/%s/back")
(def url-go-forward "/session/%s/forward")
