add select fn (#241)

* add select fn

resources/html/test.html

@@ -36,6 +36,12 @@ <h3>Input section</h3>
                 <label>Password</label>
                 <input id="simple-password"
                        name="password" type="password"><br>
+                <select id="simple-country">
+                    <option value="rf">Russia</option>
+                    <option value="usa">United States</option>
+                    <option value="uk">United Kingdom</option>
+                    <option value="fr">France</option>
+                </select>
                 <label>Message</label>
                 <textarea id="simple-textarea"
                           name="message"></textarea><br>

src/etaoin/api.clj

@@ -2438,6 +2438,20 @@
   [driver q text]
   (fill-human-el driver (query driver q) text))
 
+(defn select
+  "Select element in select-box by visible text on click.
+
+  Arguments:
+
+  - `driver`: a driver instance,
+
+  - `q`: a query term, see `query` function for more info,
+
+  - `text`: a string to input."
+  [driver q text]
+  (let [el (query driver q {:tag :option :fn/has-text text})]
+    (click-el driver el)))
+
 (defn clear-el
   "Clears an element by its identifier."
   [driver el]

test/etaoin/api_test.clj

@@ -73,6 +73,14 @@
     (-> (invisible? {:id :div-hidden}) is)
     (-> (invisible? {:id :dunno-foo-bar}) is)))
 
+(deftest test-select
+  (testing "test `select` on select-box"
+    (let [default-val (get-element-value *driver* :simple-country)
+          _ (select *driver* :simple-country "France")
+          selected-val (get-element-value *driver* :simple-country)]
+      (is (= "rf" default-val))
+      (is (= "fr" selected-val)))))
+
 (deftest test-input
   (testing "fill multiple imputs"
     (doto *driver*