add multiple clicks (#348)

src/etaoin/api.clj

@@ -666,7 +666,7 @@
 
 ;; actions
 
-(declare el->ref)
+(declare el->ref wait)
 
 (defn rand-uuid
   []
@@ -985,6 +985,16 @@
                        (count elements) q)))
       (click-el driver (first elements)))))
 
+(defn click-multi
+  "Clicks on a multiple elements in batch.
+
+  `qs`  a vector of [query1 query2 query3 ...]
+  `pause` a pause between click in seconds, default is 0"
+
+  [driver qs & [pause]]
+  (doseq [q qs]
+    (wait (or pause 0))
+    (click driver q)))
 
 ;; Double click
 

test/etaoin/api_test.clj

@@ -76,6 +76,12 @@
       (is (= "rf" default-val))
       (is (= "fr" selected-val)))))
 
+(deftest test-multiple-click
+  (click-multi *driver* [:vehicle1 :vehicle2 :vehicle3] 0.3)
+  (is (selected? *driver* :vehicle1))
+  (is (selected? *driver* :vehicle2))
+  (is (selected? *driver* :vehicle3)))
+
 (deftest test-input
   (testing "fill multiple imputs"
     (doto *driver*