steve
/
factor-work
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix delete session

master
Steve Ayerhart 2022-03-13 21:28:04 -04:00
parent 58da422a11
commit e5f4bd1186
No known key found for this signature in database
GPG Key ID: 5C815FDF3A00B8BA
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
web-driver/web-driver.factor
View File

@ -29,7 +29,7 @@ TUPLE: session-status message ready? ;
current-web-driver-session> remote-url>> ; current-web-driver-session> remote-url>> ;
: current-session-relative-url ( -- url ) : current-session-relative-url ( -- url )
"session" current-session-id get append-path >url ; "session" current-session-id append-path >url ;
: current-session-url ( -- url ) : current-session-url ( -- url )
current-remote-url current-session-relative-url derive-url ; current-remote-url current-session-relative-url derive-url ;
@ -103,11 +103,8 @@ TUPLE: capabilities { always-match hashtable } { first-match hashtable } ;
"session" <web-driver-post-request> http-web-driver-request "session" <web-driver-post-request> http-web-driver-request
dup "sessionId" of current-session-id set ; dup "sessionId" of current-session-id set ;
: delete-session ( id -- ) : delete-session ( -- )
<web-driver-delete-request> http-web-driver-request drop ; current-session-url <web-driver-delete-request> http-web-driver-request drop ;
: delete-current-session ( -- )
current-session-id get delete-session ;
! Timeouts ! Timeouts
! https://www.w3.org/TR/webdriver/#timeouts ! https://www.w3.org/TR/webdriver/#timeouts