test->text

master
Steve Ayerhart 2022-02-14 16:41:03 -05:00
parent cff1fe747b
commit 0f0a49f83d
No known key found for this signature in database
GPG Key ID: 5C815FDF3A00B8BA
1 changed files with 3 additions and 3 deletions

View File

@ -300,11 +300,11 @@ TUPLE: rect x y width height ;
: accept-alert ( -- )
f "alert/accept" <session-post-request> http-web-driver-request drop ;
: get-alert-test ( -- text )
"alert/accept" <session-get-request> http-web-driver-request ;
: get-alert-text ( -- text )
"alert/text" <session-get-request> http-web-driver-request ;
: send-alert-text ( text -- )
'H{ { "text" _ } } "alert/accept" <session-post-request> http-web-driver-request drop ;
'H{ { "text" _ } } "alert/text" <session-post-request> http-web-driver-request drop ;
! Screen capture
! https://www.w3.org/TR/webdriver/#screen-capture