use CSS selector for tweet area
All checks were successful
ci/woodpecker/push/publish Pipeline was successful
All checks were successful
ci/woodpecker/push/publish Pipeline was successful
This commit is contained in:
parent
e456fa5bda
commit
da1c0c8298
1 changed files with 9 additions and 11 deletions
|
@ -152,23 +152,21 @@ let tweet ctx msg =
|
|||
in
|
||||
click ctx.session_id tweet_button;
|
||||
let tweet_area =
|
||||
match find ctx.session_id (XPath "//div[@data-testid='tweetTextarea_0']") with
|
||||
match find ctx.session_id (CSS "div[data-testid='tweetTextarea_0']") with
|
||||
| [] -> raise (Any (fmt "Tweet area not found"))
|
||||
| _ as l ->
|
||||
if List.length l > 1 then raise (Any "Too many tweet areas found") else List.nth l 0
|
||||
in
|
||||
send_keys ctx.session_id tweet_area msg;
|
||||
Unix.sleep 2;
|
||||
let send_tweet_button =
|
||||
match find ctx.session_id (XPath "//div[@data-testid='tweetButton']") with
|
||||
| [] -> raise (Any (fmt "Tweet button not found"))
|
||||
| _ as l ->
|
||||
if List.length l > 1
|
||||
then raise (Any "Too many tweet button found")
|
||||
else List.nth l 0
|
||||
in
|
||||
send_keys ctx.session_id tweet_area msg;
|
||||
Unix.sleep 2;
|
||||
let send_tweet_button =
|
||||
match find ctx.session_id (XPath "//div[@data-testid='tweetButton']") with
|
||||
| [] -> raise (Any (fmt "Send-tweet button not found"))
|
||||
| _ as l ->
|
||||
if List.length l > 1
|
||||
then raise (Any "Too many send-tweet button found")
|
||||
else List.nth l 0
|
||||
in
|
||||
click ctx.session_id send_tweet_button;
|
||||
Unix.sleep 8
|
||||
;;
|
||||
|
|
Loading…
Reference in a new issue