backup/EWF
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Updated RestAPI commands

Browse Source
This commit is contained in:
jvelilla
2013-04-15 16:16:16 -03:00
parent 1daab0598a
commit c63e307179
11 changed files with 2183 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

398
library/test/selenium/src/command_executor.e
View File

@@ -7,36 +7,45 @@ note
class
COMMAND_EXECUTOR
inherit
JSON_HELPER
SE_JSON_WIRE_PROTOCOL_COMMANDS
-- TODO
-- clean and improve the code
-- handle response from the server in a smart way
create
make
feature -- Initialization
make (a_host : STRING_32)
make (a_host: STRING_32)
local
h: LIBCURL_HTTP_CLIENT
do
host := a_host
create h.make
http_session := h.new_session (a_host)
-- http_session.set_is_debug (True)
-- http_session.set_proxy ("127.0.0.1", 8888)
end
feature -- Status Report
is_available : BOOLEAN
-- Is the Seleniun server up and running?
local
resp: HTTP_CLIENT_RESPONSE
is_available: BOOLEAN
-- Is the Seleniun server up and running?
do
-- resp := execute_get (cmd_ping)
-- if resp.status = 200 then
-- Result := True
-- end
Result := true
Result := http_session.is_available
end
feature -- Commands
status : SE_RESPONSE
status: SE_RESPONSE
require
selinum_server_available : is_available
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
@@ -47,57 +56,358 @@ feature -- Commands
end
end
new_session (capabilities : STRING_32) : SE_RESPONSE
new_session (capabilities: STRING_32): SE_RESPONSE
require
selinum_server_available : is_available
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_post (cmd_new_session, capabilities)
if attached resp.body as l_body then
Result := build_response(l_body)
if attached resp.header ("Location") as l_location then
resp := http_new_session (l_location).get ("", context_executor)
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
end
sessions : SE_RESPONSE
sessions: SE_RESPONSE
require
selinum_server_available : is_available
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_get (cmd_sessions)
if attached resp.body as l_body then
Result := build_response(l_body)
Result := build_response (l_body)
end
end
retrieve_session (session_id: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_get (cmd_session_by_id (session_id))
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
delete_session (session_id: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_delete (cmd_session_by_id (cmd_session_by_id (session_id)))
if resp.status = 204 then
Result.set_status (0)
Result.set_session_id (session_id)
else
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
end
set_session_timeouts (a_session_id: STRING_32; a_data_timeout: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_post (cmd_session_timeouts (a_session_id), a_data_timeout)
if resp.status = 204 then
Result.set_status (0)
Result.set_session_id (a_session_id)
else
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
end
set_session_timeouts_async_script (a_session_id: STRING_32; a_data_timeout: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_post (cmd_session_timeouts_async_script (a_session_id), a_data_timeout)
if resp.status = 204 then
Result.set_status (0)
Result.set_session_id (a_session_id)
else
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
end
set_session_timeouts_implicit_wait (a_session_id: STRING_32; a_data_timeout: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_post (cmd_session_timeouts_implicit_wait (a_session_id), a_data_timeout)
if resp.status = 204 then
Result.set_status (0)
Result.set_session_id (a_session_id)
else
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
end
retrieve_window_handle (session_id: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_get (cmd_session_window_handle (session_id))
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
retrieve_window_handles (session_id: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_get (cmd_session_window_handles (session_id))
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
retrieve_url (session_id: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_get (cmd_session_url (session_id))
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
navigate_to_url (a_session_id: STRING_32; a_url: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_post (cmd_session_url (a_session_id), a_url)
if resp.status = 204 then
Result.set_status (0)
Result.set_session_id (a_session_id)
else
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
end
forward (a_session_id: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_post (cmd_session_forward (a_session_id), Void)
if resp.status = 204 then
Result.set_status (0)
Result.set_session_id (a_session_id)
else
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
end
back (a_session_id: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_post (cmd_session_back (a_session_id), Void)
if resp.status = 204 then
Result.set_status (0)
Result.set_session_id (a_session_id)
else
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
end
refresh (a_session_id: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_post (cmd_session_refresh (a_session_id), Void)
if resp.status = 204 then
Result.set_status (0)
Result.set_session_id (a_session_id)
else
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
end
execute
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
-- TODO
end
execute_async
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
-- TODO
end
screenshot (session_id: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_get (cmd_session_screenshot (session_id))
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
ime_available_engines (session_id: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_get (cmd_session_ime_available (session_id))
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
ime_active_engine (session_id: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_get (cmd_session_ime_active_engine (session_id))
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
ime_activated (session_id: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_get (cmd_session_ime_activated (session_id))
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
ime_deactivate (a_session_id: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_post (cmd_session_ime_deactivate (a_session_id), Void)
if resp.status = 204 then
Result.set_status (0)
Result.set_session_id (a_session_id)
else
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
end
ime_activate (a_session_id: STRING_32; an_engine: STRING_32): SE_RESPONSE
require
selinum_server_available: is_available
local
resp: HTTP_CLIENT_RESPONSE
do
create Result.make_empty
resp := execute_post (cmd_session_ime_activate (a_session_id), an_engine)
if resp.status = 204 then
Result.set_status (0)
Result.set_session_id (a_session_id)
else
if attached resp.body as l_body then
Result := build_response (l_body)
end
end
end
feature {NONE} -- Implementation
execute_get (command_name:STRING_32) : HTTP_CLIENT_RESPONSE
local
h: LIBCURL_HTTP_CLIENT
http_session : HTTP_CLIENT_SESSION
execute_get (command_name: STRING_32): HTTP_CLIENT_RESPONSE
do
create h.make
http_session := h.new_session (host)
Result := http_session.get (command_name, context_executor)
end
execute_post (command_name:STRING_32; data: STRING_32) : HTTP_CLIENT_RESPONSE
local
h: LIBCURL_HTTP_CLIENT
http_session : HTTP_CLIENT_SESSION
execute_post (command_name: STRING_32; data: detachable READABLE_STRING_8): HTTP_CLIENT_RESPONSE
do
create h.make
http_session := h.new_session (host)
Result := http_session.post (command_name, context_executor, data)
end
execute_delete (command_name: STRING_32): HTTP_CLIENT_RESPONSE
do
Result := http_session.delete (command_name, context_executor)
end
build_response (a_message : STRING_32) : SE_RESPONSE
build_response (a_message: STRING_32): SE_RESPONSE
do
create Result.make_empty
initialize_converters (json)
@@ -107,14 +417,26 @@ feature {NONE} -- Implementation
Result.set_json_response (a_message)
end
context_executor : HTTP_CLIENT_REQUEST_CONTEXT
-- request context for each request
once
context_executor: HTTP_CLIENT_REQUEST_CONTEXT
-- request context for each request
do
create Result.make
Result.headers.put ("application/json;charset=UTF-8", "Content-Type")
Result.headers.put ("application/json;charset=UTF-8", "Accept")
end
host : STRING_32
host: STRING_32
http_session: HTTP_CLIENT_SESSION
http_new_session (url: STRING_32): HTTP_CLIENT_SESSION
local
h: LIBCURL_HTTP_CLIENT
do
create h.make
Result := h.new_session (url)
-- Result.set_is_debug (True)
-- Result.set_proxy ("127.0.0.1", 8888)
end
end