appium-test macro

Former-commit-id: 54ae25dc67

test/status_im/appium.clj

@@ -50,7 +50,7 @@
   (.getText (by-xpath driver xpath)))
 
 (defn xpath-by-text [text]
-  (str ".//*[@text='" text "']" ))
+  (str ".//*[@text='" text "']"))
 
 (defn contains-text [driver text]
   (is (= 1 (->> (xpath-by-text text)
@@ -59,3 +59,11 @@
 
 (defn quit [driver]
   (.quit driver))
+
+(defmacro appium-test [name & body]
+  (let [sym (gensym)]
+    `(deftest ~name
+       (let [~sym (init)]
+         ~@(for [[f & rest] body]
+             `(~f ~sym ~@rest))
+         (quit ~sym)))))

test/status_im/console.clj

@@ -7,11 +7,9 @@
        " the exclamation mark or hit the icon to open the command "
        "list and choose the !phone command"))
 
-(deftest console-test
-  (let [driver (init)]
-    (click driver :request-keypair-password)
-    (write driver :command-input "123")
-    (click driver :stage-command)
-    (click driver :send-message)
-    (contains-text driver message-text)
-    (quit driver)))
+(appium-test console-test
+  (click :request-keypair-password)
+  (write :command-input "123")
+  (click :stage-command)
+  (click :send-message)
+  (contains-text message-text))