parent
6823acd171
commit
23b646c213
|
@ -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)))))
|
||||||
|
|
|
@ -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)))
|
|
||||||
|
|
Loading…
Reference in New Issue