status-im
/
status-mobile
mirror of https://github.com/status-im/status-mobile.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

appium-test macro

This commit is contained in:
Roman Volosovskyi 2016-05-26 17:00:42 +03:00
parent 63dd0d4a4a
commit 54ae25dc67
2 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/status_im/appium.clj
View File

@ -50,7 +50,7 @@
(.getText (by-xpath driver xpath))) (.getText (by-xpath driver xpath)))
(defn xpath-by-text [text] (defn xpath-by-text [text]
(str ".//*[@text='" text "']" )) (str ".//*[@text='" text "']"))
(defn contains-text [driver text] (defn contains-text [driver text]
(is (= 1 (->> (xpath-by-text text) (is (= 1 (->> (xpath-by-text text)
@ -59,3 +59,11 @@
(defn quit [driver] (defn quit [driver]
(.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)))))

14
test/status_im/console.clj
View File

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