From 0887f7d22fc87fc6925e4bb4ea75a14eddb5d616 Mon Sep 17 00:00:00 2001
From: jvelilla <javier.hector@gmail.com>
Date: Sun, 8 Sep 2013 11:44:46 -0300
Subject: [PATCH] Moved Selenium web driver to WebDriver-Eiffel repository

---
 library/test/selenium/examples/application.e  |   32 -
 library/test/selenium/examples/example_1.e    |   58 -
 .../test/selenium/examples/example_search.e   |   72 -
 library/test/selenium/examples/examples.ecf   |   63 -
 .../selenium/examples/find_element_child.e    |   61 -
 .../selenium/examples/find_element_class.e    |   84 -
 .../examples/find_element_css_selector.e      |   66 -
 .../test/selenium/examples/find_element_id.e  |   63 -
 .../selenium/examples/find_element_name.e     |   57 -
 .../selenium/examples/find_element_xpath.e    |   74 -
 .../selenium/examples/find_elements_links.e   |   72 -
 .../find_elements_links_by_partial_text.e     |   71 -
 .../examples/find_elements_links_by_text.e    |   55 -
 library/test/selenium/examples/project.rc     |    6 -
 .../selenium/examples/selenium_example.rc     |    6 -
 library/test/selenium/readme.md               |  193 --
 library/test/selenium/selenium-safe.ecf       |   21 -
 library/test/selenium/src.rc                  |    6 -
 .../converter/se_build_value_json_converter.e |   72 -
 .../se_capabilities_json_converter.e          |  185 --
 .../src/converter/se_cookie_json_converter.e  |  100 -
 .../converter/se_java_value_json_converter.e  |   51 -
 .../src/converter/se_json_converter.e         |   27 -
 .../converter/se_os_value_json_converter.e    |   73 -
 .../converter/se_response_json_converter.e    |   73 -
 .../src/converter/se_status_json_converter.e  |  101 -
 .../se_status_value_json_converter.e          |   70 -
 .../se_timeout_type_json_converter.e          |   60 -
 library/test/selenium/src/enum.e              |   37 -
 .../test/selenium/src/helpers/http_methods.e  |   19 -
 .../test/selenium/src/helpers/json_helper.e   |  101 -
 .../src/protocol/executor/command_executor.e  | 1075 --------
 .../src/protocol/se_json_wire_protocol.e      | 2259 -----------------
 .../protocol/se_json_wire_protocol_commands.e |  675 -----
 .../selenium/src/response/se_build_value.e    |   63 -
 .../selenium/src/response/se_java_value.e     |   36 -
 .../test/selenium/src/response/se_os_value.e  |   64 -
 .../test/selenium/src/response/se_response.e  |   61 -
 .../test/selenium/src/response/se_status.e    |   98 -
 .../selenium/src/response/se_status_value.e   |   53 -
 library/test/selenium/src/se_button.e         |   95 -
 library/test/selenium/src/se_by.e             |  155 --
 library/test/selenium/src/se_capabilities.e   |  149 --
 library/test/selenium/src/se_cookie.e         |   96 -
 library/test/selenium/src/se_dimension.e      |   44 -
 library/test/selenium/src/se_error.e          |   33 -
 library/test/selenium/src/se_key_constants.e  |  128 -
 library/test/selenium/src/se_key_stroke.e     |   44 -
 library/test/selenium/src/se_keyboard.e       |   63 -
 .../src/se_locator_strategy_constants.e       |   28 -
 library/test/selenium/src/se_mouse.e          |   11 -
 library/test/selenium/src/se_point.e          |   41 -
 .../test/selenium/src/se_screen_orientation.e |   12 -
 library/test/selenium/src/se_session.e        |   27 -
 library/test/selenium/src/se_timeout_type.e   |   46 -
 library/test/selenium/src/web_driver.e        |  486 ----
 library/test/selenium/src/web_driver_log.e    |   26 -
 library/test/selenium/src/web_driver_proxy.e  |   47 -
 library/test/selenium/src/web_driver_wait.e   |   61 -
 library/test/selenium/src/web_element.e       |  127 -
 library/test/selenium/test/application.e      |  214 --
 .../test/selenium/test/exception_trace.log    |   28 -
 library/test/selenium/test/test-safe.ecf      |   21 -
 library/test/selenium/test/test.rc            |    6 -
 .../selenium/test/test_json_wire_protocol.e   |  302 ---
 library/test/selenium/test/test_se_by.e       |   69 -
 66 files changed, 8772 deletions(-)
 delete mode 100644 library/test/selenium/examples/application.e
 delete mode 100644 library/test/selenium/examples/example_1.e
 delete mode 100644 library/test/selenium/examples/example_search.e
 delete mode 100644 library/test/selenium/examples/examples.ecf
 delete mode 100644 library/test/selenium/examples/find_element_child.e
 delete mode 100644 library/test/selenium/examples/find_element_class.e
 delete mode 100644 library/test/selenium/examples/find_element_css_selector.e
 delete mode 100644 library/test/selenium/examples/find_element_id.e
 delete mode 100644 library/test/selenium/examples/find_element_name.e
 delete mode 100644 library/test/selenium/examples/find_element_xpath.e
 delete mode 100644 library/test/selenium/examples/find_elements_links.e
 delete mode 100644 library/test/selenium/examples/find_elements_links_by_partial_text.e
 delete mode 100644 library/test/selenium/examples/find_elements_links_by_text.e
 delete mode 100644 library/test/selenium/examples/project.rc
 delete mode 100644 library/test/selenium/examples/selenium_example.rc
 delete mode 100644 library/test/selenium/readme.md
 delete mode 100644 library/test/selenium/selenium-safe.ecf
 delete mode 100644 library/test/selenium/src.rc
 delete mode 100644 library/test/selenium/src/converter/se_build_value_json_converter.e
 delete mode 100644 library/test/selenium/src/converter/se_capabilities_json_converter.e
 delete mode 100644 library/test/selenium/src/converter/se_cookie_json_converter.e
 delete mode 100644 library/test/selenium/src/converter/se_java_value_json_converter.e
 delete mode 100644 library/test/selenium/src/converter/se_json_converter.e
 delete mode 100644 library/test/selenium/src/converter/se_os_value_json_converter.e
 delete mode 100644 library/test/selenium/src/converter/se_response_json_converter.e
 delete mode 100644 library/test/selenium/src/converter/se_status_json_converter.e
 delete mode 100644 library/test/selenium/src/converter/se_status_value_json_converter.e
 delete mode 100644 library/test/selenium/src/converter/se_timeout_type_json_converter.e
 delete mode 100644 library/test/selenium/src/enum.e
 delete mode 100644 library/test/selenium/src/helpers/http_methods.e
 delete mode 100644 library/test/selenium/src/helpers/json_helper.e
 delete mode 100644 library/test/selenium/src/protocol/executor/command_executor.e
 delete mode 100644 library/test/selenium/src/protocol/se_json_wire_protocol.e
 delete mode 100644 library/test/selenium/src/protocol/se_json_wire_protocol_commands.e
 delete mode 100644 library/test/selenium/src/response/se_build_value.e
 delete mode 100644 library/test/selenium/src/response/se_java_value.e
 delete mode 100644 library/test/selenium/src/response/se_os_value.e
 delete mode 100644 library/test/selenium/src/response/se_response.e
 delete mode 100644 library/test/selenium/src/response/se_status.e
 delete mode 100644 library/test/selenium/src/response/se_status_value.e
 delete mode 100644 library/test/selenium/src/se_button.e
 delete mode 100644 library/test/selenium/src/se_by.e
 delete mode 100644 library/test/selenium/src/se_capabilities.e
 delete mode 100644 library/test/selenium/src/se_cookie.e
 delete mode 100644 library/test/selenium/src/se_dimension.e
 delete mode 100644 library/test/selenium/src/se_error.e
 delete mode 100644 library/test/selenium/src/se_key_constants.e
 delete mode 100644 library/test/selenium/src/se_key_stroke.e
 delete mode 100644 library/test/selenium/src/se_keyboard.e
 delete mode 100644 library/test/selenium/src/se_locator_strategy_constants.e
 delete mode 100644 library/test/selenium/src/se_mouse.e
 delete mode 100644 library/test/selenium/src/se_point.e
 delete mode 100644 library/test/selenium/src/se_screen_orientation.e
 delete mode 100644 library/test/selenium/src/se_session.e
 delete mode 100644 library/test/selenium/src/se_timeout_type.e
 delete mode 100644 library/test/selenium/src/web_driver.e
 delete mode 100644 library/test/selenium/src/web_driver_log.e
 delete mode 100644 library/test/selenium/src/web_driver_proxy.e
 delete mode 100644 library/test/selenium/src/web_driver_wait.e
 delete mode 100644 library/test/selenium/src/web_element.e
 delete mode 100644 library/test/selenium/test/application.e
 delete mode 100644 library/test/selenium/test/exception_trace.log
 delete mode 100644 library/test/selenium/test/test-safe.ecf
 delete mode 100644 library/test/selenium/test/test.rc
 delete mode 100644 library/test/selenium/test/test_json_wire_protocol.e
 delete mode 100644 library/test/selenium/test/test_se_by.e

diff --git a/library/test/selenium/examples/application.e b/library/test/selenium/examples/application.e
deleted file mode 100644
index d3177d6f..00000000
--- a/library/test/selenium/examples/application.e
+++ /dev/null
@@ -1,32 +0,0 @@
-note
-	description : "project application root class"
-	date        : "$Date$"
-	revision    : "$Revision$"
-
-class
-	APPLICATION
-
-inherit
-	ARGUMENTS
-
-create
-	make
-
-feature {NONE} -- Initialization
-
-	make
-			-- Run application.
-		do
-			execute_search
-		end
-
-	execute_example1
-		do
-			(create {EXAMPLE_1}).test
-		end
-
-	execute_search
-		do
-			(create {EXAMPLE_SEARCH}).search
-		end
-end
diff --git a/library/test/selenium/examples/example_1.e b/library/test/selenium/examples/example_1.e
deleted file mode 100644
index 9efa3bce..00000000
--- a/library/test/selenium/examples/example_1.e
+++ /dev/null
@@ -1,58 +0,0 @@
-note
-	description: "Summary description for {EXAMPLE_1}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	EXAMPLE_1
-
-feature -- Access
-	test
-		local
-			web_driver: SE_JSON_WIRE_PROTOCOL
-			capabilities: SE_CAPABILITIES
-			l_session : detachable SE_SESSION
-		do
-			create web_driver.make
-			if attached web_driver.status as l_status then
-				create capabilities.make
-				capabilities.set_browser_name ("chrome")
-				l_session:= web_driver.create_session_with_desired_capabilities (capabilities)
-				if attached l_session as l_s then
-
-					-- navigate to www.google.com
-					web_driver.navigate_to_url (l_s.session_id, "http://www.google.com/")
-
-					-- Find the text input element by its name
-					if attached {WEB_ELEMENT} web_driver.search_element (l_s.session_id, (create {SE_BY}).name ("q")) as l_element then
-						-- search something
-						web_driver.send_event(l_s.session_id, l_element.element,<<"Eiffel Room">>)
-
-						-- Submit Form
-						web_driver.element_submit (l_s.session_id, l_element.element)
-
-						if attached web_driver.page_title (l_s.session_id) as l_page then
-							print ("Page Name" + l_page)
-						end
-					end
-				end
-
-			end
-		end
-
---		// And now use this to visit Google
---        driver.get("http://www.google.com");
-
---        // Find the text input element by its name
---        WebElement element = driver.findElement(By.name("q"));
-
---        // Enter something to search for
---        element.sendKeys("Cheese!");
-
---        // Now submit the form. WebDriver will find the form for us from the element
---        element.submit();
-
---        // Check the title of the page
---        System.out.println("Page title is: " + driver.getTitle());
-end
diff --git a/library/test/selenium/examples/example_search.e b/library/test/selenium/examples/example_search.e
deleted file mode 100644
index 3a42d4f3..00000000
--- a/library/test/selenium/examples/example_search.e
+++ /dev/null
@@ -1,72 +0,0 @@
-note
-	description: "Summary description for {EXAMPLE_SEARCH}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	EXAMPLE_SEARCH
-
-inherit
-
-	ANY
-		redefine
-			default_create
-		end
-
-feature
-
-	default_create
-		do
-			search
-		end
-
-feature -- Example
-
-	search
-		local
-			web_driver: WEB_DRIVER
-			wait: WEB_DRIVER_WAIT
-		do
-				--Create a new instance of a Web driver
-			create web_driver.make
-
-				-- Start session with chrome
-			web_driver.start_session_chrome
-
-				-- Go to Google
-			web_driver.to_url ("http://www.google.com/")
-
-				-- Find the text input element by its name
-			if attached web_driver.find_element ((create {SE_BY}).name ("q")) as l_element then
-
-					-- Enter something to search for
-				l_element.send_keys (<<"Eiffel Room">>)
-
-					-- Now submit the form. WebDriver will find the form for us from the element
-				l_element.submit
-			end
-			if attached web_driver.get_page_tile as l_title then
-				print ("%NPage title is:" + l_title)
-			end
-
-				-- Google's search is rendered dynamically with JavaScript.
-				-- Wait for the page to load, timeout after 10 seconds
-			create wait.make (web_driver, 10)
-			wait.until_when (agent expected_title(web_driver, "Eiffel Room"))
-			if attached web_driver.get_page_tile as l_title then
-				print ("%NPage title is:" + l_title)
-			end
-
-				-- close the window
-			web_driver.window_close
-		end
-
-	expected_title (driver: WEB_DRIVER; title: STRING_32): BOOLEAN
-		do
-			if attached {STRING_32} driver.get_page_tile as l_title and then l_title.has_substring (title) then
-				Result := True
-			end
-		end
-
-end
diff --git a/library/test/selenium/examples/examples.ecf b/library/test/selenium/examples/examples.ecf
deleted file mode 100644
index 60cf73e9..00000000
--- a/library/test/selenium/examples/examples.ecf
+++ /dev/null
@@ -1,63 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<system xmlns="http://www.eiffel.com/developers/xml/configuration-1-10-0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.eiffel.com/developers/xml/configuration-1-10-0 http://www.eiffel.com/developers/xml/configuration-1-10-0.xsd" name="selenium_example" uuid="61EFD50A-C916-494A-91D6-3E12E0738F4D">
-	<target name="selenium_example">
-		<file_rule>
-			<exclude>/.git$</exclude>
-			<exclude>/EIFGENs$</exclude>
-			<exclude>/CVS$</exclude>
-			<exclude>/.svn$</exclude>
-		</file_rule>
-		<option warning="true" is_attached_by_default="true" void_safety="all" syntax="transitional">
-			<assertions precondition="true" postcondition="true" check="true" invariant="true" loop="true" supplier_precondition="true"/>
-		</option>
-		<setting name="console_application" value="true"/>
-		<library name="base" location="$ISE_LIBRARY\library\base\base-safe.ecf"/>
-		<library name="selenium" location="..\selenium-safe.ecf"/>
-	</target>	
-	<target name="search" extends="selenium_example">
-		<root class="EXAMPLE_SEARCH" feature="default_create"/>
-		<cluster name="src" location=".\" recursive="true"/>
-	</target>
-	<target name="findElementById" extends="selenium_example">
-		<root class="FIND_ELEMENT_ID" feature="default_create"/>
-		<cluster name="src" location=".\" recursive="true"/>
-	</target>
-	<target name="findElementByName" extends="selenium_example">
-		<root class="FIND_ELEMENT_NAME" feature="default_create"/>
-		<cluster name="src" location=".\" recursive="true"/>
-	</target>
-	<target name="findElementByClass" extends="selenium_example">
-		<root class="FIND_ELEMENT_CLASS" feature="default_create"/>
-		<cluster name="src" location=".\" recursive="true"/>
-	</target>
-	<target name="findElementChild" extends="selenium_example">
-		<root class="FIND_ELEMENT_CHILD" feature="default_create"/>
-		<cluster name="src" location=".\" recursive="true"/>
-	</target>
-		<target name="findElementsLinks" extends="selenium_example">
-		<root class="FIND_ELEMENTS_LINKS" feature="default_create"/>
-		<cluster name="src" location=".\" recursive="true"/>
-	</target>
-	<target name="findElementsLinksByText" extends="selenium_example">
-		<root class="FIND_ELEMENTS_LINKS_BY_TEXT" feature="default_create"/>
-		<cluster name="src" location=".\" recursive="true"/>
-	</target>
-	<target name="findElementsLinksByPartialText" extends="selenium_example">
-		<root class="FIND_ELEMENTS_LINKS_BY_PARTIAL_TEXT" feature="default_create"/>
-		<cluster name="src" location=".\" recursive="true"/>
-	</target>
-	<target name="findElementCssSelector" extends="selenium_example">
-		<root class="FIND_ELEMENT_CSS_SELECTOR" feature="default_create"/>
-		<cluster name="src" location=".\" recursive="true"/>
-	</target>
-	<target name="findElementXPath" extends="selenium_example">
-		<root class="FIND_ELEMENT_XPATH" feature="default_create"/>
-		<cluster name="src" location=".\" recursive="true"/>
-	</target>
-
-	
-
-	
-
-
-</system>
diff --git a/library/test/selenium/examples/find_element_child.e b/library/test/selenium/examples/find_element_child.e
deleted file mode 100644
index 67e32b06..00000000
--- a/library/test/selenium/examples/find_element_child.e
+++ /dev/null
@@ -1,61 +0,0 @@
-note
-	description: "The WEB_ELEMENT class also supports find methods that find child elements."
-
-class
-	FIND_ELEMENT_CHILD
-
-inherit
-
-	ANY
-		redefine
-			default_create
-		end
-
-create
-	default_create
-
-feature
-
-	default_create
-		do
-			search
-		end
-
-feature -- Search by id
-
-	search
-		local
-			web_driver: WEB_DRIVER
-			wait: WEB_DRIVER_WAIT
-		do
-				--Create a new instance of a Web driver
-			create web_driver.make
-
-				-- Start session with chrome
-			web_driver.start_session_chrome
-
-				-- Go to EiffelRoom login page
-			web_driver.to_url ("http://www.eiffelroom.com/")
-
-				-- Find the element div with id page,and then we can find a child element div page-inner
-				--<div id="page">
-				--	<div id="page-inner">
-				--		<a id="navigation-top" name="top"></a>
-				--	<div id="skip-to-nav">
-				--	<div id="header">
-				--	<div id="main">
-				--	<div id="footer">
-				--	</div>
-				--</div>		
-			if attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).id ("page")) as l_div_page then
-				print ("%N Page element id" + l_div_page.element)
-				if attached {WEB_ELEMENT}l_div_page.find_element ((create {SE_BY}).id ("page-inner")) as l_div_page_inner	then
-					print ("%N Inner Page element id" + l_div_page_inner.element)
-				end
-			end
-				-- close the window
-			web_driver.window_close
-			print ("%N")
-		end
-
-end
diff --git a/library/test/selenium/examples/find_element_class.e b/library/test/selenium/examples/find_element_class.e
deleted file mode 100644
index 32b59578..00000000
--- a/library/test/selenium/examples/find_element_class.e
+++ /dev/null
@@ -1,84 +0,0 @@
-note
-	description: "Using the class attribute to find elements. The class attribute is provided to apply CSS to an element."
-
-class
-	FIND_ELEMENT_CLASS
-
-inherit
-
-	ANY
-		redefine
-			default_create
-		end
-
-create
-	default_create
-
-feature
-
-	default_create
-		do
-			search
-		end
-
-feature -- Search by id
-
-	search
-		local
-			web_driver: WEB_DRIVER
-			wait: WEB_DRIVER_WAIT
-			capabilities : SE_CAPABILITIES
-		do
-				-- Create desired capabilities
-
-			create capabilities.make
-			capabilities.set_css_selectors_enabled (True)
-			capabilities.set_browser_name ("chrome")
-
-				--Create a new instance of a Web driver
-			create web_driver.make
-
-				-- Start session with chrome and capabilities
-			web_driver.start_session_chrome_with_desired_capabilities (capabilities)
-
-				-- Go to EiffelRoom login page
-			web_driver.to_url ("http://www.eiffelroom.com/user?destination=front")
-
-
-				-- Find the user name, password element by its id and submit
-			if attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).id ("edit-name")) as l_user and then attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).id ("edit-pass")) as l_pass and then attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).id ("edit-submit")) as l_form then
-				l_user.send_keys (<<"test">>)
-				l_pass.send_keys (<<"pass">>)
-				l_form.submit
-			end
-
-				-- After submit, there is an error message, and we still are in the same page
-
-			-- Wait for the page to load, timeout after 10 seconds
-		   	 create wait.make (web_driver,10)
-			 wait.until_when (agent expected_title (web_driver, "User account"))
-
-
-			if attached web_driver.get_page_tile as l_title then
-				print ("%NPage title is:" + l_title)
-			end
-
-			if attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).class_name ("title")) as l_title then
-				if attached l_title.get_text as l_text then
-					print ("%NDisplay:" +  l_text)
-
-				end
-			end
-				-- close the window
-			web_driver.window_close
-		end
-
-
-	expected_title (driver : WEB_DRIVER; title : STRING_32) : BOOLEAN
-		do
-			if attached {STRING_32} driver.get_page_tile as l_title and then l_title.has_substring (title) then
-				Result := True
-			end
-		end
-
-end
diff --git a/library/test/selenium/examples/find_element_css_selector.e b/library/test/selenium/examples/find_element_css_selector.e
deleted file mode 100644
index 0796336f..00000000
--- a/library/test/selenium/examples/find_element_css_selector.e
+++ /dev/null
@@ -1,66 +0,0 @@
-note
-	description: "[
-	]"
-
-class
-	FIND_ELEMENT_CSS_SELECTOR
-
-inherit
-
-	ANY
-		redefine
-			default_create
-		end
-
-create
-	default_create
-
-feature
-
-	default_create
-		do
-			search
-		end
-
-feature -- Search by id
-
-	search
-		local
-			web_driver: WEB_DRIVER
-		do
-				--Create a new instance of a Web driver
-			create web_driver.make
-
-				-- Start session with chrome
-			web_driver.start_session_chrome
-
-				-- Go to EiffelRoom home page
-			web_driver.to_url ("http://www.eiffelroom.com/")
-
-				-- Absolute Path
-				-- <div id="header">
-				-- html.js body.front div#page div#page-inner div#header
-
-			if attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).css_selector ("html.js body.front div#page div#page-inner div#header")) as selector then
-				print ("%NElement:" + selector.element)
-			end
-
-				-- Relative Path
-				--
-			if attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).css_selector ("div#header")) as selector then
-				print ("%NElement:" + selector.element)
-			end
-			print ("%Nend process ...")
-			io.read_line
-				-- close the window
-			web_driver.window_close
-		end
-
-	expected_title (driver: WEB_DRIVER; title: STRING_32): BOOLEAN
-		do
-			if attached {STRING_32} driver.get_page_tile as l_title and then l_title.has_substring (title) then
-				Result := True
-			end
-		end
-
-end
diff --git a/library/test/selenium/examples/find_element_id.e b/library/test/selenium/examples/find_element_id.e
deleted file mode 100644
index fbe88526..00000000
--- a/library/test/selenium/examples/find_element_id.e
+++ /dev/null
@@ -1,63 +0,0 @@
-note
-	description: "Using the id attribute is the most preferable way to locate elements on a page."
-
-class
-	FIND_ELEMENT_ID
-
-inherit
-
-	ANY
-		redefine
-			default_create
-		end
-
-create
-	default_create
-
-feature
-
-	default_create
-		do
-			search
-		end
-
-feature -- Search by id
-
-	search
-		local
-			web_driver: WEB_DRIVER
-			wait: WEB_DRIVER_WAIT
-		do
-				--Create a new instance of a Web driver
-			create web_driver.make
-
-				-- Start session with chrome
-			web_driver.start_session_chrome
-
-				-- Go to EiffelRoom login page
-			web_driver.to_url ("http://www.eiffelroom.com/user?destination=front")
-
-				-- Find the user name, password element by its id and submit
-			if attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).id ("edit-name")) as l_user and then attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).id ("edit-pass")) as l_pass and then attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).id ("edit-submit")) as l_form then
-				l_user.send_keys (<<"test">>)
-				l_pass.send_keys (<<"pass">>)
-				l_form.submit
-			end
-			if attached web_driver.get_page_tile as l_title then
-				print ("%NPage title is:" + l_title)
-			end
-
-				-- Find the user name, password element by its id and submit
-			if attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).id ("edit-name")) as l_user and then attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).id ("edit-pass")) as l_pass and then attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).id ("edit-submit")) as l_form then
-					if attached l_user.get_css_value ("width") as l_width then
-						print ("%NCss value:" + l_width)
-					end
-
-			end
-
-			io.read_line
-				-- close the window
-			web_driver.window_close
-		end
-
-end
diff --git a/library/test/selenium/examples/find_element_name.e b/library/test/selenium/examples/find_element_name.e
deleted file mode 100644
index 1d8ed37f..00000000
--- a/library/test/selenium/examples/find_element_name.e
+++ /dev/null
@@ -1,57 +0,0 @@
-note
-	description: "[
-		Unlike find_element_id, find by name attribute may not be unique on a page. We might find multiple elements 
-		with similar name attributes,if that happends, the first element on the page 
-		will be selected, which may not be the element we are looking for.
-	]"
-
-class
-	FIND_ELEMENT_NAME
-
-inherit
-
-	ANY
-		redefine
-			default_create
-		end
-
-create
-	default_create
-
-feature
-
-	default_create
-		do
-			search
-		end
-
-feature -- Search by id
-
-	search
-		local
-			web_driver: WEB_DRIVER
-			wait: WEB_DRIVER_WAIT
-		do
-				--Create a new instance of a Web driver
-			create web_driver.make
-
-				-- Start session with chrome
-			web_driver.start_session_chrome
-
-				-- Go to EiffelRoom login page
-			web_driver.to_url ("http://www.eiffelroom.com/user?destination=front")
-
-				-- Find the user name, password element by its name and submit
-			if attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).name ("name")) as l_user and then attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).name ("pass")) as l_pass and then attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).name ("op")) as l_form then
-				l_user.send_keys (<<"test">>)
-				l_pass.send_keys (<<"pass">>)
-				l_form.submit
-			end
-			if attached web_driver.get_page_tile as l_title then
-				print ("%NPage title is:" + l_title)
-			end
-				-- close the window
-			web_driver.window_close
-		end
-
-end
diff --git a/library/test/selenium/examples/find_element_xpath.e b/library/test/selenium/examples/find_element_xpath.e
deleted file mode 100644
index 2f80da6c..00000000
--- a/library/test/selenium/examples/find_element_xpath.e
+++ /dev/null
@@ -1,74 +0,0 @@
-note
-	description: "[
-	]"
-
-class
-	FIND_ELEMENT_XPATH
-
-inherit
-
-	ANY
-		redefine
-			default_create
-		end
-
-create
-	default_create
-
-feature
-
-	default_create
-		do
-			search
-		end
-
-feature -- Search by id
-
-	search
-		local
-			web_driver: WEB_DRIVER
-			xpath_expression : STRING_32
-		do
-				--Create a new instance of a Web driver
-			create web_driver.make
-
-				-- Start session with chrome
-			web_driver.start_session_chrome
-
-				-- Go to EiffelRoom home page
-			web_driver.to_url ("http://www.eiffelroom.com/")
-
-
-			--Xpath expression
-			xpath_expression := "//*[@id='page']"
-			if attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).xpath (xpath_expression)) as l_path then
-				print ("%NElement:" + l_path.element)
-			end
-
-			-- Images with Alt
-			-- img[@alt]
-			if attached {LIST[WEB_ELEMENT]}web_driver.find_elements ((create {SE_BY}).xpath ("//img[@alt]")) as l_paths then
-				from
-					l_paths.start
-				until
-					l_paths.after
-				loop
-					print ("%NElement:" + l_paths.item.element)
-					l_paths.forth
-				end
-			end
-
-			print ("%Nend process ...")
-			io.read_line
-				-- close the window
-			web_driver.window_close
-		end
-
-	expected_title (driver: WEB_DRIVER; title: STRING_32): BOOLEAN
-		do
-			if attached {STRING_32} driver.get_page_tile as l_title and then l_title.has_substring (title) then
-				Result := True
-			end
-		end
-
-end
diff --git a/library/test/selenium/examples/find_elements_links.e b/library/test/selenium/examples/find_elements_links.e
deleted file mode 100644
index cabc3281..00000000
--- a/library/test/selenium/examples/find_elements_links.e
+++ /dev/null
@@ -1,72 +0,0 @@
-note
-	description: "[
-
-	]"
-
-class
-	FIND_ELEMENTS_LINKS
-
-inherit
-
-	ANY
-		redefine
-			default_create
-		end
-
-create
-	default_create
-
-feature
-
-	default_create
-		do
-			search
-		end
-
-feature -- Search by id
-
-	search
-		local
-			web_driver: WEB_DRIVER
-			wait: WEB_DRIVER_WAIT
-		do
-				--Create a new instance of a Web driver
-			create web_driver.make
-
-				-- Start session with chrome
-			web_driver.start_session_chrome
-
-				-- Go to EiffelRoom home page
-			web_driver.to_url ("http://www.eiffelroom.com/")
-
-			 create wait.make (web_driver,10)
-			 wait.until_when (agent expected_title (web_driver, "Eiffel Room"))
-
-
-				-- Find links
-			if attached web_driver.find_elements ((create {SE_BY}).tag_name("a")) as l_links  then
-				from
-					l_links.start
-				until
-					l_links.after
-				loop
-					if attached l_links.item.get_attribute ("href") as l_ref then
-						print ("%Nhref:" + l_ref)
-					end
-					l_links.forth
-				end
-			end
-			print ("%Nend process ..." )
-			io.read_line
-				-- close the window
-			web_driver.window_close
-		end
-
-
-	expected_title (driver : WEB_DRIVER; title : STRING_32) : BOOLEAN
-		do
-			if attached {STRING_32} driver.get_page_tile as l_title and then l_title.has_substring (title) then
-				Result := True
-			end
-		end
-end
diff --git a/library/test/selenium/examples/find_elements_links_by_partial_text.e b/library/test/selenium/examples/find_elements_links_by_partial_text.e
deleted file mode 100644
index 7d7a9122..00000000
--- a/library/test/selenium/examples/find_elements_links_by_partial_text.e
+++ /dev/null
@@ -1,71 +0,0 @@
-note
-	description: "[
-
-	]"
-
-class
-	FIND_ELEMENTS_LINKS_BY_PARTIAL_TEXT
-
-inherit
-
-	ANY
-		redefine
-			default_create
-		end
-
-create
-	default_create
-
-feature
-
-	default_create
-		do
-			search
-		end
-
-feature -- Search by id
-
-	search
-		local
-			web_driver: WEB_DRIVER
-			wait: WEB_DRIVER_WAIT
-		do
-				--Create a new instance of a Web driver
-			create web_driver.make
-
-				-- Start session with chrome
-			web_driver.start_session_chrome
-
-
-				-- Go to EiffelRoom home page
-			web_driver.to_url ("http://www.eiffelroom.com/")
-
-				-- Find links
-				-- <a href="http://www.eiffel.com">Eiffel.com</a></li><li><a>
-			if attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).partial_link_text("Eiffel")) as l_link  then
-					if attached l_link.get_attribute ("href") as l_ref then
-						print ("%Nhref:" + l_ref)
-					end
-			end
-				-- <a href="#navigation">Skip to Navigation</a>
-			if attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).partial_link_text("Skip to")) as l_link  then
-					if attached l_link.get_attribute ("href") as l_ref then
-						print ("%Nhref:" + l_ref)
-					end
-			end
-			print ("%Nend process ..." )
-			io.read_line
-				-- close the window
-			web_driver.window_close
-		end
-
-
-	expected_title (driver : WEB_DRIVER; title : STRING_32) : BOOLEAN
-		do
-			if attached {STRING_32} driver.get_page_tile as l_title and then l_title.has_substring (title) then
-				Result := True
-			end
-		end
-
-
-end
diff --git a/library/test/selenium/examples/find_elements_links_by_text.e b/library/test/selenium/examples/find_elements_links_by_text.e
deleted file mode 100644
index 2516f6e9..00000000
--- a/library/test/selenium/examples/find_elements_links_by_text.e
+++ /dev/null
@@ -1,55 +0,0 @@
-note
-	description: "[
-
-	]"
-
-class
-	FIND_ELEMENTS_LINKS_BY_TEXT
-
-inherit
-
-	ANY
-		redefine
-			default_create
-		end
-
-create
-	default_create
-
-feature
-
-	default_create
-		do
-			search
-		end
-
-feature -- Search by id
-
-	search
-		local
-			web_driver: WEB_DRIVER
-			wait: WEB_DRIVER_WAIT
-		do
-				--Create a new instance of a Web driver
-			create web_driver.make
-
-				-- Start session with chrome
-			web_driver.start_session_chrome
-
-				-- Go to EiffelRoom home page
-			web_driver.to_url ("http://www.eiffelroom.com/")
-
-				-- Find links
-				-- <a href="http://www.eiffel.com">Eiffel.com</a></li><li><a>
-			if attached {WEB_ELEMENT} web_driver.find_element ((create {SE_BY}).link_text("Eiffel.com")) as l_link  then
-					if attached l_link.get_attribute ("href") as l_ref then
-						print ("%Nhref:" + l_ref)
-					end
-			end
-			print ("%Nend process ..." )
-			io.read_line
-				-- close the window
-			web_driver.window_close
-		end
-
-end
diff --git a/library/test/selenium/examples/project.rc b/library/test/selenium/examples/project.rc
deleted file mode 100644
index b0ec159c..00000000
--- a/library/test/selenium/examples/project.rc
+++ /dev/null
@@ -1,6 +0,0 @@
-#include <windows.h>
-
-STRINGTABLE
-BEGIN
-	1 "This Program was made using EiffelStudio using Visual Studio C++"
-END
diff --git a/library/test/selenium/examples/selenium_example.rc b/library/test/selenium/examples/selenium_example.rc
deleted file mode 100644
index b0ec159c..00000000
--- a/library/test/selenium/examples/selenium_example.rc
+++ /dev/null
@@ -1,6 +0,0 @@
-#include <windows.h>
-
-STRINGTABLE
-BEGIN
-	1 "This Program was made using EiffelStudio using Visual Studio C++"
-END
diff --git a/library/test/selenium/readme.md b/library/test/selenium/readme.md
deleted file mode 100644
index b5f31f52..00000000
--- a/library/test/selenium/readme.md
+++ /dev/null
@@ -1,193 +0,0 @@
-Eiffel Selenium binding
-=================================================
-
-##  Overview
-Selenium will help you test your web applications effectively and efficiently against a vast number of browsers and platforms.
-This client is a binding for the REST API interface defined in the WebDriver protocol http://code.google.com/p/selenium/wiki/JsonWireProtocol.
-
-WARNING this API is still under development, and maybe it will change
-
-##  Requirements
-
-*  Get the server selenium-server-standalone-#.jar file provided here:  http://code.google.com/p/selenium/downloads/list
-
-*   Download and run that file, replacing # with the current server version.
-
-        java -jar selenium-server-standalone-#.jar
-		(it only has a Firefox WebDriver by default)
-		
-		But you can add other drivers doing something like that (change PATH_TO to the corresponding value in your environment)
-		java -jar selenium-server-standalone-2.32.0.jar  
-		-Dwebdriver.chrome.driver=%PATH_TO%\chromedriver.exe  -Dwebdriver.ie.driver=%PATH_TO%\IEDriverServer.exe 
-		
-##  Getting Started Selenium-WebDriver API 
-(Eiffel binding only support (for now) RemoteWebDriver) 
-The examples and guide are based on http://docs.seleniumhq.org/docs/03_webdriver.jsp#introducing-the-selenium-webdriver-api-by-example
-
-WebDriver is a tool for automating web application testing, and in particular to verify that they work as expected. 
-
-    class
-    	EXAMPLE_SEARCH
-    
-    inherit
-    
-    	ANY
-    		redefine
-    			default_create
-    		end
-    
-    feature
-    
-    	default_create
-    		do
-    			search
-    		end
-    
-    feature -- Example
-    
-    	search
-    		local
-    			web_driver: WEB_DRIVER
-    			wait: WEB_DRIVER_WAIT
-    		do
-    				--Create a new instance of a Web driver
-    			create web_driver.make
-    
-    				-- Start session with chrome
-    			web_driver.start_session_chrome
-    
-    				-- Go to Google
-    			web_driver.to_url ("http://www.google.com/")
-    
-    				-- Find the text input element by its name
-    			if attached web_driver.find_element ((create {SE_BY}).name ("q")) as l_element then
-    
-    					-- Enter something to search for
-    				l_element.send_keys (<<"Eiffel Room">>)
-    
-    					-- Now submit the form. WebDriver will find the form for us from the element
-    				l_element.submit
-    			end
-    			if attached web_driver.get_page_tile as l_title then
-    				print ("%NPage title is:" + l_title)
-    			end
-    
-    				-- Google's search is rendered dynamically with JavaScript.
-    				-- Wait for the page to load, timeout after 10 seconds
-    			create wait.make (web_driver, 10)
-    			wait.until_when (agent expected_title(web_driver, "Eiffel Room"))
-    			if attached web_driver.get_page_tile as l_title then
-    				print ("%NPage title is:" + l_title)
-    			end
-    
-    				-- close the window
-    			web_driver.window_close
-    		end
-    
-    	expected_title (driver: WEB_DRIVER; title: STRING_32): BOOLEAN
-    		do
-    			if attached {STRING_32} driver.get_page_tile as l_title and then l_title.has_substring (title) then
-    				Result := True
-    			end
-    		end
-    end
-
-
-
-	
-### Selenium-WebDriver API Commands and Operations
-To learn more go to [Selenium documentation] (http://docs.seleniumhq.org/docs/03_webdriver.jsp#introducing-the-selenium-webdriver-api-by-example) 
-##### Fetching a Page
-	The first thing you are likely to want to do with WebDriver is navigate to a page. 
-	
-		web_driver.to_url ("http://www.google.com/")
-
-##### Locating UI Elements (WebElements)
-###### By ID
-Example of how to find an element that looks like this:
-
-    <div id="head">...</div>
-
-Eiffel Code
-    
-    web_driver.find_element ((create{SE_BY}).id ("head"))
-    
-
-###### By Name
-
-Example of how to find an element that looks like this:
-
-    <input name="cheese" type="text"/>
-
-Eiffel Code
-    
-    web_driver.find_element ((create{SE_BY}).name ("cheese"))
-
-###### By Class Name
-
-Example of how to find an element that looks like this:
-
-    <div class="cheese"><span>Cheddar</span></div><div class="cheese"><span>Gouda</span></div>
-
-Eiffel Code
-    
-    web_driver.find_element ((create{SE_BY}).class_name ("cheese"))
-
-###### By CSS Selector
-
-Example of how to find an element that looks like this:
-
-    <div id="food"><span class="dairy">milk</span><span class="dairy aged">cheese</span></div>
-
-Eiffel Code
-    
-    web_driver.find_element ((create{SE_BY}).css_selector ("#food span.dairy.aged"))
-
-###### By Link Text
-
-Example of how to find an element that looks like this:
-
-    <a href="http://www.google.com/search?q=EWF">EWF</a>>
-
-Eiffel Code
-    
-    web_driver.find_element ((create{SE_BY}).link_text ("EWF"))
-
-
-###### By Partial Link Text
-
-Example of how to find an element that looks like this:
-
-    <a href="http://www.google.com/search?q=ewf">search for ewf</a>>
-
-Eiffel Code
-    
-    web_driver.find_element ((create{SE_BY}).partial_link_text ("ewf"))
-
-
-###### By Tag Name
-
-Example of how to find an element that looks like this:
-
-    <iframe src="..."></iframe>
-
-Eiffel Code
-    
-    web_driver.find_element ((create{SE_BY}).tag_name ("iframe"))
-
-
-###### By XPath
-
-
-Example of how to find an element that looks like this:
-
-    <input type="text" name="example" />
-
-Eiffel Code
-    
-    web_driver.find_element ((create{SE_BY}).xpath ("//input"))
-
-
-### Locating Elements
-
-
diff --git a/library/test/selenium/selenium-safe.ecf b/library/test/selenium/selenium-safe.ecf
deleted file mode 100644
index 830e4039..00000000
--- a/library/test/selenium/selenium-safe.ecf
+++ /dev/null
@@ -1,21 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<system xmlns="http://www.eiffel.com/developers/xml/configuration-1-10-0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.eiffel.com/developers/xml/configuration-1-10-0 http://www.eiffel.com/developers/xml/configuration-1-10-0.xsd" name="selenium" uuid="F76D19F7-509C-47B1-B2EA-46FCB05F9893" library_target="selenium">
-	<target name="selenium">
-		<root all_classes="true"/>
-		<option warning="true" full_class_checking="true" is_attached_by_default="true" void_safety="all" syntax="standard">
-			<assertions precondition="true" postcondition="true" check="true" invariant="true" supplier_precondition="true"/>
-		</option>
-		<library name="base" location="$ISE_LIBRARY\library\base\base-safe.ecf"/>
-		<library name="encoding" location="$ISE_LIBRARY\library\encoding\encoding-safe.ecf"/>
-		<library name="http_client" location="$EIFFEL_LIBRARY\EWF\library\network\http_client\http_client-safe.ecf"/>
-		<library name="json" location="$EIFFEL_LIBRARY\EWF\contrib\library\text\parser\json\library\json-safe.ecf"/>
-		<library name="time" location="$ISE_LIBRARY\library\time\time-safe.ecf"/>
-		<cluster name="src" location=".\src\" recursive="true">
-			<file_rule>
-				<exclude>/EIFGENs$</exclude>
-				<exclude>/CVS$</exclude>
-				<exclude>/.svn$</exclude>
-			</file_rule>
-		</cluster>
-	</target>
-</system>
diff --git a/library/test/selenium/src.rc b/library/test/selenium/src.rc
deleted file mode 100644
index b0ec159c..00000000
--- a/library/test/selenium/src.rc
+++ /dev/null
@@ -1,6 +0,0 @@
-#include <windows.h>
-
-STRINGTABLE
-BEGIN
-	1 "This Program was made using EiffelStudio using Visual Studio C++"
-END
diff --git a/library/test/selenium/src/converter/se_build_value_json_converter.e b/library/test/selenium/src/converter/se_build_value_json_converter.e
deleted file mode 100644
index 9c55d318..00000000
--- a/library/test/selenium/src/converter/se_build_value_json_converter.e
+++ /dev/null
@@ -1,72 +0,0 @@
-note
-	description: "Summary description for {SE_BUILD_VALUE_JSON_CONVERTER}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_BUILD_VALUE_JSON_CONVERTER
-inherit
-	SE_JSON_CONVERTER
-
-create
-	make
-
-feature {NONE} -- Initialization
-
-	make
-		do
-			create object.make_empty
-		end
-
-feature -- Access
-
-	object: SE_BUILD_VALUE
-
-feature -- Conversion
-
-	from_json (j: like to_json): detachable like object
-		do
-			create Result.make_empty
-			if attached {STRING_32} json_to_object (j.item (version_key),Void) as l_item then
-				Result.set_version(l_item)
-			end
-			if attached {STRING_32} json_to_object (j.item (revision_key), Void) as l_item then
-				Result.set_revision(l_item)
-			end
-			if attached {STRING_32} json_to_object (j.item (time_key),Void) as l_item then
-				Result.set_time(l_item)
-			end
-
-
-
-		end
-
-	to_json (o: like object): JSON_OBJECT
-		do
-			create Result.make
-			Result.put (json.value (o.version), version_key)
-			Result.put (json.value (o.revision), revision_key)
-			Result.put (json.value (o.time), time_key)
-		end
-
-feature {NONE} -- Implementation
-
-
-
-	version_key: JSON_STRING
-		once
-			create Result.make_json ("version")
-		end
-
-	time_key: JSON_STRING
-		once
-			create Result.make_json ("time")
-		end
-
-	revision_key: JSON_STRING
-		once
-			create Result.make_json ("revision")
-		end
-
-end
diff --git a/library/test/selenium/src/converter/se_capabilities_json_converter.e b/library/test/selenium/src/converter/se_capabilities_json_converter.e
deleted file mode 100644
index 29349de4..00000000
--- a/library/test/selenium/src/converter/se_capabilities_json_converter.e
+++ /dev/null
@@ -1,185 +0,0 @@
-note
-	description: "Summary description for {SE_CAPABILITIES_JSON_CONVERTER}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_CAPABILITIES_JSON_CONVERTER
-
-inherit
-
-	SE_JSON_CONVERTER
-
-create
-	make
-
-feature {NONE} -- Initialization
-
-	make
-		do
-			create object.make
-		end
-
-feature -- Access
-
-	object: SE_CAPABILITIES
-
-feature -- Conversion
-
-	from_json (j: like to_json): detachable like object
-		do
-			create Result.make
-			if attached {STRING_32} json_to_object (j.item (browser_name_key), Void) as l_item then
-				Result.set_browser_name(l_item)
-			end
-			if attached {STRING_32} json_to_object (j.item (version_key), Void) as l_item then
-				Result.set_version(l_item)
-			end
-			if attached {STRING_32} json_to_object (j.item (platform_key), Void) as l_item then
-				Result.set_platform(l_item)
-			end
-			if attached {BOOLEAN} json_to_object (j.item (javascriptenabled_key), Void) as l_item then
-				Result.set_javascript_enabled(l_item)
-			end
-			if attached {BOOLEAN} json_to_object (j.item (takesscreenshot_key), Void) as l_item then
-				Result.set_takes_screenshot(l_item)
-			end
-			if attached {BOOLEAN} json_to_object (j.item (handlesalerts_key ), Void) as l_item then
-				Result.set_handles_alerts(l_item)
-			end
-			if attached {BOOLEAN} json_to_object (j.item (locationcontextenabled_key ), Void) as l_item then
-				Result.set_location_context_enabled (l_item)
-			end
-			if attached {BOOLEAN} json_to_object (j.item (applicationcacheenabled_key ), Void) as l_item then
-				Result.set_application_cache_enabled (l_item)
-			end
-			if attached {BOOLEAN} json_to_object (j.item (browserconnectionenabled_key ), Void) as l_item then
-				Result.set_browser_connection_enabled (l_item)
-			end
-			if attached {BOOLEAN} json_to_object (j.item (cssselectorsenabled_key ), Void) as l_item then
-				Result.set_css_selectors_enabled (l_item)
-			end
-			if attached {BOOLEAN} json_to_object (j.item (webstorageenabled_key ), Void) as l_item then
-				Result.set_web_storage_enabled (l_item)
-			end
-			if attached {BOOLEAN} json_to_object (j.item (rotatable_key ), Void) as l_item then
-			 	Result.set_rotatable (l_item)
-			end
-			if attached {BOOLEAN} json_to_object (j.item (acceptsslcerts_key ), Void) as l_item then
-				Result.set_accept_ssl_certs (l_item)
-			end
-			if attached {BOOLEAN} json_to_object (j.item (nativeevents_key ), Void) as l_item then
-				Result.set_native_events (l_item)
-			end
-
---			if attached {WEB_DRIVER_PROXY} json_to_object (j.item (proxy_key), {WEB_DRIVER_PROXY}) as lv then
---				Result.set_proxy(lv)
---			end
-
-		end
-
-	to_json (o: like object): JSON_OBJECT
-		do
-			create Result.make
-			Result.put (json.value (o.browser_name),browser_name_key)
-			Result.put (json.value (o.version),version_key)
-			Result.put (json.value (o.platform),platform_key)
-			Result.put (json.value (o.is_javascript_enabled),javascriptenabled_key)
-			Result.put (json.value (o.takes_screenshot),takesscreenshot_key)
-			Result.put (json.value (o.handles_alerts),handlesalerts_key)
-			Result.put (json.value (o.is_database_enabled),databaseenabled_key)
-			Result.put (json.value (o.is_location_context_enabled),locationcontextenabled_key)
-			Result.put (json.value (o.is_application_cache_enabled),applicationcacheenabled_key)
-			Result.put (json.value (o.is_browser_connection_enabled),browserconnectionenabled_key)
-			Result.put (json.value (o.is_css_selectors_enabled),cssselectorsenabled_key)
-			Result.put (json.value (o.is_web_storage_enabled),webstorageenabled_key)
-			Result.put (json.value (o.is_rotatable),rotatable_key)
-			Result.put (json.value (o.accept_ssl_certs),acceptsslcerts_key)
-			Result.put (json.value (o.native_events),nativeevents_key)
-			--Result.put (json.value (o.proxy),proxy_key)
-		end
-
-feature {NONE} -- Implementation
-
-	browser_name_key: JSON_STRING
-		once
-			create Result.make_json ("browserName")
-		end
-
-	version_key: JSON_STRING
-		once
-			create Result.make_json ("version")
-		end
-
-	platform_key: JSON_STRING
-		once
-			create Result.make_json ("platform")
-		end
-
-	javascriptEnabled_key: JSON_STRING
-		once
-			create Result.make_json ("javascriptEnabled")
-		end
-
-	takesScreenshot_key: JSON_STRING
-		once
-			create Result.make_json ("takesScreenshot")
-		end
-
-	handlesAlerts_key: JSON_STRING
-		once
-			create Result.make_json ("handlesAlerts")
-		end
-
-	databaseEnabled_key: JSON_STRING
-		once
-			create Result.make_json ("databaseEnabled")
-		end
-
-	locationContextEnabled_key: JSON_STRING
-		once
-			create Result.make_json ("locationContextEnabled")
-		end
-
-	applicationCacheEnabled_key: JSON_STRING
-		once
-			create Result.make_json ("applicationCacheEnabled")
-		end
-
-	browserConnectionEnabled_key: JSON_STRING
-		once
-			create Result.make_json ("browserConnectionEnabled")
-		end
-
-	cssSelectorsEnabled_key: JSON_STRING
-		once
-			create Result.make_json ("cssSelectorsEnabled")
-		end
-
-	webStorageEnabled_key: JSON_STRING
-		once
-			create Result.make_json ("webStorageEnabled")
-		end
-
-	rotatable_key: JSON_STRING
-		once
-			create Result.make_json ("rotatable")
-		end
-
-	acceptSslCerts_key: JSON_STRING
-		once
-			create Result.make_json ("acceptSslCerts")
-		end
-
-	nativeEvents_key: JSON_STRING
-		once
-			create Result.make_json ("nativeEvents")
-		end
-
-	proxy_key: JSON_STRING
-		once
-			create Result.make_json ("proxy")
-		end
-
-end
diff --git a/library/test/selenium/src/converter/se_cookie_json_converter.e b/library/test/selenium/src/converter/se_cookie_json_converter.e
deleted file mode 100644
index 7c9898d5..00000000
--- a/library/test/selenium/src/converter/se_cookie_json_converter.e
+++ /dev/null
@@ -1,100 +0,0 @@
-note
-	description: "Summary description for {SE_COOKIE_JSON_CONVERTER}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_COOKIE_JSON_CONVERTER
-inherit
-	SE_JSON_CONVERTER
-
-create
-	make
-
-feature {NONE} -- Initialization
-
-	make
-		do
-			create object
-		end
-
-feature -- Access
-
-	object: SE_COOKIE
-
-feature -- Conversion
-
-	from_json (j: like to_json): detachable like object
-		do
-			create Result
-			if attached {STRING_32} json_to_object (j.item (name_key), Void) as l_item then
-				Result.set_name(l_item)
-			end
-			if attached {STRING_32} json_to_object (j.item (value_key), Void) as l_item then
-				Result.set_value(l_item)
-			end
-			if attached {STRING_32} json_to_object (j.item (path_key), Void) as l_item then
-				Result.set_path(l_item)
-			end
-			if attached {STRING_32} json_to_object (j.item (domain_key), Void) as l_item then
-				Result.set_domain(l_item)
-			end
-			if attached {BOOLEAN} json_to_object (j.item (secure_key), Void) as l_item then
-				if l_item then
-					Result.secure
-				end
-			end
-			if attached {INTEGER_32} json_to_object (j.item (expiry_key), Void) as l_item then
-					Result.set_expiry (l_item.as_natural_32)
-			end
-
-		end
-
-	to_json (o: like object): JSON_OBJECT
-		do
-			create Result.make
-			Result.put (json.value (o.name), name_key)
-			Result.put (json.value (o.value), value_key)
-			Result.put (json.value (o.path), path_key)
-			Result.put (json.value (o.domain), domain_key)
-			Result.put (json.value (o.is_secure), secure_key)
-			Result.put (json.value (o.expiry), expiry_key)
-		end
-
-feature {NONE} -- Implementation
-
-
-
-	name_key: JSON_STRING
-		once
-			create Result.make_json ("name")
-		end
-
-	value_key: JSON_STRING
-		once
-			create Result.make_json ("value")
-		end
-
-	path_key: JSON_STRING
-		once
-			create Result.make_json ("path")
-		end
-
-	domain_key: JSON_STRING
-		once
-			create Result.make_json ("domain")
-		end
-
-	secure_key : JSON_STRING
-		once
-			create Result.make_json ("secure")
-		end
-
-	expiry_key : JSON_STRING
-		once
-			create Result.make_json ("expiry")
-		end
-
-
-end
diff --git a/library/test/selenium/src/converter/se_java_value_json_converter.e b/library/test/selenium/src/converter/se_java_value_json_converter.e
deleted file mode 100644
index 2385a42d..00000000
--- a/library/test/selenium/src/converter/se_java_value_json_converter.e
+++ /dev/null
@@ -1,51 +0,0 @@
-note
-	description: "Summary description for {SE_JAVA_VALUE_JSON_CONVERTER}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_JAVA_VALUE_JSON_CONVERTER
-inherit
-	SE_JSON_CONVERTER
-
-create
-	make
-
-feature {NONE} -- Initialization
-
-	make
-		do
-			create object.make_empty
-		end
-
-feature -- Access
-
-	object: SE_JAVA_VALUE
-
-feature -- Conversion
-
-	from_json (j: like to_json): detachable like object
-		do
-			create Result.make_empty
-			if attached {STRING_32} json_to_object (j.item (version_key), Void) as l_item then
-				Result.set_version(l_item)
-			end
-		end
-
-	to_json (o: like object): JSON_OBJECT
-		do
-			create Result.make
-			Result.put (json.value (o.version), version_key)
-		end
-
-feature {NONE} -- Implementation
-
-
-
-	version_key: JSON_STRING
-		once
-			create Result.make_json ("version")
-		end
-
-end
diff --git a/library/test/selenium/src/converter/se_json_converter.e b/library/test/selenium/src/converter/se_json_converter.e
deleted file mode 100644
index 24c3b45b..00000000
--- a/library/test/selenium/src/converter/se_json_converter.e
+++ /dev/null
@@ -1,27 +0,0 @@
-note
-	description: "Summary description for {SE_JSON_CONVERTER}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-deferred class
-	SE_JSON_CONVERTER
-
-inherit
-	JSON_CONVERTER
-
-feature -- 	Convertion
-
-	json_to_object (j: detachable JSON_VALUE; a_type: detachable TYPE [detachable ANY]): detachable ANY
-		local
-			l_classname: detachable STRING
-		do
-			if a_type /= Void then
-				l_classname := a_type.name
-				if l_classname.item (1) = '!' then
-					l_classname := l_classname.substring (2, l_classname.count)
-				end
-			end
-			Result := json.object (j, l_classname)
-		end
-end
diff --git a/library/test/selenium/src/converter/se_os_value_json_converter.e b/library/test/selenium/src/converter/se_os_value_json_converter.e
deleted file mode 100644
index 6da07888..00000000
--- a/library/test/selenium/src/converter/se_os_value_json_converter.e
+++ /dev/null
@@ -1,73 +0,0 @@
-note
-	description: "Summary description for {SE_OS_VALUE_JSON_CONVERTER}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_OS_VALUE_JSON_CONVERTER
-inherit
-	SE_JSON_CONVERTER
-
-create
-	make
-
-feature {NONE} -- Initialization
-
-	make
-		do
-			create object.make_empty
-		end
-
-feature -- Access
-
-	object: SE_OS_VALUE
-
-feature -- Conversion
-
-	from_json (j: like to_json): detachable like object
-		do
-			create Result.make_empty
-			if attached {STRING_32} json_to_object (j.item (version_key), Void) as l_item then
-				Result.set_version(l_item)
-			end
-			if attached {STRING_32} json_to_object (j.item (name_key), Void) as l_item then
-				Result.set_name(l_item)
-			end
-			if attached {STRING_32} json_to_object (j.item (architecture_key), Void) as l_item then
-				Result.set_architecture(l_item)
-			end
-
-
-
-		end
-
-	to_json (o: like object): JSON_OBJECT
-		do
-			create Result.make
-			Result.put (json.value (o.architecture), architecture_key)
-			Result.put (json.value (o.name), name_key)
-			Result.put (json.value (o.version), version_key)
-		end
-
-feature {NONE} -- Implementation
-
-
-
-	version_key: JSON_STRING
-		once
-			create Result.make_json ("version")
-		end
-
-	name_key: JSON_STRING
-		once
-			create Result.make_json ("name")
-		end
-
-	architecture_key: JSON_STRING
-		once
-			create Result.make_json ("arch")
-		end
-
-
-end
diff --git a/library/test/selenium/src/converter/se_response_json_converter.e b/library/test/selenium/src/converter/se_response_json_converter.e
deleted file mode 100644
index 17784320..00000000
--- a/library/test/selenium/src/converter/se_response_json_converter.e
+++ /dev/null
@@ -1,73 +0,0 @@
-note
-	description: "Summary description for {SE_RESPONSE_JSON_CONVERTER}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_RESPONSE_JSON_CONVERTER
-inherit
-	SE_JSON_CONVERTER
-
-create
-	make
-
-feature {NONE} -- Initialization
-
-	make
-		do
-			create object.make_empty
-		end
-
-feature -- Access
-
-	object: SE_RESPONSE
-
-feature -- Conversion
-
-	from_json (j: like to_json): detachable like object
-		do
-			create Result.make_empty
-			if attached {STRING_32} json_to_object (j.item (session_key), Void) as l_item then
-				Result.set_session_id(l_item)
-			end
-			if attached {INTEGER_8} json_to_object (j.item (status_key), Void) as l_item then
-				Result.set_status(l_item)
-			end
-			if attached {JSON_VALUE}  j.item (value_key) as l_item then
-				Result.set_value(l_item.representation)
-			end
-
-
-
-		end
-
-	to_json (o: like object): JSON_OBJECT
-		do
-			create Result.make
-			Result.put (json.value (o.session_id),session_key)
-			Result.put (json.value (o.status), status_key)
-			Result.put (json.value (o.value), value_key)
-		end
-
-feature {NONE} -- Implementation
-
-
-
-	session_key: JSON_STRING
-		once
-			create Result.make_json ("sessionId")
-		end
-
-	status_key: JSON_STRING
-		once
-			create Result.make_json ("status")
-		end
-
-	value_key: JSON_STRING
-		once
-			create Result.make_json ("value")
-		end
-
-
-end
diff --git a/library/test/selenium/src/converter/se_status_json_converter.e b/library/test/selenium/src/converter/se_status_json_converter.e
deleted file mode 100644
index 789c9232..00000000
--- a/library/test/selenium/src/converter/se_status_json_converter.e
+++ /dev/null
@@ -1,101 +0,0 @@
-note
-	description: "A converter for SE_STATUS"
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_STATUS_JSON_CONVERTER
-
-inherit
-	SE_JSON_CONVERTER
-
-create
-	make
-
-feature {NONE} -- Initialization
-
-	make
-		do
-			create object
-		end
-
-feature -- Access
-
-	object: SE_STATUS
-
-feature -- Conversion
-
-	from_json (j: like to_json): detachable like object
-		do
-			create Result
-			if attached {INTEGER_32} json_to_object (j.item (status_key), Void) as l_ucs then
-				Result.set_status (l_ucs)
-			end
-			if attached {STRING_32} json_to_object (j.item (session_id_key), Void) as l_ucs then
-				Result.set_session_id (l_ucs)
-			end
-			if attached {STRING_32} json_to_object (j.item (state_key), Void) as l_ucs then
-				Result.set_state (l_ucs)
-			end
-			if attached {STRING_32} json_to_object (j.item (class_name_key), Void) as l_ucs then
-				Result.set_class_name (l_ucs)
-			end
-			if attached {INTEGER_32} json_to_object (j.item (hash_code_key), Void) as l_ucs then
-				Result.set_hash_code (l_ucs.out)
-			end
-			if attached {SE_STATUS_VALUE} json_to_object (j.item (value_key), {SE_STATUS_VALUE}) as lv then
-				Result.set_value(lv)
-			end
-		end
-
-	to_json (o: like object): JSON_OBJECT
-		do
-			create Result.make
-			Result.put (json.value (o.status), status_key)
-			Result.put (json.value (o.session_id), session_id_key)
-			Result.put (json.value (o.value), value_key)
-			Result.put (json.value (o.state), state_key)
-			Result.put (json.value (o.class_name), class_name_key)
-			Result.put (json.value (o.hash_code), hash_code_key)
-		end
-
-feature {NONE} -- Implementation
-
-
-
-
-	status_key: JSON_STRING
-		once
-			create Result.make_json ("status")
-		end
-
-	session_id_key: JSON_STRING
-		once
-			create Result.make_json ("sessionId")
-		end
-
-	value_key: JSON_STRING
-		once
-			create Result.make_json ("value")
-		end
-
-	state_key: JSON_STRING
-		once
-			create Result.make_json ("state")
-		end
-
-	class_name_key: JSON_STRING
-		once
-			create Result.make_json ("class")
-		end
-
-	hash_code_key : JSON_STRING
-		once
-			create Result.make_json ("hCode")
-		end
-
-note
-	copyright: "2011-2012, Javier Velilla, Jocelyn Fiat and others"
-	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
-end
diff --git a/library/test/selenium/src/converter/se_status_value_json_converter.e b/library/test/selenium/src/converter/se_status_value_json_converter.e
deleted file mode 100644
index 2f8ad543..00000000
--- a/library/test/selenium/src/converter/se_status_value_json_converter.e
+++ /dev/null
@@ -1,70 +0,0 @@
-note
-	description: "Summary description for {SE_STATUS_VALUE_JSON_CONVERTER}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_STATUS_VALUE_JSON_CONVERTER
-inherit
-	SE_JSON_CONVERTER
-
-create
-	make
-
-feature {NONE} -- Initialization
-
-	make
-		do
-			create object.make_empty
-		end
-
-feature -- Access
-
-	object: SE_STATUS_VALUE
-
-feature -- Conversion
-
-	from_json (j: like to_json): detachable like object
-		do
-			create Result.make_empty
-			if attached {SE_OS_VALUE} json_to_object (j.item (os_key), {SE_OS_VALUE}) as l_item then
-				Result.set_os_value(l_item)
-			end
-			if attached {SE_JAVA_VALUE} json_to_object (j.item (java_key), {SE_JAVA_VALUE}) as l_item then
-				Result.set_java_value(l_item)
-			end
-			if attached {SE_BUILD_VALUE} json_to_object (j.item (build_key), {SE_BUILD_VALUE}) as l_item then
-				Result.set_build_value(l_item)
-			end
-
-		end
-
-	to_json (o: like object): JSON_OBJECT
-		do
-			create Result.make
-			Result.put (json.value (o.os_value), os_key)
-			Result.put (json.value (o.java_value), java_key)
-			Result.put (json.value (o.build_value), build_key)
-		end
-
-feature {NONE} -- Implementation
-
-
-
-	os_key: JSON_STRING
-		once
-			create Result.make_json ("os")
-		end
-
-	java_key: JSON_STRING
-		once
-			create Result.make_json ("java")
-		end
-
-	build_key: JSON_STRING
-		once
-			create Result.make_json ("build")
-		end
-
-end
diff --git a/library/test/selenium/src/converter/se_timeout_type_json_converter.e b/library/test/selenium/src/converter/se_timeout_type_json_converter.e
deleted file mode 100644
index 9551ee01..00000000
--- a/library/test/selenium/src/converter/se_timeout_type_json_converter.e
+++ /dev/null
@@ -1,60 +0,0 @@
-note
-	description: "Summary description for {SE_TIMEOUT_TYPE_JSON_CONVERTER}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_TIMEOUT_TYPE_JSON_CONVERTER
-inherit
-	SE_JSON_CONVERTER
-
-create
-	make
-
-feature {NONE} -- Initialization
-
-	make
-		do
-			create object.make_empty
-		end
-
-feature -- Access
-
-	object: SE_TIMEOUT_TYPE
-	
-feature -- Conversion
-
-	from_json (j: like to_json): detachable like object
-		do
-			create Result.make_empty
-			if attached {STRING_32} json_to_object (j.item (type_key), Void) as l_item then
-				Result.set_type(l_item)
-			end
-			if attached {INTEGER_32} json_to_object (j.item (ms_key), Void) as l_item then
-				Result.set_ms (l_item)
-			end
-		end
-
-	to_json (o: like object): JSON_OBJECT
-		do
-			create Result.make
-			Result.put (json.value (o.type),type_key)
-			Result.put (json.value (o.ms), ms_key)
-		end
-
-feature {NONE} -- Implementation
-
-
-	type_key: JSON_STRING
-		once
-			create Result.make_json ("type")
-		end
-
-	ms_key: JSON_STRING
-		once
-			create Result.make_json ("ms")
-		end
-
-
-end
diff --git a/library/test/selenium/src/enum.e b/library/test/selenium/src/enum.e
deleted file mode 100644
index 21f7fc76..00000000
--- a/library/test/selenium/src/enum.e
+++ /dev/null
@@ -1,37 +0,0 @@
-note
-	description: "Summary description for {ENUM}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-deferred class
-	ENUM
-
-feature -- Access
-
-	is_valid_state: BOOLEAN
-			-- Is the value of the enumeration valid?
-		do
-			Result := is_valid_value (value)
-		end
-
-	value: INTEGER
-			-- The current value of the enumeration.
-
-	set_value (a_value: INTEGER)
-		require
-			is_valid_value (a_value)
-		do
-			value := a_value
-		end
-
-	is_valid_value (a_value: INTEGER): BOOLEAN
-			-- Can `a_value' be used in a `set_value' feature call?
-		deferred
-		end
-
-invariant
-	is_valid_state
-
-end -- class ENUM
-
diff --git a/library/test/selenium/src/helpers/http_methods.e b/library/test/selenium/src/helpers/http_methods.e
deleted file mode 100644
index b0491940..00000000
--- a/library/test/selenium/src/helpers/http_methods.e
+++ /dev/null
@@ -1,19 +0,0 @@
-note
-	description: "Summary description for {HTTP_METHODS}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	HTTP_METHODS
-
-feature -- Method Names
-	OPTIONS : STRING_32 = "OPTIONS"
-	GET : STRING_32 = "GET"
-	HEAD : STRING_32 = "HEAD"
-	POST : STRING_32 = "POST"
-	PUT	 : STRING_32 = "PUT"
-	DELETE : STRING_32 = "DELETE"
-	TRACE  : STRING_32 = "TRACE"
-	CONNECT : STRING_32 = "CONNECT"
-end
diff --git a/library/test/selenium/src/helpers/json_helper.e b/library/test/selenium/src/helpers/json_helper.e
deleted file mode 100644
index 6439ed9f..00000000
--- a/library/test/selenium/src/helpers/json_helper.e
+++ /dev/null
@@ -1,101 +0,0 @@
-note
-	description: "Summary description for {JSON_HELPER}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	JSON_HELPER
-inherit
-
-	SHARED_EJSON
-
-feature -- Access
-	to_json (an_object : ANY) :detachable JSON_VALUE
-		local
-			parser: JSON_PARSER
-		do
-			initialize_converters (json)
-			if  attached json.value (an_object) as lv then
-				Result := lv
-			end
-		end
-
-	string_to_json ( str: STRING_32): detachable JSON_VALUE
-		local
-			parser: JSON_PARSER
-		do
-			initialize_converters (json)
-			create parser.make_parser (str)
-			if attached parser.parse as st and parser.is_parsed then
-				Result := st
-			end
-		end
-
-	json_to_se_status (post: STRING_32): detachable SE_STATUS
-		local
-			parser: JSON_PARSER
-		do
-			initialize_converters (json)
-			create parser.make_parser (post)
-			if attached parser.parse_object as st and parser.is_parsed then
-				if attached {SE_STATUS} json.object (st, "SE_STATUS") as l_status then
-					Result := l_status
-				end
-			end
-		end
-
-	json_to_se_capabilities (post: STRING_32): detachable SE_CAPABILITIES
-		local
-			parser: JSON_PARSER
-		do
-			initialize_converters (json)
-			create parser.make_parser (post)
-			if attached parser.parse_object as st and parser.is_parsed then
-				if attached {SE_CAPABILITIES} json.object (st, "SE_CAPABILITIES") as l_capabilities then
-					Result := l_capabilities
-				end
-			end
-		end
-
-	json_to_se_response (post: STRING_32): detachable SE_RESPONSE
-		local
-			parser: JSON_PARSER
-		do
-			initialize_converters (json)
-			create parser.make_parser (post)
-			if attached parser.parse_object as st and parser.is_parsed then
-				if attached {SE_RESPONSE} json.object (st, "SE_RESPONSE") as l_response then
-					Result := l_response
-				end
-			end
-		end
-
-
-	json_to_se_cookie (post: STRING_32): detachable SE_COOKIE
-		local
-			parser: JSON_PARSER
-		do
-			initialize_converters (json)
-			create parser.make_parser (post)
-			if attached parser.parse_object as st and parser.is_parsed then
-				if attached {SE_COOKIE} json.object (st, "SE_COOKIE") as l_cookie then
-					Result := l_cookie
-				end
-			end
-		end
-
-	initialize_converters (j: like json)
-			-- Initialize json converters
-		do
-			j.add_converter (create {SE_STATUS_JSON_CONVERTER}.make)
-			j.add_converter (create {SE_BUILD_VALUE_JSON_CONVERTER}.make)
-			j.add_converter (create {SE_JAVA_VALUE_JSON_CONVERTER}.make)
-			j.add_converter (create {SE_OS_VALUE_JSON_CONVERTER}.make)
-			j.add_converter (create {SE_STATUS_VALUE_JSON_CONVERTER}.make)
-			j.add_converter (create {SE_CAPABILITIES_JSON_CONVERTER}.make)
-			j.add_converter (create {SE_RESPONSE_JSON_CONVERTER}.make)
-			j.add_converter (create {SE_TIMEOUT_TYPE_JSON_CONVERTER}.make)
-			j.add_converter (create {SE_COOKIE_JSON_CONVERTER}.make)
-		end
-end
diff --git a/library/test/selenium/src/protocol/executor/command_executor.e b/library/test/selenium/src/protocol/executor/command_executor.e
deleted file mode 100644
index 891d29d5..00000000
--- a/library/test/selenium/src/protocol/executor/command_executor.e
+++ /dev/null
@@ -1,1075 +0,0 @@
-note
-	description: "{COMMAND_EXECUTOR} object that execute a command in the JSONWireProtocol"
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-	EIS: "name=SELINIUM", "protocol=uri", "src=https://code.google.com/p/selenium/wiki/JsonWireProtocol#Commands"
-
-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)
-		local
-			h: LIBCURL_HTTP_CLIENT
-		do
-			host := a_host
-			create h.make
-			http_session := h.new_session (a_host)
-				--  http_session.set_timeout (5)
-				--	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?
-		do
-			Result := http_session.is_available
-		end
-
-feature -- Commands
-
-	status: SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_status)
-			Result := new_response ("", resp)
-		end
-
-	new_session (capabilities: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			create Result.make_empty
-			resp := execute_post (cmd_new_session, capabilities)
-			if not (resp.status >= 400) then
-				Result := new_response ("", resp)
-			else
-				Result := new_response ("", resp)
-			end
-		end
-
-	sessions: SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_sessions)
-			Result := new_response ("", resp)
-		end
-
-	retrieve_session (session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_by_id (session_id))
-			Result := new_response (session_id, resp)
-		end
-
-	delete_session (session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_delete (cmd_session_by_id (session_id))
-			Result := new_response (session_id, resp)
-		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
-			resp := execute_post (cmd_session_timeouts (a_session_id), a_data_timeout)
-			Result := new_response (a_session_id, resp)
-		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
-			resp := execute_post (cmd_session_timeouts_async_script (a_session_id), a_data_timeout)
-			Result := new_response (a_session_id, resp)
-		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
-			resp := execute_post (cmd_session_timeouts_implicit_wait (a_session_id), a_data_timeout)
-			Result := new_response (a_session_id, resp)
-		end
-
-	retrieve_window_handle (session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_window_handle (session_id))
-			Result := new_response (session_id, resp)
-		end
-
-	retrieve_window_handles (session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_window_handles (session_id))
-			Result := new_response (session_id, resp)
-		end
-
-	retrieve_url (session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_url (session_id))
-			Result := new_response (session_id, resp)
-		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
-			resp := execute_post (cmd_session_url (a_session_id), a_url)
-			Result := new_response (a_session_id, resp)
-		end
-
-	forward (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_forward (a_session_id), Void)
-			Result := new_response (a_session_id, resp)
-		end
-
-	back (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_back (a_session_id), Void)
-			Result := new_response (a_session_id, resp)
-		end
-
-	refresh (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_refresh (a_session_id), Void)
-			Result := new_response (a_session_id, resp)
-		end
-
-	execute (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_execute (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	execute_async (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_execute_async (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	screenshot (session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_screenshot (session_id))
-			Result := new_response (session_id, resp)
-		end
-
-	ime_available_engines (session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_ime_available (session_id))
-			Result := new_response (session_id, resp)
-		end
-
-	ime_active_engine (session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_ime_active_engine (session_id))
-			Result := new_response (session_id, resp)
-		end
-
-	ime_activated (session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_ime_activated (session_id))
-			Result := new_response (session_id, resp)
-		end
-
-	ime_deactivate (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_ime_deactivate (a_session_id), Void)
-			Result := new_response (a_session_id, resp)
-		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
-			resp := execute_post (cmd_session_ime_activate (a_session_id), an_engine)
-			Result := new_response (a_session_id, resp)
-		end
-
-	frame (a_session_id: STRING_32; a_data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_frame (a_session_id), a_data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	change_focus_window (a_session_id: STRING_32; a_data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_window (a_session_id), a_data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	close_window (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_delete (cmd_session_window (a_session_id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	change_size_window (a_session_id: STRING_32; a_window_handle: STRING_32; a_data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_window_size (a_session_id, a_window_handle), a_data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	size_window (a_session_id: STRING_32; a_window_handle: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_window_size (a_session_id, a_window_handle))
-			Result := new_response (a_session_id, resp)
-		end
-
-	change_window_position (a_session_id: STRING_32; a_window_handle: STRING_32; a_data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_window_position (a_session_id, a_window_handle), a_data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	window_position (a_session_id: STRING_32; a_window_handle: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_window_size (a_session_id, a_window_handle))
-			Result := new_response (a_session_id, resp)
-		end
-
-	window_maximize (a_session_id: STRING_32; a_window_handle: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_window_maximize (a_session_id, a_window_handle), Void)
-			Result := new_response (a_session_id, resp)
-		end
-
-	retrieve_cookies (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_cookie (a_session_id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	set_cookie (a_session_id: STRING_32; a_data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_cookie (a_session_id), a_data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	delete_cookies (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_delete (cmd_session_cookie (a_session_id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	delete_cookie_by_name (a_session_id: STRING_32; a_name: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_delete (cmd_session_cookie_delete (a_session_id, a_name))
-			Result := new_response (a_session_id, resp)
-		end
-
-	page_source (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_source (a_session_id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	page_title (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_title (a_session_id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	search_element (a_session_id: STRING_32; a_data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_element (a_session_id), a_data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	search_element_id_element (a_session_id: STRING_32; id: STRING_32; a_data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_element_id_element (a_session_id, id), a_data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	search_elements (a_session_id: STRING_32; a_data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_elements (a_session_id), a_data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	element_active (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_element_active (a_session_id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	search_element_id_elements (a_session_id: STRING_32; id: STRING_32; a_data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_element_id_elements (a_session_id, id), a_data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	element_click (a_session_id: STRING_32; id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_element_click (a_session_id, id), Void)
-			Result := new_response (a_session_id, resp)
-		end
-
-	element_submit (a_session_id: STRING_32; id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_element_submit (a_session_id, id), Void)
-			Result := new_response (a_session_id, resp)
-		end
-
-	element_text (a_session_id: STRING_32; id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_element_text (a_session_id, id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	send_events (a_session_id: STRING_32; id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_element_event (a_session_id, id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	send_key_strokes (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_keys (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	query_by_tag_name (a_session_id: STRING_32; id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_element_name (a_session_id, id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	clear_element (a_session_id: STRING_32; id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_element_clear (a_session_id, id), Void)
-			Result := new_response (a_session_id, resp)
-		end
-
-	is_enabled (a_session_id: STRING_32; id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_element_enabled (a_session_id, id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	is_selected (a_session_id: STRING_32; id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_element_selected (a_session_id, id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	element_value (a_session_id: STRING_32; id: STRING_32; name: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_element_attribute_name (a_session_id, id, name))
-			Result := new_response (a_session_id, resp)
-		end
-
-	element_equals (a_session_id: STRING_32; id: STRING_32; other: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_element_equals (a_session_id, id, other))
-			Result := new_response (a_session_id, resp)
-		end
-
-	is_displayed (a_session_id: STRING_32; id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_element_displayed (a_session_id, id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	element_location (a_session_id: STRING_32; id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_element_location (a_session_id, id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	location_in_view (a_session_id: STRING_32; id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_element_location_in_view (a_session_id, id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	element_size (a_session_id: STRING_32; id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_element_size (a_session_id, id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	element_css_value (a_session_id: STRING_32; id: STRING_32; property_name: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_element_css_value (a_session_id, id, property_name))
-			Result := new_response (a_session_id, resp)
-		end
-
-	retrieve_browser_orientation (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_browser_orientation (a_session_id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	set_browser_orientation (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_browser_orientation (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	retrieve_alert_text (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_alert_text (a_session_id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	send_alert_text (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_alert_text (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	accept_alert (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_accept_alert (a_session_id), Void)
-			Result := new_response (a_session_id, resp)
-		end
-
-	dismiss_alert (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_dismiss_alert (a_session_id), Void)
-			Result := new_response (a_session_id, resp)
-		end
-
-	move_to (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_move_to (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	modifier (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_modifier (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-
-	click (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_click (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	button_down (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_buttondown (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	button_up (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_buttonup (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	double_click (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_double_click (a_session_id), Void)
-			Result := new_response (a_session_id, resp)
-		end
-
-	touch_click (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_touch_click (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	touch_down (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_touch_down (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	touch_up (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_touch_up (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	touch_move (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_touch_move (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	start_touch_scroll (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_touch_scroll (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	touch_scroll (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		do
-			Result := start_touch_scroll (a_session_id, data)
-		end
-
-	touch_double_click (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_touch_double_click (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	touch_long_click (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_touch_long_click (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	start_touch_flick (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_touch_flick (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	touch_flick (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		do
-			Result := start_touch_flick (a_session_id, data)
-		end
-
-	retrieve_geo_location (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_geo_location (a_session_id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	set_geo_location (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_geo_location (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	retrieve_local_storage (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_local_storage (a_session_id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	set_location_storage (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_local_storage (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	delete_local_storage (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_delete (cmd_session_local_storage (a_session_id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	retrieve_storage_by_key (a_session_id: STRING_32; key: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_local_storage_key (a_session_id, key))
-			Result := new_response (a_session_id, resp)
-		end
-
-	delete_storage_by_key (a_session_id: STRING_32; key: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_delete (cmd_session_local_storage_key (a_session_id, key))
-			Result := new_response (a_session_id, resp)
-		end
-
-	local_storage_size (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_local_storage_size (a_session_id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	session_storage_keys (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_storage (a_session_id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	set_session_storage (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_storage (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	delete_session_storage (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_delete (cmd_session_storage (a_session_id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	retrive_storage_item_by_key (a_session_id: STRING_32; key: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_storage_key (a_session_id, key))
-			Result := new_response (a_session_id, resp)
-		end
-
-	remove_storage_item_by_key (a_session_id: STRING_32; key: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_delete (cmd_session_storage_key (a_session_id, key))
-			Result := new_response (a_session_id, resp)
-		end
-
-	session_storage_size (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_storage_size (a_session_id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	log (a_session_id: STRING_32; data: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_post (cmd_session_log (a_session_id), data)
-			Result := new_response (a_session_id, resp)
-		end
-
-	available_log_types (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_log_types (a_session_id))
-			Result := new_response (a_session_id, resp)
-		end
-
-	application_cache_status (a_session_id: STRING_32): SE_RESPONSE
-		require
-			selinum_server_available: is_available
-		local
-			resp: HTTP_CLIENT_RESPONSE
-		do
-			resp := execute_get (cmd_session_application_cache (a_session_id))
-			Result := new_response (a_session_id, resp)
-		end
-
-feature {NONE} -- Implementation
-
-	execute_get (command_name: STRING_32): HTTP_CLIENT_RESPONSE
-		do
-			Result := http_session.get (command_name, context_executor)
-		end
-
-	execute_post (command_name: STRING_32; data: detachable READABLE_STRING_8): HTTP_CLIENT_RESPONSE
-		do
-			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
-
-	new_response (a_session_id: STRING_32; resp: HTTP_CLIENT_RESPONSE): SE_RESPONSE
-			-- Create a new Selenium Response based on  `resp' HTTP_RESPONSE
-			-- todo improve it!!!
-		do
-			create Result.make_empty
-			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
-					if attached json_to_se_response (l_body) as l_response then
-						Result := l_response
-					end
-					Result.set_json_response (l_body)
-				end
-			end
-		end
-
-	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
-
-	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
diff --git a/library/test/selenium/src/protocol/se_json_wire_protocol.e b/library/test/selenium/src/protocol/se_json_wire_protocol.e
deleted file mode 100644
index a0cb274a..00000000
--- a/library/test/selenium/src/protocol/se_json_wire_protocol.e
+++ /dev/null
@@ -1,2259 +0,0 @@
-note
-	description: "Summary description for {SE_JSON_WIRE_PROTOCOL}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-	EIS: "name=SELINIUM", "protocol=selenium", "src=https://code.google.com/p/selenium/wiki/JsonWireProtocol"
-
-class
-	SE_JSON_WIRE_PROTOCOL
-
-inherit
-
-	JSON_HELPER
-
-	SE_JSON_WIRE_PROTOCOL_COMMANDS
-
-create
-	make, make_with_host
-
-feature -- Initialization
-
-	make
-			--
-		local
-			h: LIBCURL_HTTP_CLIENT
-		do
-			create h.make
-			host := "http://127.0.0.1:4444/wd/hub/"
-			initialize_executor
-		end
-
-	make_with_host (a_host: STRING_32)
-			--
-		local
-			h: LIBCURL_HTTP_CLIENT
-		do
-			create h.make
-			host := a_host
-			initialize_executor
-		end
-
-feature -- Access
-
-	has_error: BOOLEAN
-			-- Did an error occur in the last request?
-			-- There are two types of errors: invalid requests and failed commands.
-
-	last_error: detachable SE_ERROR
-
-feature -- Commands
-
-	status: detachable SE_STATUS
-			-- GET /status
-			-- Query the server's current status.
-			-- The server should respond with a general "HTTP 200 OK" response if it is alive and accepting commands.
-			-- The response body should be a JSON object describing the state of the server.
-			-- All server implementations should return two basic objects describing the server's current platform and when the server was built.
-			-- All fields are optional; if omitted, the client should assume the value is uknown.
-			-- Furthermore, server implementations may include additional fields not listed here.
-		local
-			response: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				response := commnad_executor.status
-				check_response (response)
-				if not has_error then
-					if attached response.json_response as l_response then
-						Result := json_to_se_status (l_response)
-					end
-				end
-			end
-		end
-
-	create_session_with_desired_capabilities (capabilities: SE_CAPABILITIES): detachable SE_SESSION
-			--	POST /session
-			--  Create a new session.
-			--  The server should attempt to create a session that most closely matches the desired and required capabilities.
-			--	Required capabilities have higher priority than desired capabilities and must be set for the session to be created.
-			--	JSON Parameters:
-			--			desiredCapabilities - {object} An object describing the session's desired capabilities.
-			--			requiredCapabilities - {object} An object describing the session's required capabilities (Optional).
-			--	Returns:
-			--			A 302 See Other redirect to /session/:sessionId, where :sessionId is the ID of the newly created session.
-			--	Potential Errors:
-			--			SessionNotCreatedException - If a required capability could not be set.
-		local
-			response: SE_RESPONSE
-		do
-				-- TODO, update the status of the server
-				-- SE_STATUS
-				-- SE_ERROR
-				-- create an COMMAND_EXECUTOR
-			if commnad_executor.is_available then
-				if attached to_json (capabilities) as l_json then
-					response := commnad_executor.new_session (desired_capabilities (l_json.representation))
-					check_response (response)
-					if not has_error then
-						if attached response.json_response as r_value then
-							Result := new_session (r_value, "session")
-						end
-					end
-				end
-			end
-		end
-
-	sessions: detachable LIST [SE_SESSION]
-			-- GET /sessions
-			-- Returns a list of the currently active sessions. Each session will be returned as a list of JSON objects with the following keys:
-			--		id	 			 string	 The session ID.
-			--		capabilities	 object	 An object describing the session's capabilities.
-			-- Returns:
-			--		{Array.<Object>} A list of the currently active sessions.
-
-		local
-			response: SE_RESPONSE
-			index: INTEGER
-		do
-			if commnad_executor.is_available then
-				response := commnad_executor.sessions
-				check_response (response)
-				if not has_error then
-					if attached response.value as l_value and then attached {JSON_ARRAY} string_to_json (l_value) as l_json_array then
-						create {ARRAYED_LIST [SE_SESSION]} Result.make (10)
-						from
-							index := 1
-						until
-							index > l_json_array.count
-						loop
-							if attached {JSON_OBJECT} l_json_array.i_th (index) as json_obj then
-								if attached new_session (json_obj.representation, "sessions") as l_session then
-									Result.force (l_session)
-								end
-							end
-							index := index + 1
-						end
-					end
-				end
-			end
-		end
-
-	retrieve_session (a_session_id: STRING_32): detachable SE_SESSION
-			--	GET /session/:sessionId
-			--	Retrieve the capabilities of the specified session.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{object} An object describing the session's capabilities.
-		local
-			response: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				response := commnad_executor.retrieve_session (a_session_id)
-				check_response (response)
-				if not has_error then
-					if attached response.json_response as r_value then
-						Result := new_session (r_value, "session")
-					end
-				end
-			end
-		end
-
-	delete_session (a_session_id: STRING)
-			--	DELETE /session/:sessionId
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.delete_session (a_session_id)
-				check_response (resp)
-			end
-		end
-
-	set_session_timeouts (a_session_id: STRING_32; a_timeout_type: SE_TIMEOUT_TYPE)
-			--	POST /session/:sessionId/timeouts
-			--	Configure the amount of time that a particular type of operation can execute for before they are aborted and a |Timeout| error is returned to the client.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		type - {string} The type of operation to set the timeout for. Valid values are: "script" for script timeouts, "implicit" for modifying the implicit wait timeout and "page load" for setting a page load timeout.
-			--		ms - {number} The amount of time, in milliseconds, that time-limited commands are permitted to run.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				if attached to_json (a_timeout_type) as l_json then
-					resp := commnad_executor.set_session_timeouts (a_session_id, l_json.representation)
-					check_response (resp)
-				end
-			end
-		end
-
-	set_session_timeouts_async_script (a_session_id: STRING_32; ms: INTEGER_32)
-			--	POST /session/:sessionId/timeouts/async_script
-			--	Set the amount of time, in milliseconds, that asynchronous scripts executed by /session/:sessionId/execute_async
-			--	are permitted to run before they are aborted and a |Timeout| error is returned to the client.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		ms - {number} The amount of time, in milliseconds, that time-limited commands are permitted to run.
-		local
-			l_timeout: SE_TIMEOUT_TYPE
-			resp: SE_RESPONSE
-		do
-			create l_timeout.make_empty
-			l_timeout.set_ms (ms)
-			if commnad_executor.is_available then
-				if attached to_json (l_timeout) as l_json then
-					resp := commnad_executor.set_session_timeouts_async_script (a_session_id, l_json.representation)
-					check_response (resp)
-				end
-			end
-		end
-
-	set_session_timeouts_implicit_wait (a_session_id: STRING_32; ms: NATURAL_32)
-			--	POST /session/:sessionId/timeouts/implicit_wait
-			--	Set the amount of time the driver should wait when searching for elements. When searching for a single element, the driver should poll the page until an element is found or the timeout expires, whichever occurs first. When searching for multiple elements, the driver should poll the page until at least one element is found or the timeout expires, at which point it should return an empty list.
-			--	If this command is never sent, the driver should default to an implicit wait of 0ms.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		ms - {number} The amount of time to wait, in milliseconds. This value has a lower bound of 0.
-		local
-			l_timeout: SE_TIMEOUT_TYPE
-			resp: SE_RESPONSE
-		do
-			create l_timeout.make_empty
-			l_timeout.set_ms (ms.as_integer_32)
-			if commnad_executor.is_available then
-				if attached to_json (l_timeout) as l_json then
-					resp := commnad_executor.set_session_timeouts_implicit_wait (a_session_id, l_json.representation)
-					check_response (resp)
-				end
-			end
-		end
-
-	retrieve_window_handle (a_session_id: STRING_32): detachable STRING_32
-			--	GET /session/:sessionId/window_handle
-			--	Retrieve the current window handle.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{string} The current window handle.
-			--Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.retrieve_window_handle (a_session_id)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value then
-						Result := l_value
-					end
-				end
-			end
-		end
-
-	retrieve_window_handles (a_session_id: STRING_32): detachable LIST [STRING_32]
-			--	GET /session/:sessionId/window_handles
-			--	Retrieve the list of all window handles available to the session.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{Array.<string>} A list of window handles.
-
-		local
-			resp: SE_RESPONSE
-			index: INTEGER_32
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.retrieve_window_handles (a_session_id)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value and then attached {JSON_ARRAY} string_to_json (l_value) as l_json_array then
-						create {ARRAYED_LIST [STRING_32]} Result.make (10)
-						from
-							index := 1
-						until
-							index > l_json_array.count
-						loop
-							if attached {JSON_STRING} l_json_array.i_th (index) as json_str then
-								Result.force (json_str.representation)
-							end
-							index := index + 1
-						end
-					end
-				end
-			end
-		end
-
-	retrieve_url (a_session_id: STRING_32): detachable STRING_32
-			--	GET /session/:sessionId/url
-			--	Retrieve the URL of the current page.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{string} The current URL.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.retrieve_url (a_session_id)
-				check_response (resp)
-				if has_error then
-					if attached resp.value as l_value then
-						Result := l_value
-					end
-				end
-			end
-		end
-
-	navigate_to_url (a_session_id: STRING_32; an_url: STRING_32)
-			--	POST /session/:sessionId/url
-			--	Navigate to a new URL.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		url - {string} The URL to navigate to.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		local
-			l_json: STRING_32
-			resp: SE_RESPONSE
-		do
-			l_json := "[
-				{ "url": "$url" }
-			]"
-			l_json.replace_substring_all ("$url", an_url)
-			if commnad_executor.is_available then
-				resp := commnad_executor.navigate_to_url (a_session_id, l_json)
-				check_response (resp)
-			end
-		end
-
-	forward (a_session_id: STRING_32)
-			--	POST /session/:sessionId/forward
-			--	Navigate forwards in the browser history, if possible.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.forward (a_session_id)
-				check_response (resp)
-			end
-		end
-
-	back (a_session_id: STRING_32)
-			--	POST /session/:sessionId/back
-			--	Navigate backwards in the browser history, if possible.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.back (a_session_id)
-				check_response (resp)
-			end
-		end
-
-	refresh (a_session_id: STRING_32)
-			--	POST /session/:sessionId/refresh
-			--	Refresh the current page.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.refresh (a_session_id)
-				check_response (resp)
-			end
-		end
-
-	execute (a_session_id: STRING_32)
-			--	POST /session/:sessionId/execute
-			--	Inject a snippet of JavaScript into the page for execution in the context of the currently selected frame.
-			--	The executed script is assumed to be synchronous and the result of evaluating the script is returned to the client.
-			--	The script argument defines the script to execute in the form of a function body. The value returned by that function will be returned to the client.
-			--	The function will be invoked with the provided args array and the values may be accessed via the arguments object in the order specified.
-
-			--	Arguments may be any JSON-primitive, array, or JSON object. JSON objects that define a
-			-- 	WebElement reference will be converted to the corresponding DOM element.
-			-- 	Likewise, any WebElements in the script result will be returned to the client as WebElement JSON objects.
-
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		script - {string} The script to execute.
-			--		args - {Array.<*>} The script arguments.
-			--	Returns:
-			--		{*} The script result.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If one of the script arguments is a WebElement that is not attached to the page's DOM.
-			--		JavaScriptError - If the script throws an Error.
-		do
-				--TODO
-		end
-
-	execute_async (a_session_id: STRING_32)
-			--	POST /session/:sessionId/execute_async
-			--	Inject a snippet of JavaScript into the page for execution in the context of the currently selected frame. The executed script is assumed to be asynchronous and must signal that is done by invoking the provided callback, which is always provided as the final argument to the function. The value to this callback will be returned to the client.
-			--	Asynchronous script commands may not span page loads. If an unload event is fired while waiting for a script result, an error should be returned to the client.
-			--	The script argument defines the script to execute in teh form of a function body. The function will be invoked with the provided args array and the values may be accessed via the arguments object in the order specified. The final argument will always be a callback function that must be invoked to signal that the script has finished.
-			--	Arguments may be any JSON-primitive, array, or JSON object. JSON objects that define a WebElement reference will be converted to the corresponding DOM element. Likewise, any WebElements in the script result will be returned to the client as WebElement JSON objects.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		script - {string} The script to execute.
-			--		args - {Array.<*>} The script arguments.
-			--	Returns:
-			--		{*} The script result.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If one of the script arguments is a WebElement that is not attached to the page's DOM.
-			--		Timeout - If the script callback is not invoked before the timout expires. Timeouts are controlled by the /session/:sessionId/timeout/async_script command.
-			--		JavaScriptError - If the script throws an Error or if an unload event is fired while waiting for the script to finish.
-		do
-				--TODO
-		end
-
-	screenshot (a_session_id: STRING_32): detachable STRING_32
-			--	GET /session/:sessionId/screenshot
-			--	Take a screenshot of the current page.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{string} The screenshot as a base64 encoded PNG.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.screenshot (a_session_id)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value then
-						Result := l_value
-					end
-				end
-			end
-		end
-
-	ime_available_engines (a_session_id: STRING_32): detachable LIST [STRING_32]
-			--	GET /session/:sessionId/ime/available_engines
-			--	List all available engines on the machine. To use an engine, it has to be present in this list.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{Array.<string>} A list of available engines
-			--	Potential Errors:
-			--		ImeNotAvailableException - If the host does not support IME
-		local
-			resp: SE_RESPONSE
-			index: INTEGER_32
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.ime_available_engines (a_session_id)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value and then attached {JSON_ARRAY} string_to_json (l_value) as l_json_array then
-						create {ARRAYED_LIST [STRING_32]} Result.make (10)
-						from
-							index := 1
-						until
-							index > l_json_array.count
-						loop
-							if attached {JSON_STRING} l_json_array.i_th (index) as json_str then
-								Result.force (json_str.representation)
-							end
-							index := index + 1
-						end
-					end
-				end
-			end
-		end
-
-	ime_active_engine (a_session_id: STRING_32): detachable STRING_32
-			--	GET /session/:sessionId/ime/active_engine
-			--	Get the name of the active IME engine. The name string is platform specific.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{string} The name of the active IME engine.
-			--	Potential Errors:
-			--		ImeNotAvailableException - If the host does not support IME
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.ime_active_engine (a_session_id)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value then
-						Result := l_value
-					end
-				end
-			end
-		end
-
-	ime_activated (a_session_id: STRING_32): BOOLEAN
-			--	GET /session/:sessionId/ime/activated
-			--	Indicates whether IME input is active at the moment (not if it's available.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{boolean} true if IME input is available and currently active, false otherwise
-			--	Potential Errors:
-			--		ImeNotAvailableException - If the host does not support IME
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.ime_active_engine (a_session_id)
-				check_response (resp)
-				if not has_error then
-					if attached {BOOLEAN} resp.value as l_value then
-						Result := l_value
-					end
-				end
-			end
-		end
-
-	ime_deactivate (a_session_id: STRING_32)
-			--	POST /session/:sessionId/ime/deactivate
-			--	De-activates the currently-active IME engine.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Potential Errors:
-			--		ImeNotAvailableException - If the host does not support IME
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.ime_deactivate (a_session_id)
-				check_response (resp)
-			end
-		end
-
-	ime_activate (a_session_id: STRING_32; an_engine: STRING_32)
-			--	POST /session/:sessionId/ime/activate
-			--	Make an engines that is available (appears on the list returned by getAvailableEngines) active. After this call, the engine will be added to the list of engines loaded in the IME daemon and the input sent using sendKeys will be converted by the active engine. Note that this is a platform-independent method of activating IME (the platform-specific way being using keyboard shortcuts
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		engine - {string} Name of the engine to activate.
-			--	Potential Errors:
-			--		ImeActivationFailedException - If the engine is not available or if the activation fails for other reasons.
-			--		ImeNotAvailableException - If the host does not support IME
-		local
-			l_json: STRING_32
-			resp: SE_RESPONSE
-		do
-			l_json := "[
-				{ "engine": $engine }
-			]"
-			l_json.replace_substring_all ("$engine", an_engine)
-			if commnad_executor.is_available then
-				resp := commnad_executor.ime_activate (a_session_id, l_json)
-				check_response (resp)
-			end
-		end
-
-	frame (a_session_id: STRING_32;  arg : detachable STRING_32)
-			--	POST /session/:sessionId/frame
-			--	Change focus to another frame on the page. If the frame id is null, the server should switch to the page's default content.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		id - {string|number|null|WebElement JSON Object} Identifier for the frame to change focus to.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		NoSuchFrame - If the frame specified by id cannot be found.
-		local
-			l_json: STRING_32
-			resp: SE_RESPONSE
-		do
-			l_json := "[
-				{ "id": $id }
-			]"
-			if attached arg as l_arg then
-				l_json.replace_substring_all ("$id", l_arg)
-			else
-				l_json.replace_substring_all ("$id", "null")
-			end
-
-			if commnad_executor.is_available then
-				resp := commnad_executor.frame (a_session_id, l_json)
-				check_response (resp)
-			end
-		end
-
-	change_focus_window (a_session_id: STRING_32; a_name: STRING_32)
-			--	POST /session/:sessionId/window
-			--	Change focus to another window. The window to change focus to may be specified by its server assigned window handle, or by the value of its name attribute.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		name - {string} The window to change focus to.
-			--	Potential Errors:
-			--		NoSuchWindow - If the window specified by name cannot be found.
-		local
-			l_json: STRING_32
-			resp: SE_RESPONSE
-		do
-			l_json := "[
-				{ "name": "$name" }
-			]"
-			l_json.replace_substring_all ("$name", a_name)
-			if commnad_executor.is_available then
-				resp := commnad_executor.change_focus_window (a_session_id, l_json)
-				check_response (resp)
-			end
-		end
-
-	close_window (a_session_id: STRING_32)
-			--	DELETE /session/:sessionId/window
-			--	Close the current window.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window is already closed
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.close_window (a_session_id)
-				check_response (resp)
-			end
-		end
-
-	change_size_window (a_session_id: STRING_32; a_window_handle: STRING_32; a_width: NATURAL_32; a_height: NATURAL_32)
-			--	POST /session/:sessionId/window/:windowHandle/size
-			--	Change the size of the specified window. If the :windowHandle URL parameter is "current", the currently active window will be resized.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		width - {number} The new window width.
-			--		height - {number} The new window height.
-		local
-			l_json: STRING_32
-			resp: SE_RESPONSE
-		do
-			l_json := "[
-				{ "width": $width,
-				  "height": $height
-				}
-			]"
-			l_json.replace_substring_all ("$width", a_width.out)
-			l_json.replace_substring_all ("$height", a_height.out)
-			if commnad_executor.is_available then
-				resp := commnad_executor.change_size_window (a_session_id, a_window_handle, l_json)
-				check_response (resp)
-			end
-		end
-
-	size_window (a_session_id: STRING_32; a_window_handle: STRING_32): SE_DIMENSION
-			--	GET /session/:sessionId/window/:windowHandle/size
-			--	Get the size of the specified window. If the :windowHandle URL parameter is "current", the size of the currently active window will be returned.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{width: number, height: number} The size of the window.
-			--	Potential Errors:
-			--		NoSuchWindow - If the specified window cannot be found.
-		local
-			resp: SE_RESPONSE
-		do
-			create Result
-			if commnad_executor.is_available then
-				resp := commnad_executor.size_window (a_session_id, a_window_handle)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value and then attached {JSON_OBJECT} string_to_json (l_value) as l_json_object then
-						if attached l_json_object.item ("width") as l_width then
-							Result.set_width (l_width.representation.to_natural_32)
-						end
-						if attached l_json_object.item ("height") as l_height then
-							Result.set_width (l_height.representation.to_natural_32)
-						end
-					end
-				end
-			end
-		end
-
-	change_window_position (a_session_id: STRING_32; a_window_handle: STRING_32; an_x: INTEGER_32; an_y: INTEGER_32)
-			--	POST /session/:sessionId/window/:windowHandle/position
-			--	Change the position of the specified window. If the :windowHandle URL parameter is "current", the currently active window will be moved.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		x - {number} The X coordinate to position the window at, relative to the upper left corner of the screen.
-			--		y - {number} The Y coordinate to position the window at, relative to the upper left corner of the screen.
-			--	Potential Errors:
-			--		NoSuchWindow - If the specified window cannot be found.
-		local
-			l_json: STRING_32
-			resp: SE_RESPONSE
-		do
-			l_json := "[
-				{ "x": $x,
-				  "y": $y
-				}
-			]"
-			l_json.replace_substring_all ("$x", an_x.out)
-			l_json.replace_substring_all ("$y", an_y.out)
-			if commnad_executor.is_available then
-				resp := commnad_executor.change_window_position (a_session_id, a_window_handle, l_json)
-				check_response (resp)
-			end
-		end
-
-	window_position (a_session_id: STRING_32; a_window_handle: STRING_32): SE_POINT
-			--	GET /session/:sessionId/window/:windowHandle/position
-			--	Get the position of the specified window. If the :windowHandle URL parameter is "current", the position of the currently active window will be returned.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{x: number, y: number} The X and Y coordinates for the window, relative to the upper left corner of the screen.
-			--	Potential Errors:
-			--		NoSuchWindow - If the specified window cannot be found.
-		local
-			resp: SE_RESPONSE
-		do
-			create Result
-			if commnad_executor.is_available then
-				resp := commnad_executor.window_position (a_session_id, a_window_handle)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value and then attached {JSON_OBJECT} string_to_json (l_value) as l_json_object then
-						if attached l_json_object.item ("x") as l_x then
-							Result.set_x (l_x.representation.to_integer_32)
-						end
-						if attached l_json_object.item ("y") as l_y then
-							Result.set_y (l_y.representation.to_integer_32)
-						end
-					end
-				end
-			end
-		end
-
-	window_maximize (a_session_id: STRING_32; a_window_handle: STRING_32)
-			--	POST /session/:sessionId/window/:windowHandle/maximize
-			--	Maximize the specified window if not already maximized. If the :windowHandle URL parameter is "current", the currently active window will be maximized.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Potential Errors:
-			--		NoSuchWindow - If the specified window cannot be found.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.window_maximize (a_session_id, a_window_handle)
-				check_response (resp)
-			end
-		end
-
-	retrieve_cookies (a_session_id: STRING_32): detachable LIST [SE_COOKIE]
-			--	GET /session/:sessionId/cookie
-			--	Retrieve all cookies visible to the current page.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{Array.<object>} A list of cookies.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		local
-			resp: SE_RESPONSE
-			index: INTEGER
-		do
-				-- Check the format of internal json object
-			if commnad_executor.is_available then
-				resp := commnad_executor.retrieve_cookies (a_session_id)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value and then attached {JSON_ARRAY} string_to_json (l_value) as l_json_array then
-						create {ARRAYED_LIST [SE_COOKIE]} Result.make (10)
-						from
-							index := 1
-						until
-							index > l_json_array.count
-						loop
-							if attached {JSON_VALUE} l_json_array.i_th (index) as json_str then
-								if attached json_to_se_cookie (json_str.representation) as l_item then
-									Result.force (l_item)
-								end
-							end
-							index := index + 1
-						end
-					end
-				end
-			end
-		end
-
-	set_cookie (a_session_id: STRING_32; a_cookie: SE_COOKIE)
-			--	POST /session/:sessionId/cookie
-			--	Set a cookie. If the cookie path is not specified, it should be set to "/". Likewise, if the domain is omitted, it should default to the current page's domain.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		cookie - {object} A JSON object defining the cookie to add.
-		local
-			l_data: STRING_32
-			response: SE_RESPONSE
-		do
-			l_data := "[
-				{ "cookie":	$cookie}
-			]"
-			if commnad_executor.is_available then
-				if attached to_json (a_cookie) as l_json then
-					l_data.replace_substring_all ("$cookie", l_json.representation)
-					response := commnad_executor.set_cookie (a_session_id, l_data)
-					check_response (response)
-				end
-			end
-		end
-
-	delete_cookies (a_session_id: STRING_32)
-			--	DELETE /session/:sessionId/cookie
-			--	Delete all cookies visible to the current page.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Potential Errors:
-			--		InvalidCookieDomain - If the cookie's domain is not visible from the current page.
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		UnableToSetCookie - If attempting to set a cookie on a page that does not support cookies (e.g. pages with mime-type text/plain).
-		local
-			response: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				response := commnad_executor.delete_cookies (a_session_id)
-				check_response (response)
-			end
-		end
-
-	delete_cookie_by_name (a_session_id: STRING_32; a_name: STRING_32)
-			--	DELETE /session/:sessionId/cookie/:name
-			--	Delete the cookie with the given name. This command should be a no-op if there is no such cookie visible to the current page.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:name - The name of the cookie to delete.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		local
-			response: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				response := commnad_executor.delete_cookie_by_name (a_session_id, a_name)
-				check_response (response)
-			end
-		end
-
-	page_source (a_session_id: STRING_32): detachable STRING_32
-			--	GET /session/:sessionId/source
-			--	Get the current page source.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{string} The current page source.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.page_source (a_session_id)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value then
-						Result := l_value
-					end
-				end
-			end
-		end
-
-	page_title (a_session_id: STRING_32): detachable STRING_32
-			--	GET /session/:sessionId/title
-			--	Get the current page title.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{string} The current page title.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.page_title (a_session_id)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value then
-						Result := l_value
-					end
-				end
-			end
-		end
-
-	search_element (a_session_id: STRING_32; strategy: STRING_32): detachable WEB_ELEMENT
-			-- POST /session/:sessionId/element
-			-- Search for an element on the page, starting from the document root. The located element will be returned as a
-			-- WebElement JSON object. The table below lists the locator strategies that each server should support.
-			-- Each locator must return the first matching element located in the DOM.
-			--
-			--		Strategy			Description
-			--		class name		 	Returns an element whose class name contains the search value; compound class names are not permitted.
-			--		css selector	 	Returns an element matching a CSS selector.
-			--		id	 				Returns an element whose ID attribute matches the search value.
-			--		name	 			Returns an element whose NAME attribute matches the search value.
-			--		link text	 		Returns an anchor element whose visible text matches the search value.
-			--		partial link text	Returns an anchor element whose visible text partially matches the search value.
-			--		tag name	 		Returns an element whose tag name matches the search value.
-			--		xpath	 			Returns an element matching an XPath expression.
-			--
-			-- URL Parameters:
-			--  	:sessionId - ID of the session to route the command to.
-			-- JSON Parameters:
-			--		using - {string} The locator strategy to use.
-			--		value - {string} The The search target.
-			-- Returns:
-			--		{ELEMENT:string} A WebElement JSON object for the located element.
-			-- Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		NoSuchElement - If the element cannot be found.
-			--		XPathLookupError - If using XPath and the input expression is invalid.
-		require
-			has_valid_strategy: (create {SE_BY}).is_valid_strategy (strategy)
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.search_element (a_session_id, strategy)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value and then attached {JSON_OBJECT} string_to_json (l_value) as ll_value and then attached {JSON_STRING} ll_value.item ("ELEMENT") as l_elem then
-						create Result.make (l_elem.item, Current, a_session_id)
-					end
-				end
-			end
-		end
-
-	search_elements (a_session_id: STRING_32; strategy: STRING_32): detachable LIST [WEB_ELEMENT]
-			--	POST /session/:sessionId/elements
-			--	Search for multiple elements on the page, starting from the document root. The located elements will be returned as a WebElement JSON objects. The table below lists the locator strategies that each server should support. Elements should be returned in the order located in the DOM.
-			--
-			--		Strategy			Description
-			--		class name		 	Returns an element whose class name contains the search value; compound class names are not permitted.
-			--		css selector	 	Returns an element matching a CSS selector.
-			--		id	 				Returns an element whose ID attribute matches the search value.
-			--		name	 			Returns an element whose NAME attribute matches the search value.
-			--		link text	 		Returns an anchor element whose visible text matches the search value.
-			--		partial link text	Returns an anchor element whose visible text partially matches the search value.
-			--		tag name	 		Returns an element whose tag name matches the search value.
-			--		xpath	 			Returns an element matching an XPath expression.
-			--
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		using - {string} The locator strategy to use.
-			--		value - {string} The The search target.
-			--	Returns:
-			--		{Array.<{ELEMENT:string}>} A list of WebElement JSON objects for the located elements.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		XPathLookupError - If using XPath and the input expression is invalid.
-		require
-			has_valid_strategy: (create {SE_BY}).is_valid_strategy (strategy)
-		local
-			resp: SE_RESPONSE
-			index: INTEGER
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.search_elements (a_session_id, strategy)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value and then attached {JSON_ARRAY} string_to_json (l_value) as l_json_array then
-						create {ARRAYED_LIST [WEB_ELEMENT]} Result.make (10)
-						from
-							index := 1
-						until
-							index > l_json_array.count
-						loop
-							if attached {JSON_OBJECT} l_json_array.i_th (index) as json_str and then attached {JSON_STRING} json_str.item ("ELEMENT") as l_elem then
-								Result.force (create {WEB_ELEMENT}.make (l_elem.item, Current, a_session_id))
-							end
-							index := index + 1
-						end
-					end
-				end
-			end
-		end
-
-	element_active (a_session_id: STRING_32): detachable WEB_ELEMENT
-			--	POST /session/:sessionId/element/active
-			--	Get the element on the page that currently has focus. The element will be returned as a WebElement JSON object.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{ELEMENT:string} A WebElement JSON object for the active element.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.element_active (a_session_id)
-				check_response (resp)
-				if not has_error then
-					if attached {JSON_OBJECT} resp.value as l_value and then attached l_value.item ("ELEMENT") as l_elem then
-						create Result.make (l_elem.representation, Current, a_session_id)
-					end
-				end
-			end
-		end
-
-		--	element_id (a_session_id: STRING_32; )
-		--			--	GET /session/:sessionId/element/:id
-		--			--	Describe the identified element.
-		--			--	Note: This command is reserved for future use; its return type is currently undefined.
-
-		--			--	URL Parameters:
-		--			--		:sessionId - ID of the session to route the command to.
-		--			--		:id - ID of the element to route the command to.
-		--			--	Potential Errors:
-		--			--		NoSuchWindow - If the currently selected window has been closed.
-		--			--		StaleElementReference - If the element referenced by :id is no longer attached to the page's DOM.
-		--		do
-		--		end
-
-	search_element_id_element (a_session_id: STRING_32; an_id: STRING_32; strategy: STRING_32): detachable WEB_ELEMENT
-			--	POST /session/:sessionId/element/:id/element
-			--	Search for an element on the page, starting from the identified element.
-			--	The located element will be returned as a WebElement JSON object.
-			--	The table below lists the locator strategies that each server should support.
-			--	Each locator must return the first matching element located in the DOM.
-			--
-			--		Strategy			Description
-			--		class name		 	Returns an element whose class name contains the search value; compound class names are not permitted.
-			--		css selector	 	Returns an element matching a CSS selector.
-			--		id	 				Returns an element whose ID attribute matches the search value.
-			--		name	 			Returns an element whose NAME attribute matches the search value.
-			--		link text	 		Returns an anchor element whose visible text matches the search value.
-			--		partial link text	Returns an anchor element whose visible text partially matches the search value.
-			--		tag name	 		Returns an element whose tag name matches the search value.
-			--		xpath	 			Returns an element matching an XPath expression.
-			--
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:id - ID of the element to route the command to.
-			--	JSON Parameters:
-			--		using - {string} The locator strategy to use.
-			--		value - {string} The The search target.
-			--	Returns:
-			--		{ELEMENT:string} A WebElement JSON object for the located element.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If the element referenced by :id is no longer attached to the page's DOM.
-			--		NoSuchElement - If the element cannot be found.
-			--		XPathLookupError - If using XPath and the input expression is invalid.
-		require
-			has_valid_strategy: (create {SE_BY}).is_valid_strategy (strategy)
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.search_element_id_element (a_session_id, an_id, strategy)
-				check_response (resp)
-				if not has_error then
-					if attached {JSON_OBJECT} resp.value as l_value and then attached l_value.item ("ELEMENT") as l_elem then
-						create Result.make (l_elem.representation, Current, a_session_id)
-					end
-				end
-			end
-		end
-
-	search_elements_id (a_session_id: STRING_32; an_id: STRING_32; strategy: STRING_32): detachable LIST [WEB_ELEMENT]
-			--	POST /session/:sessionId/element/:id/elements
-			--	Search for multiple elements on the page, starting from the identified element.
-			--	The located elements will be returned as a WebElement JSON objects.
-			-- 	The table below lists the locator strategies that each server should support.
-			--	Elements should be returned in the order located in the DOM.
-			--
-			--		Strategy			Description
-			--		class name		 	Returns an element whose class name contains the search value; compound class names are not permitted.
-			--		css selector	 	Returns an element matching a CSS selector.
-			--		id	 				Returns an element whose ID attribute matches the search value.
-			--		name	 			Returns an element whose NAME attribute matches the search value.
-			--		link text	 		Returns an anchor element whose visible text matches the search value.
-			--		partial link text	Returns an anchor element whose visible text partially matches the search value.
-			--		tag name	 		Returns an element whose tag name matches the search value.
-			--		xpath	 			Returns an element matching an XPath expression.
-			--
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:id - ID of the element to route the command to.
-			--	JSON Parameters:
-			--		using - {string} The locator strategy to use.
-			--		value - {string} The The search target.
-			--	Returns:
-			--		{Array.<{ELEMENT:string}>} A list of WebElement JSON objects for the located elements.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If the element referenced by :id is no longer attached to the page's DOM.
-			--		XPathLookupError - If using XPath and the input expression is invalid.
-		require
-			has_valid_strategy: (create {SE_BY}).is_valid_strategy (strategy)
-		local
-			resp: SE_RESPONSE
-			index: INTEGER
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.search_element_id_elements (a_session_id, an_id, strategy)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value and then attached {JSON_ARRAY} string_to_json (l_value) as l_json_array then
-						create {ARRAYED_LIST [WEB_ELEMENT]} Result.make (10)
-						from
-							index := 1
-						until
-							index > l_json_array.count
-						loop
-							if attached {JSON_OBJECT} l_json_array.i_th (index) as json_str and then attached json_str.item ("ELEMENT") as l_elem then
-								Result.force (create {WEB_ELEMENT}.make (l_elem.representation,Current, a_session_id))
-							end
-							index := index + 1
-						end
-					end
-				end
-			end
-		end
-
-	element_click (a_session_id: STRING_32; an_id: STRING_32)
-			--	POST /session/:sessionId/element/:id/click
-			--	Click on an element.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:id - ID of the element to route the command to.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If the element referenced by :id is no longer attached to the page's DOM.
-			--		ElementNotVisible - If the referenced element is not visible on the page (either is hidden by CSS, has 0-width, or has 0-height)
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.element_click (a_session_id, an_id)
-				check_response (resp)
-			end
-		end
-
-	element_submit (a_session_id: STRING_32; an_id: STRING_32)
-			--	POST /session/:sessionId/element/:id/submit
-			--	Submit a FORM element. The submit command may also be applied to any element that is a descendant of a FORM element.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:id - ID of the element to route the command to.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If the element referenced by :id is no longer attached to the page's DOM.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.element_submit (a_session_id, an_id)
-				check_response (resp)
-			end
-		end
-
-	element_text (a_session_id: STRING_32; an_id: STRING_32): detachable STRING_32
-			--	GET /session/:sessionId/element/:id/text
-			--	Returns the visible text for the element.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:id - ID of the element to route the command to.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If the element referenced by :id is no longer attached to the page's DOM.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.element_text (a_session_id, an_id)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value then
-						Result := l_value
-					end
-				end
-			end
-		end
-
-	send_event (a_session_id: STRING_32; an_id: STRING_32; events: ARRAY [STRING_32])
-			--	POST /session/:sessionId/element/:id/value
-			--	Send a sequence of key strokes to an element.
-			--	Any UTF-8 character may be specified, however, if the server does not support native key events,
-			--	it should simulate key strokes for a standard US keyboard layout.
-			--	The Unicode Private Use Area code points, 0xE000-0xF8FF, are used to represent pressable, non-text keys (see table below).
-			--	Key			Code	Key			Code		Key			Code		Key			Code		Key				Code
-			--	NULL		U+E000	Space		U+E00D		Numpad 0	U+E01A		Multiply	U+E024		F1				U+E031
-			--	Cancel		U+E001	Pageup		U+E00E		Numpad 1	U+E01B		Add			U+E025		F2				U+E032
-			--	Help		U+E002	Pagedown	U+E00F		Numpad 2	U+E01C		Separator	U+E026		F3				U+E033
-			--	Back space	U+E003	End			U+E010		Numpad 3	U+E01D		Subtract	U+E027		F4				U+E034
-			--	Tab			U+E004	Home		U+E011		Numpad 4	U+E01E		Decimal		U+E028		F5				U+E035
-			--	Clear		U+E005	Left arrow	U+E012		Numpad 5	U+E01F		Divide		U+E029		F6				U+E036
-			--	Return1		U+E006	Up arrow	U+E013		Numpad 6	U+E020								F7				U+E037
-			--	Enter1		U+E007	Right arrow	U+E014		Numpad 7	U+E021								F8				U+E038
-			--	Shift		U+E008	Down arrow	U+E015		Numpad 8	U+E022								F9				U+E039
-			--	Control		U+E009	Insert		U+E016		Numpad 9	U+E023								F10				U+E03A
-			--	Alt			U+E00A	Delete		U+E017														F11				U+E03B
-			--	Pause		U+E00B	Semicolon	U+E018														F12				U+E03C
-			--	Escape		U+E00C	Equals		U+E019														Command/Meta	U+E03D
-			--	1 The return key is not the same as the enter key.
-			--	The server must process the key sequence as follows:
-
-			--	Each key that appears on the keyboard without requiring modifiers are sent as a keydown followed by a key up.
-			--	If the server does not support native events and must simulate key strokes with JavaScript, it must generate keydown, keypress, and keyup events, in that order. The keypress event should only be fired when the corresponding key is for a printable character.
-			--	If a key requires a modifier key (e.g. "!" on a standard US keyboard), the sequence is: modifier down, key down, key up, modifier up, where key is the ideal unmodified key value (using the previous example, a "1").
-			--	Modifier keys (Ctrl, Shift, Alt, and Command/Meta) are assumed to be "sticky"; each modifier should be held down (e.g. only a keydown event) until either the modifier is encountered again in the sequence, or the NULL (U+E000) key is encountered.
-			--	Each key sequence is terminated with an implicit NULL key. Subsequently, all depressed modifier keys must be released (with corresponding keyup events) at the end of the sequence.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:id - ID of the element to route the command to.
-			--	JSON Parameters:
-			--		value - {Array.<string>} The sequence of keys to type. An array must be provided. The server should flatten the array items to a single string to be typed.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If the element referenced by :id is no longer attached to the page's DOM.
-			--		ElementNotVisible - If the referenced element is not visible on the page (either is hidden by CSS, has 0-width, or has 0-height)
-		local
-			resp: SE_RESPONSE
-			l_json: STRING_32
-		do
-			l_json := "[
-				{"value":$array}
-			]"
-			if commnad_executor.is_available then
-				if attached json.value (create {ARRAYED_LIST [STRING_32]}.make_from_array (events)) as l_array then
-					l_json.replace_substring_all ("$array", l_array.representation)
-					resp := commnad_executor.send_events (a_session_id, an_id, l_json)
-					check_response (resp)
-				end
-			end
-		end
-
-	send_key_strokes (a_session_id: STRING_32; keys: ARRAY [STRING_32])
-			--	POST /session/:sessionId/keys
-			--	Send a sequence of key strokes to the active element. This command is similar to the send keys command in every aspect except the implicit termination: The modifiers are not released at the end of the call. Rather, the state of the modifier keys is kept between calls, so mouse interactions can be performed while modifier keys are depressed.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		value - {Array.<string>} The keys sequence to be sent. The sequence is defined in the send keys command.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		local
-			resp: SE_RESPONSE
-			l_json: STRING_32
-		do
-			l_json := "[
-				{"value":$array}
-			]"
-			if commnad_executor.is_available then
-				if attached json.value (create {ARRAYED_LIST [STRING_32]}.make_from_array (keys)) as l_array then
-					l_json.replace_substring_all ("$array", l_array.representation)
-					resp := commnad_executor.send_key_strokes (a_session_id, l_json)
-					check_response (resp)
-				end
-			end
-		end
-
-	query_by_tag_name (a_session_id: STRING_32; an_id: STRING_32): detachable STRING_32
-			-- 	GET /session/:sessionId/element/:id/name
-			-- 	Query for an element's tag name.
-			-- 	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			-- 		:id - ID of the element to route the command to.
-			--	Returns:
-			--		{string} The element's tag name, as a lowercase string.
-			-- 	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If the element referenced by :id is no longer attached to the page's DOM.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.query_by_tag_name (a_session_id, an_id)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value then
-						Result := l_value
-					end
-				end
-			end
-		end
-
-	clear_element (a_session_id: STRING_32; an_id: STRING_32)
-			--	POST /session/:sessionId/element/:id/clear
-			--	Clear a TEXTAREA or text INPUT element's value.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:id - ID of the element to route the command to.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If the element referenced by :id is no longer attached to the page's DOM.
-			--		ElementNotVisible - If the referenced element is not visible on the page (either is hidden by CSS, has 0-width, or has 0-height)
-			--		InvalidElementState - If the referenced element is disabled.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.clear_element (a_session_id, an_id)
-				check_response (resp)
-			end
-		end
-
-	is_selected (a_session_id: STRING_32; an_id: STRING_32): BOOLEAN
-			--	GET /session/:sessionId/element/:id/selected
-			--	Determine if an OPTION element, or an INPUT element of type checkbox or radiobutton is currently selected.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:id - ID of the element to route the command to.
-			--	Returns:
-			--		{boolean} Whether the element is selected.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If the element referenced by :id is no longer attached to the page's DOM.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.is_selected (a_session_id, an_id)
-				check_response (resp)
-				if not has_error then
-					if attached {JSON_BOOLEAN} resp.value as l_value then
-						Result := (l_value.item)
-					end
-				end
-			end
-		end
-
-	is_enabled (a_session_id: STRING_32; an_id: STRING_32): BOOLEAN
-			--	GET /session/:sessionId/element/:id/enabled
-			--	Determine if an element is currently enabled.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:id - ID of the element to route the command to.
-			--	Returns:
-			--		{boolean} Whether the element is enabled.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If the element referenced by :id is no longer attached to the page's DOM.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.is_enabled (a_session_id, an_id)
-				check_response (resp)
-				if not has_error then
-					if attached {JSON_BOOLEAN} resp.value as l_value then
-						Result := (l_value.item)
-					end
-				end
-			end
-		end
-
-	element_value (a_session_id: STRING_32; an_id: STRING_32; a_name: STRING_32): detachable STRING_32
-			--	GET /session/:sessionId/element/:id/attribute/:name
-			--	Get the value of an element's attribute.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:id - ID of the element to route the command to.
-			--	Returns:
-			--		{string|null} The value of the attribute, or null if it is not set on the element.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If the element referenced by :id is no longer attached to the page's DOM.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.element_value (a_session_id, an_id, a_name)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value then
-						Result := l_value
-					end
-				end
-			end
-		end
-
-	elements_equals (a_session_id: STRING_32; an_id: STRING_32; an_other: STRING_32): BOOLEAN
-			--	GET /session/:sessionId/element/:id/equals/:other
-			--	Test if two element IDs refer to the same DOM element.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:id - ID of the element to route the command to.
-			--		:other - ID of the element to compare against.
-			--	Returns:
-			--		{boolean} Whether the two IDs refer to the same element.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If either the element refered to by :id or :other is no longer attached to the page's DOM.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.element_equals (a_session_id, an_id, an_other)
-				check_response (resp)
-				if not has_error then
-					if attached {JSON_BOOLEAN} resp.value as l_value then
-						Result := (l_value.item)
-					end
-				end
-			end
-		end
-
-	is_displayed (a_session_id: STRING_32; an_id: STRING_32): BOOLEAN
-			--	GET /session/:sessionId/element/:id/displayed
-			--	Determine if an element is currently displayed.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:id - ID of the element to route the command to.
-			--	Returns:
-			--		{boolean} Whether the element is displayed.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If the element referenced by :id is no longer attached to the page's DOM.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.is_displayed (a_session_id, an_id)
-				check_response (resp)
-				if not has_error then
-					if attached {JSON_BOOLEAN} resp.value as l_value then
-						Result := (l_value.item)
-					end
-				end
-			end
-		end
-
-	element_location (a_session_id: STRING_32; an_id: STRING_32): SE_POINT
-			--	GET /session/:sessionId/element/:id/location
-			--	Determine an element's location on the page. The point (0, 0) refers to the upper-left corner of the page.
-			-- 	The element's coordinates are returned as a JSON object with x and y properties.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:id - ID of the element to route the command to.
-			--	Returns:
-			--		{x:number, y:number} The X and Y coordinates for the element on the page.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If the element referenced by :id is no longer attached to the page's DOM.
-		local
-			resp: SE_RESPONSE
-		do
-			create Result
-			if commnad_executor.is_available then
-				resp := commnad_executor.element_location (a_session_id, an_id)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value and then attached {JSON_OBJECT} string_to_json (l_value) as l_json_object then
-						if attached l_json_object.item ("x") as l_x then
-							Result.set_x (l_x.representation.to_integer_32)
-						end
-						if attached l_json_object.item ("y") as l_y then
-							Result.set_y (l_y.representation.to_integer_32)
-						end
-					end
-				end
-			end
-		end
-
-	location_in_view (a_session_id: STRING_32; an_id: STRING_32): SE_POINT
-			--	GET /session/:sessionId/element/:id/location_in_view
-			--	Determine an element's location on the screen once it has been scrolled into view.
-			--	Note: This is considered an internal command and should only be used to determine an element's
-			-- 	location for correctly generating native events.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:id - ID of the element to route the command to.
-			--	Returns:
-			--		{x:number, y:number} The X and Y coordinates for the element.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If the element referenced by :id is no longer attached to the page's DOM.
-		local
-			resp: SE_RESPONSE
-		do
-			create Result
-			if commnad_executor.is_available then
-				resp := commnad_executor.location_in_view (a_session_id, an_id)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value and then attached {JSON_OBJECT} string_to_json (l_value) as l_json_object then
-						if attached l_json_object.item ("x") as l_x then
-							Result.set_x (l_x.representation.to_integer_32)
-						end
-						if attached l_json_object.item ("y") as l_y then
-							Result.set_y (l_y.representation.to_integer_32)
-						end
-					end
-				end
-			end
-		end
-
-	element_size (a_session_id: STRING_32; an_id: STRING_32): SE_DIMENSION
-			--	GET /session/:sessionId/element/:id/size
-			--	Determine an element's size in pixels. The size will be returned as a JSON object with width and height properties.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:id - ID of the element to route the command to.
-			--	Returns:
-			--		{width:number, height:number} The width and height of the element, in pixels.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If the element referenced by :id is no longer attached to the page's DOM.
-		local
-			resp: SE_RESPONSE
-		do
-			create Result
-			if commnad_executor.is_available then
-				resp := commnad_executor.element_size (a_session_id, an_id)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value and then attached {JSON_OBJECT} string_to_json (l_value) as l_json_object then
-						if attached l_json_object.item ("width") as l_width then
-							Result.set_width (l_width.representation.to_natural)
-						end
-						if attached l_json_object.item ("height") as l_height then
-							Result.set_height (l_height.representation.to_natural)
-						end
-					end
-				end
-			end
-		end
-
-	element_css_value (a_session_id: STRING_32; an_id: STRING_32; a_property_name: STRING_32): detachable STRING_32
-			--	GET /session/:sessionId/element/:id/css/:propertyName
-			--	Query the value of an element's computed CSS property. The CSS property to query should be specified using the CSS property name, not the JavaScript property name (e.g. background-color instead of backgroundColor).
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:id - ID of the element to route the command to.
-			--	Returns:
-			--		{string} The value of the specified CSS property.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-			--		StaleElementReference - If the element referenced by :id is no longer attached to the page's DOM.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.element_css_value (a_session_id, an_id, a_property_name)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value then
-						Result := l_value
-					end
-				end
-			end
-		end
-
-	retrieve_browser_orientation (a_session_id: STRING_32): detachable STRING_32
-			--	GET /session/:sessionId/orientation
-			--	Get the current browser orientation. The server should return a valid orientation value as defined in ScreenOrientation: {LANDSCAPE|PORTRAIT}.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{string} The current browser orientation corresponding to a value defined in ScreenOrientation: {LANDSCAPE|PORTRAIT}.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.retrieve_browser_orientation (a_session_id)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value then
-						Result := l_value
-					end
-				end
-			end
-				--ensure
-				--	 if not has_error, has_valid_orientation (LANDSCAPE|PORTRAIT)
-				-- not_has_error : not has_error implies has_valid_orientation ()
-		end
-
-	set_browser_orientation (a_session_id: STRING_32; orientation: STRING_32)
-			--	POST /session/:sessionId/orientation
-			--	Set the browser orientation. The orientation should be specified as defined in ScreenOrientation: {LANDSCAPE|PORTRAIT}.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		orientation - {string} The new browser orientation as defined in ScreenOrientation: {LANDSCAPE|PORTRAIT}.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		require
-			valid_orientation: orientation.is_case_insensitive_equal ("LANDSCAPE") or else orientation.is_case_insensitive_equal ("PORTRAIT")
-		local
-			resp: SE_RESPONSE
-			l_json: STRING_32
-		do
-			l_json := "[
-				{"orientation" : "$orientation"}
-			]"
-			if commnad_executor.is_available then
-				l_json.replace_substring_all ("$orientation", orientation)
-				resp := commnad_executor.set_browser_orientation (a_session_id, l_json)
-				check_response (resp)
-			end
-		end
-
-	retrieve_alert_text (a_session_id: STRING_32): detachable STRING_32
-			--	GET /session/:sessionId/alert_text
-			--	Gets the text of the currently displayed JavaScript alert(), confirm(), or prompt() dialog.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{string} The text of the currently displayed alert.
-			--	Potential Errors:
-			--		NoAlertPresent - If there is no alert displayed.
-		local
-			resp: SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.retrieve_alert_text (a_session_id)
-				check_response (resp)
-				if not has_error then
-					if attached resp.value as l_value then
-						Result := l_value
-					end
-				end
-			end
-		end
-
-	send_alert_text (a_session_id: STRING_32; text : STRING_32)
-			--	POST /session/:sessionId/alert_text
-			--	Sends keystrokes to a JavaScript prompt() dialog.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		text - {string} Keystrokes to send to the prompt() dialog.
-			--	Potential Errors:
-			--		NoAlertPresent - If there is no alert displayed.
-		local
-			resp : SE_RESPONSE
-			l_json : STRING_32
-		do
-			 l_json := "[
-			 { "text":"$text" }
-			 ]"
-
-			 if commnad_executor.is_available then
-			 	l_json.replace_substring_all ("$text", text)
-			 	resp := commnad_executor.send_alert_text (a_session_id, l_json)
-			 	check_response (resp)
-			 end
-		end
-
-	accept_alert (a_session_id: STRING_32)
-			--	POST /session/:sessionId/accept_alert
-			--	Accepts the currently displayed alert dialog. Usually, this is equivalent to clicking on the 'OK' button in the dialog.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Potential Errors:
-			--		NoAlertPresent - If there is no alert displayed.
-		local
-			resp : SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp :=  commnad_executor.accept_alert (a_session_id)
-				check_response (resp)
-			end
-		end
-
-	dismiss_alert (a_session_id: STRING_32)
-			--	POST /session/:sessionId/dismiss_alert
-			--	Dismisses the currently displayed alert dialog. For confirm() and prompt() dialogs, this is equivalent to clicking the 'Cancel' button. For alert() dialogs, this is equivalent to clicking the 'OK' button.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Potential Errors:
-			--		NoAlertPresent - If there is no alert displayed.
-		local
-			resp : SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp :=  commnad_executor.dismiss_alert (a_session_id)
-				check_response (resp)
-			end
-		end
-
-	move_to (a_session_id: STRING_32; web_element : WEB_ELEMENT; xoffset : NATURAL; yoffset:NATURAL)
-			--	POST /session/:sessionId/moveto
-			--	Move the mouse by an offset of the specificed element.
-			--  If no element is specified, the move is relative to the current mouse cursor.
-			--  If an element is provided but no offset, the mouse will be moved to the center of the element.
-			--  If the element is not visible, it will be scrolled into view.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		element - {string} Opaque ID assigned to the element to move to, as described in the WebElement JSON Object. If not specified or is null, the offset is relative to current position of the mouse.
-			--		xoffset - {number} X offset to move to, relative to the top-left corner of the element. If not specified, the mouse will move to the middle of the element.
-			--		yoffset - {number} Y offset to move to, relative to the top-left corner of the element. If not specified, the mouse will move to the middle of the element.
-		local
-			resp : SE_RESPONSE
-			l_json : STRING_32
-
-		do
-			l_json := "[
-				{ "element" : "$element",
-				  "yoffset" : $yoffset,
-				  "xoffset" : $xoffset	
-				}
-			]"
-			if commnad_executor.is_available then
-				l_json.replace_substring_all ("$element", web_element.element)
-				l_json.replace_substring_all ("$yoffset", yoffset.out)
-				l_json.replace_substring_all ("$xoffset", xoffset.out)
-				resp := commnad_executor.move_to (a_session_id, l_json)
-				check_response (resp)
-			end
-		end
-
-
-	modifier (a_session_id: STRING_32; data: STRING)
-			--	POST /session/:sessionId/modifier
-			-- Not documented
-			-- For info look
-			-- http://grepcode.com/file/repo1.maven.org/maven2/org.seleniumhq.selenium/selenium-remote-driver/2.0.0/org/openqa/selenium/remote/HttpCommandExecutor.java?av=h#HttpCommandExecutor
-		local
-			resp : SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.modifier (a_session_id, data)
-				check_response (resp)
-			end
-		end
-
-	click (a_session_id: STRING_32; button : SE_BUTTON )
-			--	POST /session/:sessionId/click
-			--	Click any mouse button (at the coordinates set by the last moveto command). Note that calling this command after calling buttondown and before calling button up (or any out-of-order interactions sequence) will yield undefined behaviour).
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		button - {number} Which button, enum: {LEFT = 0, MIDDLE = 1 , RIGHT = 2}. Defaults to the left mouse button if not specified.
-		local
-			resp : SE_RESPONSE
-			l_json : STRING_32
-		do
-			l_json := "[
-					{
-					"button" : $number
-				}
-			]"
-			if commnad_executor.is_available then
-				l_json.replace_substring_all ("$number", button.value.out)
-				resp := commnad_executor.click (a_session_id, l_json)
-				check_response (resp)
-			end
-		end
-
-	button_down (a_session_id: STRING_32; button : SE_BUTTON)
-			--	POST /session/:sessionId/buttondown
-			--	Click and hold the left mouse button (at the coordinates set by the last moveto command).
-			--  Note that the next mouse-related command that should follow is buttonup .
-			--  Any other mouse command (such as click or another call to buttondown) will yield undefined behaviour.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		button - {number} Which button, enum: {LEFT = 0, MIDDLE = 1 , RIGHT = 2}.
-			--		Defaults to the left mouse button if not specified.
-		local
-			resp : SE_RESPONSE
-			l_json : STRING_32
-		do
-			l_json := "[
-					{
-					"button" : $number
-				}
-			]"
-			if commnad_executor.is_available then
-				l_json.replace_substring_all ("$number", button.value.out)
-				resp := commnad_executor.button_down (a_session_id, l_json)
-				check_response (resp)
-			end
-		end
-
-	button_up (a_session_id: STRING_32; button : SE_BUTTON)
-			--	POST /session/:sessionId/buttonup
-			--	Releases the mouse button previously held (where the mouse is currently at). Must be called once for every buttondown command issued. See the note in click and buttondown about implications of out-of-order commands.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		button - {number} Which button, enum: {LEFT = 0, MIDDLE = 1 , RIGHT = 2}.
-			--		Defaults to the left mouse button if not specified.
-		local
-			resp : SE_RESPONSE
-			l_json : STRING_32
-		do
-			l_json := "[
-					{
-					"button" : $number
-				}
-			]"
-			if commnad_executor.is_available then
-				l_json.replace_substring_all ("$number", button.value.out)
-				resp := commnad_executor.button_up (a_session_id, l_json)
-				check_response (resp)
-			end
-		end
-	double_click (a_session_id: STRING_32)
-			--	POST /session/:sessionId/doubleclick
-			--	Double-clicks at the current mouse coordinates (set by moveto).
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-		local
-			resp : SE_RESPONSE
-		do
-			if commnad_executor.is_available then
-				resp := commnad_executor.double_click (a_session_id)
-				check_response (resp)
-			end
-		end
-
-	touch_click (a_session_id: STRING_32)
-			--	POST /session/:sessionId/touch/click
-			--	Single tap on the touch enabled device.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		element - {string} ID of the element to single tap on.
-		do
-		end
-
-	touch_down (a_session_id: STRING_32)
-			--	POST /session/:sessionId/touch/down
-			--	Finger down on the screen.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		x - {number} X coordinate on the screen.
-			--		y - {number} Y coordinate on the screen.
-		do
-		end
-
-	touch_up (a_session_id: STRING_32)
-			--	POST /session/:sessionId/touch/up
-			--	Finger up on the screen.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		x - {number} X coordinate on the screen.
-			--		y - {number} Y coordinate on the screen.
-		do
-		end
-
-	touch_move (a_session_id: STRING_32)
-			--	POST session/:sessionId/touch/move
-			--	Finger move on the screen.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		x - {number} X coordinate on the screen.
-			--		y - {number} Y coordinate on the screen.
-		do
-		end
-
-	start_touch_scroll (a_session_id: STRING_32)
-			--	POST session/:sessionId/touch/scroll
-			--	Scroll on the touch screen using finger based motion events. Use this command to start scrolling at a particular screen location.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		element - {string} ID of the element where the scroll starts.
-			--		xoffset - {number} The x offset in pixels to scroll by.
-			--		yoffset - {number} The y offset in pixels to scroll by.
-		do
-		end
-
-	touch_scroll (a_session: STRING_32)
-			--	POST session/:sessionId/touch/scroll
-			--	Scroll on the touch screen using finger based motion events. Use this command if you don't care where the scroll starts on the screen.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		xoffset - {number} The x offset in pixels to scrollby.
-			--		yoffset - {number} The y offset in pixels to scrollby.
-		do
-		end
-
-	touch_double_click (a_session_id: STRING_32)
-			--	POST session/:sessionId/touch/doubleclick
-			--	Double tap on the touch screen using finger motion events.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		element - {string} ID of the element to double tap on.
-		do
-		end
-
-	touch_long_click (a_session_id: STRING_32)
-			--	POST session/:sessionId/touch/longclick
-			--	Long press on the touch screen using finger motion events.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		element - {string} ID of the element to long press on.
-		do
-		end
-
-	start_touch_flick (a_session_id: STRING_32)
-			--	POST session/:sessionId/touch/flick
-			--	Flick on the touch screen using finger motion events. This flickcommand starts at a particulat screen location.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		element - {string} ID of the element where the flick starts.
-			--		xoffset - {number} The x offset in pixels to flick by.
-			--		yoffset - {number} The y offset in pixels to flick by.
-			--		speed - {number} The speed in pixels per seconds.
-		do
-		end
-
-	touch_flick (a_session_id: STRING_32)
-			--	POST session/:sessionId/touch/flick
-			--	Flick on the touch screen using finger motion events. Use this flick command if you don't care where the flick starts on the screen.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		xSpeed - {number} The x speed in pixels per second.
-			--		ySpeed - {number} The y speed in pixels per second.
-		do
-		end
-
-	retrieve_geo_location (a_session_id: STRING_32)
-			--	GET /session/:sessionId/location
-			--	Get the current geo location.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{latitude: number, longitude: number, altitude: number} The current geo location.
-		do
-		end
-
-	set_geo_location (a_session_id: STRING_32)
-			--	POST /session/:sessionId/location
-			--	Set the current geo location.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		location - {latitude: number, longitude: number, altitude: number} The new location.
-		do
-		end
-
-	retrieve_local_storage (a_session_id: STRING_32)
-			--	GET /session/:sessionId/local_storage
-			--	Get all keys of the storage.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{Array.<string>} The list of keys.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		do
-		end
-
-	set_location_storage (a_session_id: STRING_32)
-			--	POST /session/:sessionId/local_storage
-			--	Set the storage item for the given key.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		key - {string} The key to set.
-			--		value - {string} The value to set.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		do
-		end
-
-	delete_local_storage (a_session_id: STRING_32)
-			--	DELETE /session/:sessionId/local_storage
-			--	Clear the storage.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		do
-		end
-
-	retrieve_storage_by_key (a_session_id: STRING_32; a_key: STRING_32)
-			--	GET /session/:sessionId/local_storage/key/:key
-			--	Get the storage item for the given key.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:key - The key to get.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		do
-		end
-
-	delete_storage_by_key (a_session_id: STRING_32; a_key: STRING_32)
-			--	DELETE /session/:sessionId/local_storage/key/:key
-			--	Remove the storage item for the given key.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:key - The key to remove.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		do
-		end
-
-	local_storage_size (a_session_id: STRING_32)
-			--	GET /session/:sessionId/local_storage/size
-			--	Get the number of items in the storage.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{number} The number of items in the storage.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		do
-		end
-
-	session_storage_keys (a_session_id: STRING_32)
-			--	GET /session/:sessionId/session_storage
-			--	Get all keys of the storage.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{Array.<string>} The list of keys.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		do
-		end
-
-	set_session_storage (a_session_id: STRING_32)
-			--	POST /session/:sessionId/session_storage
-			--	Set the storage item for the given key.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		key - {string} The key to set.
-			--		value - {string} The value to set.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		do
-		end
-
-	delete_session_storage (a_session_id: STRING_32)
-			--	DELETE /session/:sessionId/session_storage
-			--	Clear the storage.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		do
-		end
-
-	retrive_storage_item_by_key (a_session_id: STRING_32; a_key: STRING_32)
-			--	GET /session/:sessionId/session_storage/key/:key
-			--	Get the storage item for the given key.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:key - The key to get.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		do
-		end
-
-	remove_storage_item_by_key (a_session_id: STRING_32; a_key: STRING_32)
-			--	DELETE /session/:sessionId/session_storage/key/:key
-			--	Remove the storage item for the given key.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--		:key - The key to remove.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		do
-		end
-
-	session_storage_size (a_session_id: STRING_32)
-			--	GET /session/:sessionId/session_storage/size
-			--	Get the number of items in the storage.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{number} The number of items in the storage.
-			--	Potential Errors:
-			--		NoSuchWindow - If the currently selected window has been closed.
-		do
-		end
-
-	log (a_session_id: STRING_32)
-			--	POST /session/:sessionId/log
-			--	Get the log for a given log type. Log buffer is reset after each request.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	JSON Parameters:
-			--		type - {string} The log type. This must be provided.
-			--	Returns:
-			--		{Array.<object>} The list of log entries.
-		do
-		end
-
-	available_log_types (a_session_id: STRING_32)
-			--	GET /session/:sessionId/log/types
-			--	Get available log types.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{Array.<string>} The list of available log types.
-		do
-		end
-
-	application_cache_status (a_session_id: STRING_32)
-			--	GET /session/:sessionId/application_cache/status
-			--	Get the status of the html5 application cache.
-			--	URL Parameters:
-			--		:sessionId - ID of the session to route the command to.
-			--	Returns:
-			--		{number} Status code for application cache: {UNCACHED = 0, IDLE = 1, CHECKING = 2, DOWNLOADING = 3, UPDATE_READY = 4, OBSOLETE = 5}
-		do
-		end
-
-feature -- Error Handling
-
-	check_response (a_response: SE_RESPONSE)
-			-- Check the answer given from the selenium server. If the response status shows an error
-			-- set has_error in True and let the description of the error in last_error
-			-- in other case set has_error in False and last_error in Void
-		do
-			if a_response.status /= 0 then
-					-- there was an error
-				has_error := true
-				last_error := error_handling (a_response.status)
-			else
-				has_error := false
-				last_error := Void
-			end
-		end
-
-feature {NONE} -- Implementation
-
-	initialize_executor
-		do
-			create commnad_executor.make (host)
-		end
-
-	host: STRING_32
-
-	desired_capabilities (capabilites: STRING_32): STRING_32
-		do
-			create Result.make_from_string (desired_capabilities_template)
-			Result.replace_substring_all ("$DESIRED_CAPABILITIES", capabilites)
-		end
-
-	desired_capabilities_template: STRING = "[
-					{
-			 	  	 "desiredCapabilities": $DESIRED_CAPABILITIES
-			 	  	}
-		]"
-
-	commnad_executor: COMMAND_EXECUTOR
-
-	new_session (value: STRING_32; to: STRING_32): detachable SE_SESSION
-		local
-			l_rep: STRING_32
-		do
-			if to.is_case_insensitive_equal ("session") then
-				if attached {JSON_OBJECT} string_to_json (value) as l_value then
-					if attached l_value.item ("sessionId") as ls and then attached l_value.item ("value") as lv and then attached json_to_se_capabilities (lv.representation) as lc then
-						l_rep := ls.representation
-						l_rep.replace_substring_all ("%"", "")
-						create Result.make (l_rep, lc)
-					end
-				end
-			elseif to.is_case_insensitive_equal ("sessions") then
-				if attached {JSON_OBJECT} string_to_json (value) as l_value then
-					if attached l_value.item ("id") as ls and then attached l_value.item ("capabilities") as lv and then attached json_to_se_capabilities (lv.representation) as lc then
-						l_rep := ls.representation
-						l_rep.replace_substring_all ("%"", "")
-						create Result.make (l_rep, lc)
-					end
-				end
-			end
-		end
-
-	error_handling (a_code: INTEGER_32): SE_ERROR
-			-- Inspect the code `a_code' and return the error
-		do
-			create Result.make (-1, "ErrorNotFound", "A9n unknown API error")
-			inspect a_code
-			when 6 then
-				create Result.make (6, "NoSuchDriver", "A session is either terminated or not started")
-			when 7 then
-				create Result.make (7, "NoSuchDriver", "An element could not be located on the page using the given search parameters.")
-			when 8 then
-				create Result.make (8, "NoSuchDriver", "A request to switch to a frame could not be satisfied because the frame could not be found.")
-			when 9 then
-				create Result.make (9, "UnknownCommand", "The requested resource could not be found, or a request was received using an HTTP method that is not supported by the mapped resource.")
-			when 10 then
-				create Result.make (10, "StaleElementReference", "An element command failed because the referenced element is no longer attached to the DOM.")
-			when 11 then
-				create Result.make (11, "ElementNotVisible", "An element command could not be completed because the element is not visible on the page.")
-			when 12 then
-				create Result.make (12, "InvalidElementState", "An element command could not be completed because the element is in an invalid state (e.g. attempting to click a disabled element).")
-			when 13 then
-				create Result.make (13, "UnknownError", "An unknown server-side error occurred while processing the command.")
-			when 15 then
-				create Result.make (15, "ElementIsNotSelectable", "An attempt was made to select an element that cannot be selected.")
-			when 17 then
-				create Result.make (17, "JavaScriptError", "An error occurred while executing user supplied JavaScript.")
-			when 19 then
-				create Result.make (19, "XPathLookupError", "An error occurred while searching for an element by XPath.")
-			when 21 then
-				create Result.make (21, "Timeout", "An operation did not complete before its timeout expired.")
-			when 23 then
-				create Result.make (23, "NoSuchWindow", "A request to switch to a different window could not be satisfied because the window could not be found.")
-			when 24 then
-				create Result.make (24, "InvalidCookieDomain", "An illegal attempt was made to set a cookie under a different domain than the current page.")
-			when 25 then
-				create Result.make (25, "UnableToSetCookie", "A request to set a cookie's value could not be satisfied.")
-			when 26 then
-				create Result.make (26, "InvalidCookieDomain", "A modal dialog was open, blocking this operation")
-			when 27 then
-				create Result.make (27, "UnableToSetCookie", "An attempt was made to operate on a modal dialog when one was not open.")
-			when 28 then
-				create Result.make (28, "ScriptTimeout", "A script did not complete before its timeout expired.")
-			when 29 then
-				create Result.make (29, "InvalidElementCoordinates", "The coordinates provided to an interactions operation are invalid.")
-			when 30 then
-				create Result.make (30, "IMENotAvailable", "IME was not available.")
-			when 31 then
-				create Result.make (31, "IMEEngineActivationFailed", "An IME engine could not be started.")
-			when 32 then
-				create Result.make (32, "InvalidSelector", "Argument was an invalid selector (e.g. XPath/CSS).")
-			when 33 then
-				create Result.make (33, "SessionNotCreatedException", "A new session could not be created.")
-			when 34 then
-				create Result.make (34, "MoveTargetOutOfBounds", "Target provided for a move action is out of bounds.")
-			end
-		end
-
-end
diff --git a/library/test/selenium/src/protocol/se_json_wire_protocol_commands.e b/library/test/selenium/src/protocol/se_json_wire_protocol_commands.e
deleted file mode 100644
index 574beb4d..00000000
--- a/library/test/selenium/src/protocol/se_json_wire_protocol_commands.e
+++ /dev/null
@@ -1,675 +0,0 @@
-note
-	description: "Summary description for {SE_JSON_WIRE_PROTOCOL_COMMANDS}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_JSON_WIRE_PROTOCOL_COMMANDS
-
-feature
-
-	cmd_ping: STRING = ""
-			--GET	/ expected a 200 ok
-
-	cmd_status: STRING = "status"
-			--GET	/status	 Query the server's current status.
-
-	cmd_new_session: STRING = "session"
-			--POST	/session	 Create a new session.
-
-	cmd_sessions: STRING = "sessions"
-			--GET	/sessions	 Returns a list of the currently active sessions.
-
-	cmd_session_by_id_tmpl: STRING = "session/$id"
-
-	cmd_session_by_id (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_by_id_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_timeouts_tmpl: STRING_32 = "[
-			session/$id/timeouts
-		]"
-
-	cmd_session_timeouts (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_timeouts_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_timeouts_async_script_tmpl: STRING = "session/$id/timeouts/async_script"
-
-	cmd_session_timeouts_async_script (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_timeouts_async_script_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_timeouts_implicit_wait_tmpl: STRING = "session/$id/timeouts/implicit_wait"
-
-	cmd_session_timeouts_implicit_wait (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_timeouts_implicit_wait_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_window_handle_tmpl: STRING = "session/$id/window_handle"
-
-	cmd_session_window_handle (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_window_handle_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_window_handles_tmpl: STRING = "session/$id/window_handles"
-
-	cmd_session_window_handles (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_window_handles_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_url_tmpl: STRING = "session/$id/url"
-
-	cmd_session_url (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_url_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_forward_tmpl: STRING = "session/$id/forward"
-
-	cmd_session_forward (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_forward_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_back_tmpl: STRING = "session/$id/back"
-
-	cmd_session_back (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_back_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_refresh_tmpl: STRING = "session/$id/refresh"
-
-	cmd_session_refresh (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_refresh_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_execute_tmpl: STRING = "session/$id/execute"
-
-	cmd_session_execute (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_execute_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_execute_async_tmpl: STRING = "session/$id/execute_async"
-
-	cmd_session_execute_async (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_execute_async_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_screenshot_tmpl: STRING = "session/$id/screenshot"
-
-	cmd_session_screenshot (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_screenshot_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_ime_available_engines_tmpl: STRING = "session/$id/ime/available_engines"
-
-	cmd_session_ime_available (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_ime_available_engines_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_ime_active_engine_tmpl: STRING = "session/$id/ime/active_engine"
-
-	cmd_session_ime_active_engine (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_ime_active_engine_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_ime_activated_tmpl: STRING = "session/$id/ime/activated"
-
-	cmd_session_ime_activated (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_ime_activated_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_ime_deactivate_tmpl: STRING = "session/$id/ime/deactivate"
-
-	cmd_session_ime_deactivate (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_ime_deactivate_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_ime_activate_tmpl: STRING = "session/$id/ime/activate"
-
-	cmd_session_ime_activate (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_ime_activate_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-		--POST	/session/:sessionId/frame	 Change focus to another frame on the page.
-
-	cmd_session_frame_tmpl: STRING = "session/$id/frame"
-
-	cmd_session_frame (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_frame_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-
-	cmd_session_window_tmpl: STRING = "session/$id/window"
-
-	cmd_session_window (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_window_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_window_size_tmpl: STRING = "session/$id/window/$windowHandle/size"
-
-	cmd_session_window_size (id: STRING_32; window_handle: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_window_size_tmpl)
-			Result.replace_substring_all ("$id", id)
-			Result.replace_substring_all ("$windowHandle", window_handle)
-		end
-
-	cmd_session_window_position_tmpl: STRING = "session/$id/window/$windowHandle/position"
-
-	cmd_session_window_position (id: STRING_32; window_handle: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_window_position_tmpl)
-			Result.replace_substring_all ("$id", id)
-			Result.replace_substring_all ("$windowHandle", window_handle)
-		end
-
-	cmd_session_window_maximize_tmpl: STRING = "session/$id/window/$windowHandle/maximize"
-
-	cmd_session_window_maximize (id: STRING_32; window_handle: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_window_maximize_tmpl)
-			Result.replace_substring_all ("$id", id)
-			Result.replace_substring_all ("$windowHandle", window_handle)
-		end
-
-	cmd_session_cookie_tmpl: STRING = "session/$id/cookie"
-
-	cmd_session_cookie (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_cookie_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_cookie_delte_tmpl: STRING = "session/$id/cookie/$name"
-
-	cmd_session_cookie_delete (id: STRING_32; name: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_cookie_delte_tmpl)
-			Result.replace_substring_all ("$id", id)
-			Result.replace_substring_all ("$name", name)
-		end
-
-	cmd_session_source_tmpl: STRING = "session/$id/source"
-
-	cmd_session_source (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_source_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_title_tmpl: STRING = "session/$id/title"
-
-	cmd_session_title (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_title_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_element_tmpl: STRING = "session/$id/element"
-
-	cmd_session_element (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_elements_tmpl: STRING = "session/$id/elements"
-
-	cmd_session_elements (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_elements_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_element_active_tmpl: STRING = "session/$id/element/active"
-
-	cmd_session_element_active (id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_active_tmpl)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_element_id_tmpl: STRING = "session/$sessionId/element/$id"
-
-	cmd_session_element_id (sessionId: STRING_32; id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_id_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-		end
-
-		--GET		/session/:sessionId/element/:id	 Describe the identified element.
-
-	cmd_session_element_id_element_tmpl: STRING = "session/$sessionId/element/$id/element"
-
-	cmd_session_element_id_element (sessionId: STRING_32; id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_id_element_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_element_id_elements_tmpl: STRING = "session/$sessionId/element/$id/elements"
-
-	cmd_session_element_id_elements (sessionId: STRING_32; id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_id_elements_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_element_click_tmpl: STRING = "session/$sessionId/element/$id/click"
-
-	cmd_session_element_click (sessionId: STRING_32; id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_click_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_element_submit_tmpl: STRING = "session/$sessionId/element/$id/submit"
-
-	cmd_session_element_submit (sessionId: STRING_32; id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_submit_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_element_text_tmpl: STRING = "session/$sessionId/element/$id/text"
-
-	cmd_session_element_text (sessionId: STRING_32; id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_text_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_element_event_tmpl: STRING = "session/$sessionId/element/$id/value"
-
-	cmd_session_element_event (sessionId: STRING_32; id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_event_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_keys_tmpl: STRING = "session/$sessionId/keys"
-
-	cmd_session_keys (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_keys_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_element_name_tmpl: STRING = "session/$sessionId/element/$id/name"
-
-	cmd_session_element_name (sessionId: STRING_32; id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_name_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_element_clear_tmpl: STRING = "session/$sessionId/element/$id/clear"
-
-	cmd_session_element_clear (sessionId: STRING_32; id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_name_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_element_selected_tmpl: STRING = "session/$sessionId/element/$id/selected"
-
-	cmd_session_element_selected (sessionId: STRING_32; id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_selected_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_element_enabled_tmpl: STRING = "session/$sessionId/element/$id/enabled"
-
-	cmd_session_element_enabled (sessionId: STRING_32; id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_enabled_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_element_attribute_name_tmpl: STRING = "session/$sessionId/element/$id/attribute/$name"
-
-	cmd_session_element_attribute_name (sessionId: STRING_32; id: STRING_32; name: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_attribute_name_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-			Result.replace_substring_all ("$name", name)
-		end
-
-	cmd_session_element_equals_tmpl: STRING = "session/$sessionId/element/$id/equals/$other"
-
-	cmd_session_element_equals (sessionId: STRING_32; id: STRING_32; other: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_equals_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-			Result.replace_substring_all ("$other", other)
-		end
-
-	cmd_session_element_displayed_tmpl: STRING = "session/$sessionId/element/$id/displayed"
-
-	cmd_session_element_displayed (sessionId: STRING_32; id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_displayed_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_element_location_tmpl: STRING = "session/$sessionId/element/$id/location"
-
-	cmd_session_element_location (sessionId: STRING_32; id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_location_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_element_location_in_view_tmpl: STRING = "session/$sessionId/element/$id/location_in_view"
-
-	cmd_session_element_location_in_view (sessionId: STRING_32; id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_location_in_view_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_element_size_tmpl: STRING = "session/$sessionId/element/$id/size"
-
-	cmd_session_element_size (sessionId: STRING_32; id: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_size_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-		end
-
-	cmd_session_element_css_value_tmpl: STRING = "session/$sessionId/element/$id/css/$propertyName"
-
-	cmd_session_element_css_value (sessionId: STRING_32; id: STRING_32; property_name: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_element_css_value_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$id", id)
-			Result.replace_substring_all ("$propertyName", property_name)
-		end
-
-	cmd_session_browser_orientation_tmpl: STRING = "session/$sessionId/orientation"
-
-	cmd_session_browser_orientation (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_browser_orientation_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_alert_text_tmpl: STRING = "session/$sessionId/alert_text"
-
-	cmd_session_alert_text (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_alert_text_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_accept_alert_tmpl: STRING = "session/$sessionId/accept_alert"
-
-	cmd_session_accept_alert (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_accept_alert_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_dismiss_alert_tmpl: STRING = "session/$sessionId/dismiss_alert"
-
-	cmd_session_dismiss_alert (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_dismiss_alert_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_move_to_tmpl: STRING = "session/$sessionId/move_to"
-
-	cmd_session_move_to (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_move_to_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-
-	cmd_session_modifier_tmpl : STRING = "/session/$sessionId/modifier"
-	cmd_session_modifier (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_modifier_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-
-	cmd_session_click_tmpl: STRING = "session/$sessionId/click"
-
-	cmd_session_click (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_click_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_buttondown_tmpl: STRING = "session/$sessionId/buttondown"
-
-	cmd_session_buttondown (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_buttondown_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_buttonup_tmpl: STRING = "session/$sessionId/buttonup"
-
-	cmd_session_buttonup (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_buttonup_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_doubleclick_tmpl: STRING = "session/$sessionId/doubleclick"
-
-	cmd_session_double_click (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_doubleclick_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_touch_click_tmpl: STRING = "session/$sessionId/touch/click"
-
-	cmd_session_touch_click (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_touch_click_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_touch_down_tmpl: STRING = "session/$sessionId/touch/down"
-
-	cmd_session_touch_down (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_touch_down_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_touch_up_tmpl: STRING = "session/$sessionId/touch/up"
-
-	cmd_session_touch_up (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_touch_up_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_touch_move_tmpl: STRING = "session/$sessionId/touch/move"
-
-	cmd_session_touch_move (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_touch_move_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_touch_scroll_tmpl: STRING = "session/$sessionId/touch/scroll"
-
-	cmd_session_touch_scroll (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_touch_scroll_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_touch_double_click_tmpl: STRING = "session/$sessionId/touch/doubleclick"
-
-	cmd_session_touch_double_click (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_touch_double_click_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_touch_long_click_tmpl: STRING = "session/$sessionId/touch/longclick"
-
-	cmd_session_touch_long_click (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_touch_long_click_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_touch_flick_tmpl: STRING = "session/$sessionId/touch/flick"
-
-	cmd_session_touch_flick (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_touch_flick_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_geo_location_tmpl: STRING = "session/$sessionId/location"
-
-	cmd_session_geo_location (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_geo_location_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_local_storage_tmpl: STRING = "session/$sessionId/local_storage"
-
-	cmd_session_local_storage (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_local_storage_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_local_storage_key_tmpl: STRING = "session/$sessionId/local_storage/key/$key"
-
-	cmd_session_local_storage_key (sessionId: STRING_32; key : STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_local_storage_key_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$key", key)
-		end
-
-	cmd_session_local_storage_size_tmpl: STRING = "session/$sessionId/local_storage/size"
-
-	cmd_session_local_storage_size (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_local_storage_size_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_storage_tmpl: STRING = "session/$sessionId/session_storage"
-
-	cmd_session_storage (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_storage_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_storage_key_tmpl: STRING = "session/$sessionId/session_storage/key/$key"
-
-	cmd_session_storage_key (sessionId: STRING_32; key : STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_storage_key_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-			Result.replace_substring_all ("$key", key)
-		end
-
-	cmd_session_storage_size_tmpl: STRING = "session/$sessionId/session_storage/size"
-
-	cmd_session_storage_size (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_storage_size_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_log_tmpl: STRING = "session/$sessionId/log"
-
-	cmd_session_log (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_log_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_log_types_tmpl: STRING = "session/$sessionId/log/types"
-
-	cmd_session_log_types (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_log_types_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-	cmd_session_application_cache_tmpl: STRING = "session/$sessionId/application_cache/status"
-
-	cmd_session_application_cache (sessionId: STRING_32): STRING_32
-		do
-			create Result.make_from_string (cmd_session_application_cache_tmpl)
-			Result.replace_substring_all ("$sessionId", sessionId)
-		end
-
-end
diff --git a/library/test/selenium/src/response/se_build_value.e b/library/test/selenium/src/response/se_build_value.e
deleted file mode 100644
index f0cd4dfd..00000000
--- a/library/test/selenium/src/response/se_build_value.e
+++ /dev/null
@@ -1,63 +0,0 @@
-note
-	description: "Object that describe the build information from the current server"
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_BUILD_VALUE
-
-create
-	make,
-	make_empty
-
-feature{NONE} -- Initialization
-	make ( a_version : STRING_32; a_revision: STRING_32; a_time: STRING_32)
-		do
-			set_version(a_version)
-			set_revision (a_revision)
-			set_time (a_time)
-		end
-
-	make_empty
-		do
-
-		end
-
-feature -- Access
-	version : detachable STRING_32
-		-- A generic release label (i.e. "2.0rc3")
-
-	revision : detachable STRING_32
-		--The revision of the local source control client from which the server was built
-
-	time : detachable STRING_32
-		--A timestamp from when the server was built.
-
-feature -- Change Element
-	set_version (a_version : STRING_32)
-		-- Set version with `a_version'
-		do
-			version := a_version
-		ensure
-			version_assigned : version ~  a_version
-		end
-
-
-	set_revision (a_revision : STRING_32)
-		-- Set revision with `a_revision'
-		do
-			revision := a_revision
-		ensure
-			revision_assigned : revision ~  a_revision
-		end
-
-
-	set_time (a_time : STRING_32)
-		-- Set time with `a_time'
-		do
-			time := a_time
-		ensure
-			time_assigned : time ~  a_time
-		end
-end
diff --git a/library/test/selenium/src/response/se_java_value.e b/library/test/selenium/src/response/se_java_value.e
deleted file mode 100644
index 3daffd14..00000000
--- a/library/test/selenium/src/response/se_java_value.e
+++ /dev/null
@@ -1,36 +0,0 @@
-note
-	description: "Object that describe the current verion of Java"
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_JAVA_VALUE
-
-create
-	make,
-	make_empty
-
-feature -- Initialization
-	make ( a_version : STRING_32)
-		do
-			set_version (a_version)
-		end
-	make_empty
-		do
-
-		end
-
-feature	-- Access	
-	version : detachable STRING_32
-		-- current Java version
-
-feature -- Change Element
-	set_version (a_version: STRING_32)
-			--Set version with `a_version'
-		do
-			version := a_version
-		ensure
-			version_assigned : version ~ a_version
-		end
-end
diff --git a/library/test/selenium/src/response/se_os_value.e b/library/test/selenium/src/response/se_os_value.e
deleted file mode 100644
index 13d44843..00000000
--- a/library/test/selenium/src/response/se_os_value.e
+++ /dev/null
@@ -1,64 +0,0 @@
-note
-	description: "Object that describe the OS information from the current server"
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_OS_VALUE
-
-create
-	make,
-	make_empty
-
-
-feature{NONE} -- Initialization
-	make ( an_architecture : STRING_32; a_name: STRING_32; a_version: STRING_32)
-		do
-			set_version(a_version)
-			set_name (a_name)
-			set_architecture (an_architecture)
-		end
-
-	make_empty
-		do
-
-		end
-
-feature -- Access
-	architecture : detachable STRING_32
-		-- The current system architecture.
-
-	name : detachable STRING_32
-		-- The name of the operating system the server is currently running on: "windows", "linux", etc.
-
-	version : detachable STRING_32
-		--The operating system version.
-
-feature -- Change Element
-	set_version (a_version : STRING_32)
-		-- Set version with `a_version'
-		do
-			version := a_version
-		ensure
-			version_assigned : version ~  a_version
-		end
-
-
-	set_name (a_name : STRING_32)
-		-- Set name with `a_name'
-		do
-			name := a_name
-		ensure
-			name_assigned : name ~  a_name
-		end
-
-
-	set_architecture (an_architecture : STRING_32)
-		-- Set architecture with `an_architecture'
-		do
-			architecture := an_architecture
-		ensure
-			architecture_assigned : architecture ~  an_architecture
-		end
-end
diff --git a/library/test/selenium/src/response/se_response.e b/library/test/selenium/src/response/se_response.e
deleted file mode 100644
index 8e444e63..00000000
--- a/library/test/selenium/src/response/se_response.e
+++ /dev/null
@@ -1,61 +0,0 @@
-note
-	description: "Object that represent Command responses from Seleniun JSONWireProtocol"
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-	EIS: "name=SELINIUM", "protocol=JsonWireProtocol", "src=https://code.google.com/p/selenium/wiki/JsonWireProtocol#Responses"
-
-class
-	SE_RESPONSE
-
-create
-	make,
-	make_empty
-
-feature -- Initialization
-	make (a_session_id : STRING_32; a_status: INTEGER_32; a_value : STRING_32)
-		do
-			session_id := a_session_id
-			status := a_status
-			value := a_value
-		end
-
-	make_empty
-		do
-
-		end
-feature -- Access
-	session_id : detachable STRING_32
-		-- An opaque handle used by the server to determine where to route session-specific commands.
-		-- This ID should be included in all future session-commands in place of the :sessionId path segment variable.
-
-	status : INTEGER_32
-		-- A status code summarizing the result of the command. A non-zero value indicates that the command failed.
-
-	value : detachable STRING_32
-		-- The response JSON value.
-
-feature -- Change Element
-	set_session_id ( a_session_id : STRING_32)
-		do
-			session_id := a_session_id
-		end
-
-	set_status ( a_status : INTEGER_32)
-		do
-			status := a_status
-		end
-
-	set_value (a_value : STRING_32)
-		do
-			value := a_value
-		end
-
-feature -- JSON Response
-	json_response : detachable STRING_32
-
-	set_json_response  ( a_response : STRING_32)
-		do
-			json_response := a_response
-		end
-end
diff --git a/library/test/selenium/src/response/se_status.e b/library/test/selenium/src/response/se_status.e
deleted file mode 100644
index bbc002bf..00000000
--- a/library/test/selenium/src/response/se_status.e
+++ /dev/null
@@ -1,98 +0,0 @@
-note
-	description: "Object representation of JSON response describing the state of the server"
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-	EIS: "name=status", "protocol=http", "src=https://code.google.com/p/selenium/wiki/JsonWireProtocol#GET_/status"
-
-class
-	SE_STATUS
-inherit
-	ANY
-		redefine
-			out
-		end
-
-feature -- Access
-	status: INTEGER_32
-    session_id: detachable STRING_32
-	state: detachable STRING_32
-    class_name: detachable STRING_32
-    value : detachable  SE_STATUS_VALUE
-    hash_code: detachable STRING_32
-
-feature -- Change Element
-	set_status (a_status : INTEGER_32)
-		do
-			status := a_status
-		end
-
-	set_session_id (a_session_id : STRING_32)
-		do
-			session_id := a_session_id
-		end
-
-	set_state (a_state : STRING_32)
-		do
-			state := a_state
-		end
-
-	set_class_name (a_class_name : STRING_32)
-		do
-			class_name := a_class_name
-		end
-
-	set_value (a_value : SE_STATUS_VALUE)
-		do
-			value := a_value
-		end
-
-	set_hash_code (a_hash_code : STRING_32)
-		do
-			hash_code := a_hash_code
-		end
-
-	out : STRING
-		do
-			create Result.make_from_string ("Response : ")
-			Result.append ("[Status:")
-			Result.append (status.out)
-			Result.append ("]")
-			Result.append (" ")
-
-			if attached session_id as l_session_id then
-				Result.append ("[SessionId:")
-				Result.append (l_session_id.out)
-				Result.append ("]")
-				Result.append (" ")
-			end
-			if attached state as l_state then
-				Result.append ("[State:")
-				Result.append (l_state.out)
-				Result.append ("]")
-				Result.append (" ")
-			end
-			if attached value as l_value then
-				Result.append ("[value:")
-				Result.append (l_value.out)
-				Result.append ("]")
-				Result.append (" ")
-			end
-
-			if attached class_name as l_class_name then
-				Result.append ("[Class Name:")
-				Result.append (l_class_name.out)
-				Result.append ("]")
-				Result.append (" ")
-			end
-
-			if attached hash_code as l_hash_code then
-				Result.append ("[hCode:")
-				Result.append (l_hash_code.out)
-				Result.append ("]")
-				Result.append (" ")
-			end
-
-
-		end
-end
diff --git a/library/test/selenium/src/response/se_status_value.e b/library/test/selenium/src/response/se_status_value.e
deleted file mode 100644
index 8a785740..00000000
--- a/library/test/selenium/src/response/se_status_value.e
+++ /dev/null
@@ -1,53 +0,0 @@
-note
-	description: "Summary description for {STATUS}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_STATUS_VALUE
-create
-	make,
-	make_empty
-
-feature {NONE}-- Initialization
-	make (an_os_value : SE_OS_VALUE; a_java_value :SE_JAVA_VALUE; a_build_value: SE_BUILD_VALUE )
-		do
-			set_os_value (an_os_value)
-			set_java_value (a_java_value)
-			set_build_value (a_build_value)
-		end
-
-	make_empty
-		do
-
-		end
-feature -- Access
-	os_value: detachable SE_OS_VALUE
-
-	java_value : detachable SE_JAVA_VALUE
-
-	build_value : detachable SE_BUILD_VALUE
-
-feature -- Change Element
-	set_os_value (an_os_value : SE_OS_VALUE)
-		-- Set os_value with `an_os_value'
-		do
-			os_value := an_os_value
-		end
-
-	set_build_value (a_build_value : SE_BUILD_VALUE)
-		-- Set build_value with `a_build_value'
-		do
-				build_value := a_build_value
-		end
-
-	set_java_value (a_java_value : SE_JAVA_VALUE)
-		-- Set java_value with `a_java_value'
-		do
-
-			java_value := a_java_value
-		end
-
-
-end
diff --git a/library/test/selenium/src/se_button.e b/library/test/selenium/src/se_button.e
deleted file mode 100644
index 51bb8d38..00000000
--- a/library/test/selenium/src/se_button.e
+++ /dev/null
@@ -1,95 +0,0 @@
-note
-	description: "Summary description for {SE_BUTTON}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_BUTTON
-inherit {NONE}
-	ENUM
-
-
-create
-	make_left,
-	make_middle,
-	make_right
-
-
-feature -- Initialization
-
-	make_left
-		do
-			set_left
-		end
-
-	make_middle
-		do
-			set_middle
-		end
-
-	make_right
-		do
-			set_right
-		end
-
-
-feature -- Access
-
-	is_valid_value (a_value: INTEGER): BOOLEAN
-			-- Can `a_value' be used in a `set_value' feature call?
-		do
-			Result := (a_value = left_value) or else
-					  (a_value = middle_value) or else
-					  (a_value = right_value)
-		end
-
-feature -- Element Change
-
-	set_left
-			do
-				value :=  left_value
-			end
-
-	set_middle
-		do
-			value := middle_value
-		end
-
-	set_right
-		do
-			value := right_value
-		end
-
-
-feature -- Query
-
-	is_left : BOOLEAN
-			-- is the current value left?
-		do
-			Result := (value = left_value)
-		end
-
-	is_middle  : BOOLEAN
-		-- is the current value middle?
-		do
-			Result := (value = middle_value)
-		end
-
-
-	is_right  : BOOLEAN
-		-- is the current value right?
-		do
-			Result := (value = right_value)
-		end
-
-
-feature  {NONE} -- Implementation
---	{LEFT = 0, MIDDLE = 1 , RIGHT = 2}
-	left_value :INTEGER = 0
-	middle_value : INTEGER = 1
-	right_value : INTEGER = 2
-end
-
-
-
diff --git a/library/test/selenium/src/se_by.e b/library/test/selenium/src/se_by.e
deleted file mode 100644
index 84c6b63d..00000000
--- a/library/test/selenium/src/se_by.e
+++ /dev/null
@@ -1,155 +0,0 @@
-note
-	description: "Objects used to locate elements within a document"
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_BY
-inherit
-	JSON_HELPER
-	SE_LOCATOR_STRATEGY_CONSTANTS
-
-create default_create
-
-feature -- Access
-	id ( value : STRING_32 ) : STRING_32
-			-- return a STRING representing a JSON
-			-- with strategy by `id' and value `value'
-			--	{ "using" : "id", "value":value }
-		do
-			create Result.make_from_string (json_template)
-			Result.replace_substring_all ("$using", se_id)
-			Result.replace_substring_all ("$value", value)
-		ensure
-			has_id_strategy : has_correct_stategy (Result, se_id)
-		end
-
-	name ( value : STRING_32 ) : STRING_32
-			-- return a STRING representing a JSON
-			-- with strategy by `name' and value `value'
-			--	{ "using" : "name", "value":value }
-		do
-			create Result.make_from_string (json_template)
-			Result.replace_substring_all ("$using", se_name)
-			Result.replace_substring_all ("$value", value)
-		ensure
-			has_name_strategy : has_correct_stategy (Result, se_name)
-		end
-
-	class_name ( value : STRING_32 ) : STRING_32
-			-- return a STRING representing a JSON
-			-- with strategy by `class name' and value `value'
-			--	{ "using" : "class name", "value":value }
-		do
-			create Result.make_from_string (json_template)
-			Result.replace_substring_all ("$using", se_class_name)
-			Result.replace_substring_all ("$value", value)
-		ensure
-			has_class_name_strategy : has_correct_stategy (Result, se_class_name)
-		end
-
-
-	css_selector ( value : STRING_32 ) : STRING_32
-			-- return a STRING representing a JSON
-			-- with strategy by `css selector' and value `value'
-			--	{ "using" : "css selector", "value":value }
-		do
-			create Result.make_from_string (json_template)
-			Result.replace_substring_all ("$using", se_css_selector)
-			Result.replace_substring_all ("$value", value)
-		ensure
-			has_css_selector_strategy : has_correct_stategy (Result, se_css_selector)
-		end
-
-	link_text ( value : STRING_32 ) : STRING_32
-			-- return a STRING representing a JSON
-			-- with strategy by `link text' and value `value'
-			--	{ "using" : "link text", "value":value }
-		do
-			create Result.make_from_string (json_template)
-			Result.replace_substring_all ("$using", se_link_text)
-			Result.replace_substring_all ("$value", value)
-		ensure
-			has_link_text_strategy : has_correct_stategy (Result, se_link_text)
-		end
-
-
-	partial_link_text ( value : STRING_32 ) : STRING_32
-			-- return a STRING representing a JSON
-			-- with strategy by `partial link text' and value `value'
-			--	{ "using" : "partial link text", "value":value }
-		do
-			create Result.make_from_string (json_template)
-			Result.replace_substring_all ("$using", se_partial_link_text)
-			Result.replace_substring_all ("$value", value)
-		ensure
-			has_partial_link_text_strategy : has_correct_stategy (Result, se_partial_link_text)
-		end
-
-	tag_name ( value : STRING_32 ) : STRING_32
-			-- return a STRING representing a JSON
-			-- with strategy by `tag name' and value `value'
-			--	{ "using" : "tag name", "value":value }
-		do
-			create Result.make_from_string (json_template)
-			Result.replace_substring_all ("$using", se_tag_name)
-			Result.replace_substring_all ("$value", value)
-		ensure
-			has_tag_name_strategy : has_correct_stategy (Result, se_tag_name)
-		end
-
-
-	xpath ( value : STRING_32 ) : STRING_32
-			-- return a STRING representing a JSON
-			-- with strategy by `xpath' and value `value'
-			--	{ "using" : "xpath", "value":value }
-		do
-			create Result.make_from_string (json_template)
-			Result.replace_substring_all ("$using", se_xpath)
-			Result.replace_substring_all ("$value", value)
-		ensure
-			has_xpath_strategy : has_correct_stategy (Result, se_xpath)
-		end
-
-
-feature -- Query
-	has_correct_stategy (data: STRING_32; strategy : STRING_32) : BOOLEAN
-		do
-			if attached {JSON_OBJECT} string_to_json(data) as l_json then
-				if attached l_json.item ("using") as l_using then
-					Result := (l_using.representation).is_case_insensitive_equal_general ("%""+strategy+"%"")
-				end
-			end
-		end
-
-
-	is_valid_strategy (data : STRING_32) : BOOLEAN
-		-- if data is using on of the following strategies
-		--		class name
-		--		css selector
-		--		id	 				
-		--		name	 			
-		--		link text	 		
-		--		partial link text	
-		--		tag name	 		
-		--		xpath
-		-- return True in othercase False
-		do
-			Result := has_correct_stategy (data, se_class_name) or else
-					has_correct_stategy (data, se_css_selector) or else
-					has_correct_stategy (data, se_id) or else
-					has_correct_stategy (data, se_link_text) or else
-					has_correct_stategy (data, se_name) or else
-					has_correct_stategy (data, se_partial_link_text) or else
-					has_correct_stategy (data, se_tag_name) or else
-					has_correct_stategy (data, se_xpath)
-		end
-
-
-feature {NONE} -- Implementation
-	json_template : String = "[
-				{"using" :"$using",
-				"value" : "$value"}
-			]"
-end
diff --git a/library/test/selenium/src/se_capabilities.e b/library/test/selenium/src/se_capabilities.e
deleted file mode 100644
index e551b1b4..00000000
--- a/library/test/selenium/src/se_capabilities.e
+++ /dev/null
@@ -1,149 +0,0 @@
-note
-	description: "Object that describe available features a client can submit in a WebDriver session. Not all server implementations will support every WebDriver feature."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-	EIS: "name=Capabilities", "protocl=http", "src=https://code.google.com/p/selenium/wiki/JsonWireProtocol#Desired_Capabilities"
-class
-	SE_CAPABILITIES
-
-create
-	make
-feature -- Initialization
-	make
-		-- defaults initializations
-		do
-		end
-
-feature -- Access
-	browser_name : detachable STRING_32
-		--The name of the browser being used; should be one of {chrome|firefox|htmlunit|internet explorer|iphone}
-
-	version : detachable STRING_32
-		-- The browser version, or the empty string if unknown.
-
-	platform : detachable STRING_32
-		-- A key specifying which platform the browser is running on. This value should be one of {WINDOWS|XP|VISTA|MAC|LINUX|UNIX}.
-		-- When requesting a new session, the client may specify ANY to indicate any available platform may be used.
-
-	is_javascript_enabled : BOOLEAN
-		--Whether the session supports executing user supplied JavaScript in the context of the current page.
-
-	takes_screenshot : BOOLEAN
-		--Whether the session supports taking screenshots of the current page.
-
-	handles_alerts : BOOLEAN
-		--Whether the session can interact with modal popups, such as window.alert and window.confirm.
-
-	is_database_enabled : BOOLEAN
-		--Whether the session can interact database storage.
-
-	is_location_context_enabled : BOOLEAN
-		--Whether the session can set and query the browser's location context.
-
-	is_application_cache_enabled : BOOLEAN
-		--Whether the session can interact with the application cache.
-
-	is_browser_connection_enabled : BOOLEAN
-		--Whether the session can query for the browser's connectivity and disable it if desired.
-
-	is_css_selectors_enabled : BOOLEAN
-		--Whether the session supports CSS selectors when searching for elements.
-
-	is_web_storage_enabled : BOOLEAN
-		--Whether the session supports interactions with storage objects.
-
-	is_rotatable : BOOLEAN
-		--Whether the session can rotate the current page's current layout between portrait and landscape orientations (only applies to mobile platforms).
-
-	accept_ssl_certs : BOOLEAN
-		--Whether the session should accept all SSL certs by default.
-
-	native_events : BOOLEAN
-		--Whether the session is capable of generating native events when simulating user input.
-
-	proxy : detachable WEB_DRIVER_PROXY
-		--Details of any proxy to use. If no proxy is specified, whatever the system's current or default state is used. The format is specified under Proxy JSON Object.
-
-feature -- Change Elemenet
-	set_browser_name (a_browser_name : STRING_32)
-		do
-			browser_name := a_browser_name
-		end
-
-	set_version (a_version : STRING_32)
-		do
-			version := a_version
-		end
-
-	set_platform (a_platform : STRING_32)
-		do
-			platform := a_platform
-		end
-
-	set_javascript_enabled ( value : BOOLEAN)
-		do
-			is_javascript_enabled := value
-		end
-
-	set_takes_screenshot (value : BOOLEAN)
-		do
-			takes_screenshot := value
-		end
-
-	set_handles_alerts ( value: BOOLEAN)
-		do
-			handles_alerts := value
-		end
-
-	set_database_enabled (value : BOOLEAN)
-		do
-			is_database_enabled := value
-		end
-
-	set_location_context_enabled (value:BOOLEAN)
-		do
-			is_location_context_enabled := value
-		end
-
-	set_application_cache_enabled (value : BOOLEAN)
-		do
-			is_application_cache_enabled := value
-		end
-
-	set_browser_connection_enabled (value : BOOLEAN)
-		do
-			is_browser_connection_enabled := value
-		end
-
-	set_css_selectors_enabled (value : BOOLEAN)
-		do
-			is_css_selectors_enabled := value
-		end
-
-	set_web_storage_enabled (value : BOOLEAN)
-		do
-			is_web_storage_enabled := value
-		end
-
-	set_rotatable (value : BOOLEAN)
-		do
-			is_rotatable := value
-		end
-
-	set_accept_ssl_certs (value : BOOLEAN)
-		do
-			accept_ssl_certs := value
-		end
-
-	set_native_events ( value : BOOLEAN)
-		do
-			native_events := value
-		end
-
-	set_proxy ( a_proxy : WEB_DRIVER_PROXY)
-		do
-			proxy := a_proxy
-		end
-
-end
diff --git a/library/test/selenium/src/se_cookie.e b/library/test/selenium/src/se_cookie.e
deleted file mode 100644
index f15402f3..00000000
--- a/library/test/selenium/src/se_cookie.e
+++ /dev/null
@@ -1,96 +0,0 @@
-note
-	description: "Objects that describe a cookie. When returning Cookie objects, the server should only omit an optional field if it is incapable of providing the information."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_COOKIE
-
-create
-	default_create, make_with_values
-
-feature -- Initialization
-
-	make_with_values (a_name: STRING_32; a_value: STRING_32; a_path: STRING_32; a_domain: STRING_32)
-		do
-			set_name (a_name)
-			set_path (a_path)
-			set_value (a_value)
-			set_domain (a_domain)
-		end
-
-feature -- Access
-
-	name: detachable STRING_32
-			--The name of the cookie.
-
-	value: detachable STRING_32
-			--	The cookie value.
-
-	path: detachable STRING_32
-			--(Optional) The cookie path
-
-	domain: detachable STRING_32
-			--(Optional) The domain the cookie is visible to.
-
-	is_secure: BOOLEAN
-			--(Optional) Whether the cookie is a secure cookie
-
-	expiry: NATURAL_32
-			-- (Optional) When the cookie expires, specified in seconds since midnight, January 1, 1970 UTC.1
-
-feature -- Change Element
-
-	set_name (a_name: STRING_32)
-		do
-			name := a_name
-		ensure
-			assigned_name: name ~ a_name
-		end
-
-	set_value (a_value: STRING_32)
-		do
-			value := a_value
-		ensure
-			assigned_value: value ~ a_value
-		end
-
-	set_path (a_path: STRING_32)
-		do
-			path := a_path
-		ensure
-			assigned_path: path ~ a_path
-		end
-
-	set_domain (a_domain: STRING_32)
-		do
-			domain := a_domain
-		ensure
-			assigned_domain: domain ~ a_domain
-		end
-
-	secure
-			-- set the cookie as secure
-		do
-			is_secure := True
-		ensure
-			is_secure: is_secure
-		end
-
-	insecure
-			-- set the cookie as insecure
-		do
-			is_secure := False
-		ensure
-			is_not_secure: not is_secure
-		end
-
-	set_expiry (an_expiry: NATURAL)
-		do
-			expiry := an_expiry
-		ensure
-			assigned_expiry: expiry ~ an_expiry
-		end
-
-end
diff --git a/library/test/selenium/src/se_dimension.e b/library/test/selenium/src/se_dimension.e
deleted file mode 100644
index 216105af..00000000
--- a/library/test/selenium/src/se_dimension.e
+++ /dev/null
@@ -1,44 +0,0 @@
-note
-	description: "Summary description for {SE_DIMENSION}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_DIMENSION
-create
-	default_create,
-	make_with_values
-
-feature -- Initialization
-
-	make_with_values (a_width : NATURAL_32; a_height : NATURAL_32)
-		do
-			set_width (a_width)
-			set_height (a_height)
-		end
-
-feature -- Access
-	--{ width: number, height: number} The size of the window.
-	width : NATURAL_32
-	height : NATURAL_32
-		-- The width and height of the element, in pixels.
-
-
-feature -- Change Element
-	set_width (a_width : NATURAL_32)
-			--Set width to `a_width'
-		do
-			width := a_width
-		ensure
-			width_set : width = a_width
-		end
-
-	set_height (a_height : NATURAL_32)
-		do
-			height := a_height
-		end
-
-
-
-end
diff --git a/library/test/selenium/src/se_error.e b/library/test/selenium/src/se_error.e
deleted file mode 100644
index dbae5da5..00000000
--- a/library/test/selenium/src/se_error.e
+++ /dev/null
@@ -1,33 +0,0 @@
-note
-	description: "Summary description for {SE_ERROR}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_ERROR
-
-create
-	make
-feature -- Initialization
-	make (a_code : INTEGER_32; a_summary : STRING_32; a_detail : STRING_32)
-		do
-			code := a_code
-			summary := a_summary
-			detail := a_detail
-		end
-
-feature -- Access
-	code : INTEGER_32
-	summary : STRING_32
-	detail : STRING_32
-
-feature -- Report
-	full_message : STRING_32
-		-- Full error description
-	do
-		create Result.make_empty
-		Result.append ("code : " + code.out + "  -  summary:" + summary + "  -  detail:" + detail)
-	end
-
-end
diff --git a/library/test/selenium/src/se_key_constants.e b/library/test/selenium/src/se_key_constants.e
deleted file mode 100644
index 124c3bf9..00000000
--- a/library/test/selenium/src/se_key_constants.e
+++ /dev/null
@@ -1,128 +0,0 @@
-note
-	description: "Summary description for {SE_KEY_CONSTANTS}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_KEY_CONSTANTS
-
-feature -- Access
-
-	Null_key: STRING_32 = "\uE000"
-
-	Cancel_key: STRING_32 = "\uE001"
-
-	Help_key: STRING_32 = "\uE002"
-
-	Backspace_key: STRING_32 = "\uE003"
-
-	Tab_key: STRING_32 = "\uE004"
-
-	Clear_key: STRING_32 = "\uE005"
-
-	Return_key: STRING_32 = "\uE006"
-
-	Enter_key: STRING_32 = "\uE007"
-
-	Shift_key: STRING_32 = "\uE008"
-
-	Control_key: STRING_32 = "\uE009"
-
-	Alt_key: STRING_32 = "\uE00A"
-
-	Pause_key: STRING_32 = "\uE00B"
-
-	Escape_key: STRING_32 = "\uE00C"
-
-	Space_key: STRING_32 = "\uE00D"
-
-	PageUp_key: STRING_32 = "\uE00E"
-
-	PageDown_key: STRING_32 = "\uE00F"
-
-	End_key: STRING_32 = "\uE010"
-
-	Home_key: STRING_32 = "\uE011"
-
-	LeftArrow_key: STRING_32 = "\uE012"
-
-	UpArrow_key: STRING_32 = "\uE013"
-
-	RightArrow_key: STRING_32 = "\uE014"
-
-	DownArrow_key: STRING_32 = "\uE015"
-
-	Insert_key: STRING_32 = "\uE016"
-
-	Delete_key: STRING_32 = "\uE017"
-
-	Semicolon_key: STRING_32 = "\uE018"
-
-	Equals_key: STRING_32 = "\uE019"
-
-	Numpad0_key: STRING_32 = "\uE01A"
-
-	Numpad1_key: STRING_32 = "\uE01B"
-
-	Numpad2_key: STRING_32 = "\uE01C"
-
-	Numpad3_key: STRING_32 = "\uE01D"
-
-	Numpad4_key: STRING_32 = "\uE01E"
-
-	Numpad5_key: STRING_32 = "\uE01F"
-
-	Numpad6_key: STRING_32 = "\uE020"
-
-	Numpad7_key: STRING_32 = "\uE021"
-
-	Numpad8_key: STRING_32 = "\uE022"
-
-	Numpad9_key: STRING_32 = "\uE023"
-
-	Multiply_key: STRING_32 = "\uE024"
-
-	Add_key: STRING_32 = "\uE025"
-
-	Separator_key: STRING_32 = "\uE026"
-
-	Subtract_key: STRING_32 = "\uE027"
-
-	Decimal_key: STRING_32 = "\uE028"
-
-	Divide_key: STRING_32 = "\uE029"
-
-	F1_key: STRING_32 = "\uE031"
-
-	F2_key: STRING_32 = "\uE032"
-
-	F3_key: STRING_32 = "\uE033"
-
-	F4_key: STRING_32 = "\uE034"
-
-	F5_key: STRING_32 = "\uE035"
-
-	F6_key: STRING_32 = "\uE036"
-
-	F7_key: STRING_32 = "\uE037"
-
-	F8_key: STRING_32 = "\uE038"
-
-	F9_key: STRING_32 = "\uE039"
-
-	F10_key: STRING_32 = "\uE03A"
-
-	F11_key: STRING_32 = "\uE03B"
-
-	F12_key: STRING_32 = "\uE03C"
-
-	Command_key: STRING_32 = "\uE03D"
-
-	Meta_key: STRING_32 = "\uE03D"
-
-	keys: ARRAY [STRING_32]
-		once
-			Result := <<Null_key, Cancel_key, Help_key, Backspace_key, Tab_key, Clear_key, Return_key, Enter_key, Shift_key, Control_key, Alt_key, Pause_key, Escape_key, Space_key, PageUp_key, PageDown_key, End_key, Home_key, LeftArrow_key, UpArrow_key, RightArrow_key, DownArrow_key, Insert_key, Delete_key, Semicolon_key, Equals_key, Numpad0_key, Numpad1_key, Numpad2_key, Numpad3_key, Numpad4_key, Numpad5_key, Numpad6_key, Numpad7_key, Numpad8_key, Numpad9_key, Multiply_key, Add_key, Separator_key, Subtract_key, Decimal_key, Divide_key, F1_key, F2_key, F3_key, F4_key, F5_key, F6_key, F7_key, F8_key, F9_key, F10_key, F11_key, F12_key, Command_key, Meta_key>>
-		end
-end
diff --git a/library/test/selenium/src/se_key_stroke.e b/library/test/selenium/src/se_key_stroke.e
deleted file mode 100644
index 6bbf75d3..00000000
--- a/library/test/selenium/src/se_key_stroke.e
+++ /dev/null
@@ -1,44 +0,0 @@
-note
-	description: "Summary description for {SE_KEY_STROKE}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_KEY_STROKE
-
-inherit
-
-	SE_KEY_CONSTANTS
-
-create
-	make
-
-feature {NONE} -- Initialization
-
-	make (a_key: STRING_32)
-		require
-			is_valid: keys.has (a_key)
-		do
-			set_key (a_key)
-		ensure
-		end
-
-feature -- Access
-
-	key: STRING_32
-			-- current key
-
-feature -- Change Element
-
-	set_key (a_key: STRING_32)
-			--Set `key' to `a_key'
-		require
-			is_valid: keys.has (a_key)
-		do
-			key := a_key
-		ensure
-			key_set: key = a_key
-		end
-
-end
diff --git a/library/test/selenium/src/se_keyboard.e b/library/test/selenium/src/se_keyboard.e
deleted file mode 100644
index 1f834376..00000000
--- a/library/test/selenium/src/se_keyboard.e
+++ /dev/null
@@ -1,63 +0,0 @@
-note
-	description: "Objects representing basic keyboards operations"
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_KEYBOARD
-
-create
-	make
-feature {NONE} -- Initialization
-	make ( a_web_driver : like driver)
-			-- Create an object se_keyboard with his driver
-		do
-			driver := a_web_driver
-		ensure
-			web_driver_set : driver = a_web_driver
-		end
-
-feature --Access
-	send_keys  (keys : ARRAY[STRING_32])
-		do
-			if attached driver.active_element as l_active_element then
-				l_active_element.send_keys (keys)
-			end
-		end
-
-	press_key ( key : SE_KEY_STROKE)
-		local
-			l_data : STRING_32
-		do
-			create l_data.make_from_string (json_template)
-			l_data.replace_substring_all ("$value", key.key)
-			l_data.replace_substring_all ("$boolean", "True")
-			if attached driver.session as l_session then
-				driver.api.modifier (l_session.session_id, l_data)
-			end
-		end
-
-	release_key ( key : SE_KEY_STROKE)
-		local
-			l_data : STRING_32
-		do
-			create l_data.make_from_string (json_template)
-			l_data.replace_substring_all ("$value", key.key)
-			l_data.replace_substring_all ("$boolean", "False")
-			if attached driver.session as l_session then
-				driver.api.modifier (l_session.session_id, l_data )
-			end
-		end
-
-
-
-feature {NONE} -- Implementation
-	driver : WEB_DRIVER
-		-- web_driver
-
-	json_template : String = "[
-				{"value" :"$value",
-				"isdown" : $boolean}
-			]"
-end
diff --git a/library/test/selenium/src/se_locator_strategy_constants.e b/library/test/selenium/src/se_locator_strategy_constants.e
deleted file mode 100644
index 86465de4..00000000
--- a/library/test/selenium/src/se_locator_strategy_constants.e
+++ /dev/null
@@ -1,28 +0,0 @@
-note
-	description: "Summary description for {SE_LOCATOR_STRATEGY_CONSTANTS}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-deferred class
-	 SE_LOCATOR_STRATEGY_CONSTANTS
-
-feature -- Constants
-	se_class_name : STRING_32 = "class name"
-
-	se_css_selector : STRING_32 = "css selector"
-
-	se_id : STRING_32 = "id"
-
-	se_name : STRING_32 = "name"
-
-	se_link_text : STRING_32 = "link text"
-
-	se_partial_link_text : STRING_32 = "partial link text"
-
-	se_tag_name : STRING_32 = "tag name"
-
-	se_xpath : STRING_32 = "xpath"
-
-
-end
diff --git a/library/test/selenium/src/se_mouse.e b/library/test/selenium/src/se_mouse.e
deleted file mode 100644
index 86966c06..00000000
--- a/library/test/selenium/src/se_mouse.e
+++ /dev/null
@@ -1,11 +0,0 @@
-note
-
	description: "Summary description for {SE_MOUSE}."
-
	author: ""
-
	date: "$Date$"
-
	revision: "$Revision$"
-
-
class
-
	SE_MOUSE
-
-
end
-
\ No newline at end of file
diff --git a/library/test/selenium/src/se_point.e b/library/test/selenium/src/se_point.e
deleted file mode 100644
index fc360760..00000000
--- a/library/test/selenium/src/se_point.e
+++ /dev/null
@@ -1,41 +0,0 @@
-note
-	description: "Summary description for {SE_POINT}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_POINT
-
-create
-	default_create,
-	make_with_values
-
-feature -- Initialization
-
-	make_with_values (new_x : INTEGER_32; new_y : INTEGER_32)
-		do
-			set_x (new_x)
-			set_y (new_y)
-		end
-
-feature -- Access
-
-	x : INTEGER_32
-	y : INTEGER_32
-
-		-- The X and Y coordinates for the element.
-
-feature -- Change Element
-
-	set_x (an_x : INTEGER_32)
-		do
-			x := an_x
-		end
-
-	set_y (an_y : INTEGER_32)
-		do
-			y := an_y
-		end
-
-end
diff --git a/library/test/selenium/src/se_screen_orientation.e b/library/test/selenium/src/se_screen_orientation.e
deleted file mode 100644
index ce84afdd..00000000
--- a/library/test/selenium/src/se_screen_orientation.e
+++ /dev/null
@@ -1,12 +0,0 @@
-note
-	description: "Summary description for {SE_SCREEN_ORIENTATION}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_SCREEN_ORIENTATION
-
-
--- {LANDSCAPE|PORTRAIT}
-end
diff --git a/library/test/selenium/src/se_session.e b/library/test/selenium/src/se_session.e
deleted file mode 100644
index 66ed2fce..00000000
--- a/library/test/selenium/src/se_session.e
+++ /dev/null
@@ -1,27 +0,0 @@
-note
-	description: "Object that represent an active session"
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_SESSION
-
-create
-	make
-feature -- Initializaton
-	make (a_session_id : STRING_32; a_capabilities: SE_CAPABILITIES)
-		do
-			session_id := a_session_id
-			capabilities := a_capabilities
-		end
-
-feature -- Access
-
-	session_id : STRING_32
-		-- The session id.
-
-	capabilities : SE_CAPABILITIES
-		-- An object describing the session's capabilities.
-
-end
diff --git a/library/test/selenium/src/se_timeout_type.e b/library/test/selenium/src/se_timeout_type.e
deleted file mode 100644
index 82deb5d0..00000000
--- a/library/test/selenium/src/se_timeout_type.e
+++ /dev/null
@@ -1,46 +0,0 @@
-note
-	description: "Summary description for {SE_TIMEOUT_TYPE}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	SE_TIMEOUT_TYPE
-
--- TODO add contracts to validate the timeout types.
-create
-	make,
-	make_empty
-
-feature -- Initialization
-	make (a_type : STRING_32; a_ms : INTEGER_32)
-		do
-			set_type (a_type)
-			set_ms (a_ms)
-		end
-
-	make_empty
-		do
-
-		end
-
-feature -- Access
-	type : detachable STRING_32
-		-- The type of operation to set the timeout for.
-		-- Valid values are: "script" for script timeouts,
-		--					 "implicit" for modifying the implicit wait timeout and
-		--					 "page load" for setting a page load timeout.
-	ms : INTEGER_32
-		-- The amount of time, in milliseconds, that time-limited commands are permitted to run.
-
-feature -- Change Element
-	set_type (a_type : STRING_32)
-		do
-			type := a_type
-		end
-
-	set_ms (a_ms : INTEGER_32)
-		do
-			ms := a_ms
-		end
-end
diff --git a/library/test/selenium/src/web_driver.e b/library/test/selenium/src/web_driver.e
deleted file mode 100644
index 0f77efdf..00000000
--- a/library/test/selenium/src/web_driver.e
+++ /dev/null
@@ -1,486 +0,0 @@
-note
-	description: "Objects that represent a Web Browser"
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	WEB_DRIVER
-
-inherit
-
-	EXCEPTIONS
-
-create
-	make, make_with_host
-
-feature -- Initialization
-
-	make
-		do
-			create api.make
-		end
-
-	make_with_host (a_host: STRING)
-		do
-			create api.make_with_host (a_host)
-		end
-
-feature -- Initialize Session
-
-	start_session_firefox
-		local
-			l_capabilities: SE_CAPABILITIES
-		do
-			create l_capabilities.make
-			l_capabilities.set_browser_name ("firefox")
-			session := api.create_session_with_desired_capabilities (l_capabilities)
-		end
-
-	start_session_firefox_with_desired_capabilities (a_desired_capabilities: SE_CAPABILITIES)
-		require
-			browser_name_firefox: attached a_desired_capabilities.browser_name as l_browser_name and then l_browser_name ~ "firefox"
-		do
-			session := api.create_session_with_desired_capabilities (a_desired_capabilities)
-		end
-
-	start_session_chrome
-		local
-			l_capabilities: SE_CAPABILITIES
-			env: EXECUTION_ENVIRONMENT
-			retried: BOOLEAN
-		do
-			create l_capabilities.make
-			l_capabilities.set_browser_name ("chrome")
-			if not retried then
-				session := api.create_session_with_desired_capabilities (l_capabilities)
-				if not is_session_active then
-					raise ("Session not active")
-				end
-			else
-				session := api.create_session_with_desired_capabilities (l_capabilities)
-			end
-		rescue
-			retried := true
-			create env
-			env.sleep (1000)
-			retry
-		end
-
-	start_session_chrome_with_desired_capabilities (a_desired_capabilities: SE_CAPABILITIES)
-		require
-			browser_name_chrome: attached a_desired_capabilities.browser_name as l_browser_name and then l_browser_name ~ "chrome"
-		local
-			env: EXECUTION_ENVIRONMENT
-			retried: BOOLEAN
-		do
-			if not retried then
-				session := api.create_session_with_desired_capabilities (a_desired_capabilities)
-				if not is_session_active then
-					raise ("Session not active")
-				end
-			else
-				session := api.create_session_with_desired_capabilities (a_desired_capabilities)
-			end
-		rescue
-			retried := true
-			create env
-			env.sleep (1000)
-			retry
-		end
-
-	start_session_ie
-		local
-			l_capabilities: SE_CAPABILITIES
-		do
-			create l_capabilities.make
-			l_capabilities.set_browser_name ("internet explorer")
-			session := api.create_session_with_desired_capabilities (l_capabilities)
-		end
-
-	start_session_ie_with_desired_capabilities (a_desired_capabilities: SE_CAPABILITIES)
-		require
-			browser_name_chrome: attached a_desired_capabilities.browser_name as l_browser_name and then l_browser_name ~ "internet explorer"
-		do
-			session := api.create_session_with_desired_capabilities (a_desired_capabilities)
-		end
-
-		--|TODO add create session with desired and required capabilities
-		--|     add other drivers.
-		--|     think about pre and postconditions
-
-feature -- Query
-
-	is_session_active: BOOLEAN
-			-- exist a valid session?
-		do
-			Result := attached session
-		end
-
-feature -- Ime Handler
-
-	activate_engine (engine: STRING_32)
-			--	Make an engines that is available (appears on the list returned by getAvailableEngines) active.
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				api.ime_activate (l_session.session_id, engine)
-			end
-		end
-
-	deactivate
-			--	De-activates the currently-active IME engine.
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				api.ime_deactivate (l_session.session_id)
-			end
-		end
-
-	available_engines: detachable LIST [STRING_32]
-			-- List all available engines on the machine. To use an engine, it has to be present in this list.
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				Result := api.ime_available_engines (l_session.session_id)
-			end
-		end
-
-	is_activated: BOOLEAN
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				Result := api.ime_activated (l_session.session_id)
-			end
-		end
-
-feature -- Navigation
-
-	back
-			-- Navigate backwards in the browser history, if possible.
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				api.back (l_session.session_id)
-			end
-		end
-
-	forward
-			-- Navigate forwards in the browser history, if possible.
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				api.forward (l_session.session_id)
-			end
-		end
-
-	refresh
-			--
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				api.refresh (l_session.session_id)
-			end
-		end
-
-	to_url (an_url: STRING_32)
-			-- Navigate to a new URL.
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				api.navigate_to_url (l_session.session_id, an_url)
-			end
-		end
-
-feature -- Options
-	-- Stuff you would do in a browser menu
-
-	add_cookie (cookie: SE_COOKIE)
-			-- Set a cookie. If the cookie path is not specified, it should be set to "/".
-			-- Likewise, if the domain is omitted, it should default to the current page's domain.
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				api.set_cookie (l_session.session_id, cookie)
-			end
-		end
-
-	delete_all_cookies
-			-- Delete all cookies visible to the current page.
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				api.delete_cookies (l_session.session_id)
-			end
-		end
-
-	delete_cookie (cookie: SE_COOKIE)
-			-- Delete the cookie with the given name.
-			-- This command should be a no-op if there is no such cookie visible to the current page.
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session and then attached cookie.name as l_name then
-				api.delete_cookie_by_name (l_session.session_id, l_name)
-			end
-		end
-
-	get_cookies: detachable LIST [SE_COOKIE]
-			-- Retrieve all cookies visible to the current page.
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				Result := api.retrieve_cookies (l_session.session_id)
-			end
-		end
-
-	get_cookie (name: STRING_32): detachable SE_COOKIE
-			-- Get a cookie with a given name
-		require
-			exist_session: is_session_active
-		local
-			found: BOOLEAN
-		do
-			if attached session as l_session then
-				if attached api.retrieve_cookies (l_session.session_id) as l_list then
-					from
-						l_list.start
-					until
-						l_list.after or found
-					loop
-						if attached l_list.item.name as l_name and then l_name.is_case_insensitive_equal (name) then
-							found := true
-							Result := l_list.item
-						end
-						l_list.forth
-					end
-				end
-			end
-		end
-
-feature -- Target Locator
-
-	active_element: detachable WEB_ELEMENT
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				Result := api.element_active (l_session.session_id)
-			end
-		end
-
-	default_content
-			-- The server switch to the page's default content.
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				api.frame (l_session.session_id, Void)
-			end
-		end
-
-	frame_by_index (index: INTEGER)
-			-- Select a frame by index `index'
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				api.frame (l_session.session_id, index.out)
-			end
-		end
-
-	frame_by_name (name: STRING_32)
-			-- Select a frame by name `name'
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				api.frame (l_session.session_id, name)
-			end
-		end
-
-	frame_by_web_element (element: WEB_ELEMENT)
-			-- Select a frame by name `name'
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				api.frame (l_session.session_id, element.element)
-			end
-		end
-
-	window (name: STRING_32)
-			-- Change focus to another window.
-			-- The window to change focus to may be specified by its server assigned window handle, or by the value of its name attribute.
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				api.change_focus_window (l_session.session_id, name)
-			end
-		end
-
-feature -- Window
-
-	window_position: SE_POINT
-			-- Get the position of the current window.
-		require
-			exist_session: is_session_active
-		do
-			create Result
-			if attached session as l_session then
-				Result := api.window_position (l_session.session_id, "current")
-			end
-		end
-
-	window_size: SE_DIMENSION
-			--Get the size of the current window.
-		require
-			exist_session: is_session_active
-		do
-			create Result
-			if attached session as l_session then
-				Result := api.size_window (l_session.session_id, "current")
-			end
-		end
-
-	window_maximize
-			--Maximizes the current window if it is not already maximized
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				api.window_maximize (l_session.session_id, "current")
-			end
-		end
-
-	set_window_position (target_position: SE_POINT)
-			-- Set the position of the current window.
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				api.change_window_position (l_session.session_id, "current", target_position.x, target_position.y)
-			end
-		end
-
-	set_window_size (target_size: SE_DIMENSION)
-			--Set the size of the current window.
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				api.change_size_window (l_session.session_id, "current", target_size.width, target_size.height)
-			end
-		end
-
-feature -- Common
-
-	window_close
-			--Close the current window, quitting the browser if it's the last window currently open.
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				api.close_window (l_session.session_id)
-			end
-		end
-
-	find_element (by: STRING_32): detachable WEB_ELEMENT
-			-- Find the first WebElement using the given strategy.
-		require
-			exist_session: is_session_active
-			valid_strategy: (create {SE_BY}).is_valid_strategy (by)
-		do
-			if attached session as l_session then
-				Result := api.search_element (l_session.session_id, by)
-			end
-		end
-
-	find_elements (by: STRING_32): detachable LIST [WEB_ELEMENT]
-			-- Find all elements within the current page using the given mechanism..
-		require
-			exist_session: is_session_active
-			valid_strategy: (create {SE_BY}).is_valid_strategy (by)
-		do
-			if attached session as l_session then
-				Result := api.search_elements (l_session.session_id, by)
-			end
-		end
-
-	get_current_url: detachable STRING_32
-			-- Retrieve the URL of the current page.
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				Result := api.retrieve_url (l_session.session_id)
-			end
-		end
-
-	get_page_source: detachable STRING_32
-			-- Get the current page source.
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				Result := api.page_source (l_session.session_id)
-			end
-		end
-
-	get_page_tile: detachable STRING_32
-			--Get the current page title
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				Result := api.page_title (l_session.session_id)
-			end
-		end
-
-	get_window_handle: detachable STRING_32
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				Result := api.retrieve_window_handle (l_session.session_id)
-			end
-		end
-
-	get_window_handles: detachable LIST [STRING_32]
-		require
-			exist_session: is_session_active
-		do
-			if attached session as l_session then
-				Result := api.retrieve_window_handles (l_session.session_id)
-			end
-		end
-
-feature {WEB_DRIVER, WEB_DRIVER_WAIT}
-
-	session_wait (duration: INTEGER_64)
-		do
-			if attached session as l_session then
-				api.set_session_timeouts_async_script (l_session.session_id, duration.as_integer_32)
-			end
-		end
-
-feature {SE_KEYBOARD} -- Implementation
-
-	session: detachable SE_SESSION
-
-	status: BOOLEAN
-	api: SE_JSON_WIRE_PROTOCOL
-
-end
diff --git a/library/test/selenium/src/web_driver_log.e b/library/test/selenium/src/web_driver_log.e
deleted file mode 100644
index 1c2924c9..00000000
--- a/library/test/selenium/src/web_driver_log.e
+++ /dev/null
@@ -1,26 +0,0 @@
-note
-	description: "Object describing a log entry"
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	WEB_DRIVER_LOG
-feature
-
-	timestamp : NATURAL_32
-		--The timestamp of the entry.
-
-	level : detachable STRING_32
-		--The log level of the entry, for example, "INFO" (see log levels).	
-		--ALL	 All log messages. Used for fetching of logs and configuration of logging.
-		--DEBUG	 Messages for debugging.
-		--INFO	 Messages with user information.
-		--WARNING	 Messages corresponding to non-critical problems.
-		--SEVERE	 Messages corresponding to critical errors.
-		--OFF	 No log messages. Used for configuration of logging.
-
-	message : detachable STRING_32
-		--The log message.
-
-end
diff --git a/library/test/selenium/src/web_driver_proxy.e b/library/test/selenium/src/web_driver_proxy.e
deleted file mode 100644
index 1aacaca8..00000000
--- a/library/test/selenium/src/web_driver_proxy.e
+++ /dev/null
@@ -1,47 +0,0 @@
-note
-	description: "A JSON object describing a Proxy configuration."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	WEB_DRIVER_PROXY
-create
-	make
-
-feature -- Initialization
-	make (a_proxy_type : STRING_32)
-		do
-			set_proxy_type(a_proxy_type)
-		end
-feature -- Access
-
-	proxy_type:	STRING_32
-		--(Required) The type of proxy being used.
-		--Possible values are:
-		--		direct - A direct connection -
-		--		no proxy in use,
-		--		manual - Manual proxy settings configured,
-		--      e.g. setting a proxy for HTTP, a proxy for FTP, etc,
-		--		pac - Proxy autoconfiguration from a URL),
-		--		autodetect (proxy autodetection, probably with WPAD,
-		--		system - Use system settings
-
-	proxy_auto_config_url : detachable STRING_32
-		--(Required if proxyType == pac, Ignored otherwise)
-		-- Specifies the URL to be used for proxy autoconfiguration. Expected format example: http://hostname.com:1234/pacfile
-
-	ftp_proxy : detachable STRING_32
-	http_proxy: detachable STRING_32
-	ssl_Proxy : detachable STRING_32
-		--(Optional, Ignored if proxyType != manual) Specifies the proxies to be used for FTP, HTTP and HTTPS requests respectively.
-		--Behaviour is undefined if a request is made, where the proxy for the particular protocol is undefined, if proxyType is manual.
-		--Expected format example: hostname.com:1234
-
-
-feature -- Element Change
-	set_proxy_type (a_proxy_type : STRING_32)
-		do
-			proxy_type := a_proxy_type
-		end
-end
diff --git a/library/test/selenium/src/web_driver_wait.e b/library/test/selenium/src/web_driver_wait.e
deleted file mode 100644
index a182f46a..00000000
--- a/library/test/selenium/src/web_driver_wait.e
+++ /dev/null
@@ -1,61 +0,0 @@
-note
-	description: "Summary description for {WEB_DRIVER_WAIT}."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	WEB_DRIVER_WAIT
-inherit
-	SHARED_EXECUTION_ENVIRONMENT
-create
-	make
-feature {NONE} -- Initialization
-	make ( driver : like web_driver; a_duration : INTEGER_64)
-		do
-			web_driver := driver
-			duration := a_duration
-			initialize
-		ensure
-			driver_set : driver = web_driver
-			duration_set : duration = a_duration
-		end
-
-feature -- Access
-	-- create another feature to accept a predicate
-	until_when (condition : PREDICATE[ANY, TUPLE])
-		--Evaluate the condition until it's true or timing out .
-		local
-			found : BOOLEAN
-			l_time1, l_time2 : TIME
-			l_duration : TIME_DURATION
-		do
-
-			create l_time1.make_now
-			create l_duration.make_by_seconds (duration.as_integer_32)
-
-			from
-				create l_time2.make_now
-				if condition.item([]) then
-					found := True
-				end
-			until
-				found or
-				l_time2.relative_duration (l_time1).fine_seconds_count > l_duration.fine_seconds_count
-			loop
-				if condition.item([]) then
-					found := True
-				end
-				l_time2.make_now
-			end
-		end
-
-feature  {NONE}-- Implementation
-	web_driver : WEB_DRIVER
-	duration : INTEGER_64
-
-	initialize
-		do
-			web_driver.session_wait (duration)
-		end
-end
diff --git a/library/test/selenium/src/web_element.e b/library/test/selenium/src/web_element.e
deleted file mode 100644
index 0ca39bc3..00000000
--- a/library/test/selenium/src/web_element.e
+++ /dev/null
@@ -1,127 +0,0 @@
-note
-	description: "An object in the WebDriver API that represents a DOM element on the page."
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	WEB_ELEMENT
-create
-		make
-feature
-		make ( an_element : STRING_32 ; an_api : like api; a_session_id : STRING_32)
-			do
-				set_element (an_element)
-				api := an_api
-				session_id := a_session_id
-			end
-
-feature -- Access
-	element : STRING_32
-		--The opaque ID assigned to the element by the server.
-		--This ID should be used in all subsequent commands issued against the element.
-
-feature -- Change Element
-	set_element (an_element : STRING_32)
-		do
-			element := an_element
-		end
-
-feature -- Web Element API
-	clear
-		-- Clear a TEXTAREA or text INPUT element's value.
-		do
-			api.clear_element (session_id, element)
-		end
-
-	click
-		-- 	Click on an element.
-		do
-			api.element_click (session_id, element)
-		end
-
-	find_element (by : STRING_32) : detachable WEB_ELEMENT
-		-- Find the first WebElement using the given method.
-		do
-			Result := api.search_element (session_id,by)
-		end
-
-	find_elements (by : STRING_32) : detachable LIST[WEB_ELEMENT]
-		-- Find all elements within the current context using the given mechanism.
-		do
-			Result := api.search_elements (session_id,by)
-		end
-
-	get_attribute (name : STRING_32) : detachable STRING_32
-		-- Get the value of an element's attribute.
-		do
-			Result := api.element_value (session_id, element, name)
-		end
-
-	get_css_value (name : STRING_32) : detachable STRING_32
-		-- Get the value of an element's attribute.
-		do
-			Result := api.element_css_value (session_id, element, name)
-		end
-
-	get_location : SE_POINT
-		-- Determine an element's location on the page. The point (0, 0) refers to the upper-left corner of the page.
-		do
-			Result := api.element_location (session_id, element)
-		end
-
-
-	get_size : SE_DIMENSION
-		-- Determine an element's size in pixels. The size will be returned as a JSON object with width and height properties.
-		do
-			Result := api.element_size (session_id, element)
-		end
-
-	get_tag_name : detachable STRING_32
-		-- The element's tag name, as a lowercase string.
-		do
-			Result := api.query_by_tag_name (session_id, element)
-		end
-
-
-	get_text : detachable STRING_32
-		-- Returns the visible text for the element.
-		do
-			Result :=  api.element_text (session_id, element)
-		end
-
-	is_displayed : BOOLEAN
-		-- Determine if an element is currently displayed.
-		do
-			Result := api.is_displayed (session_id, element)
-		end
-
-	is_enabled : BOOLEAN
-		-- Determine if an element is currently enabled.
-		do
-			Result := api.is_enabled (session_id, element)
-		end
-
-	is_selected : BOOLEAN
-		-- Determine if an OPTION element, or an INPUT element of type checkbox or radiobutton is currently selected.
-		do
-			Result := api.is_selected (session_id, element)
-		end
-
-	send_keys  (keys : ARRAY[STRING_32])
-		-- Send a sequence of key strokes to an element.
-		do
-			api.send_event (session_id, element, keys)
-		end
-
-	submit
-		-- Submit a FORM element. The submit command may also be applied to any element that is a descendant of a FORM element.
-		do
-			api.element_submit (session_id, element)
-		end
-
-feature {NONE} -- Implementation
-
-	api : SE_JSON_WIRE_PROTOCOL
-	session_id : STRING_32
-end
diff --git a/library/test/selenium/test/application.e b/library/test/selenium/test/application.e
deleted file mode 100644
index 0c15522a..00000000
--- a/library/test/selenium/test/application.e
+++ /dev/null
@@ -1,214 +0,0 @@
-note
-	description: "test application root class"
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	APPLICATION
-
-inherit
-
-	ARGUMENTS
-
-
--- TODO start and stop selenium server from Eiffel.
-create
-	make
-
-feature {NONE} -- Initialization
-
-	make
-		do
---			test_back_forward_refesh
---			test_status_sessions_timeout
-			test_ime_actions
-		end
-
-
-	test_ime_actions
-		local
-			web_driver: SE_JSON_WIRE_PROTOCOL
-			capabilities: SE_CAPABILITIES
-			timeout: SE_TIMEOUT_TYPE
-
-		do
-			-- check if the selenium Remote WebDriver is up and running.
-			create web_driver.make
-			if attached web_driver.status as l_status then
-				create capabilities.make
-				capabilities.set_browser_name ("chrome")
-				if attached web_driver.create_session_with_desired_capabilities (capabilities) as l_session then
-					print ("%NSessionId:" + l_session.session_id)
-					-- available engines
-					if attached web_driver.ime_available_engines (l_session.session_id) as l_available then
-						check
-							has_no_error : not web_driver.has_error
-						end
-					else
-					 	check	has_error : web_driver.has_error end
-					 	-- ime_active_engine
-					 	check
-					 		no_active_engine : web_driver.ime_active_engine (l_session.session_id) = Void
-					 		has_error : web_driver.has_error
-					 	end
-					 	-- ime_activated
-					 	check
-					 		no_active: not web_driver.ime_activated (l_session.session_id)
-					 		has_error : web_driver.has_error
-					 	end
-					 	-- ime_deactivate
-					 	web_driver.ime_deactivate (l_session.session_id)
-					 	check
-					 		has_error : web_driver.has_error
-					 	end
-
-					 	-- ime_activate
-					 	web_driver.ime_activate (l_session.session_id,"UNKown")
-					 	check
-					 		has_error : web_driver.has_error
-					 	end
-					end
-				end
-
-				create capabilities.make
-				capabilities.set_browser_name ("firefox")
-				if attached web_driver.create_session_with_desired_capabilities (capabilities) as l_session then
-					print ("%NSessionId:" + l_session.session_id)
-					check
-						no_error_firefox: not web_driver.has_error
-					end
-				end
-			end
-		end
-	test_status_sessions_timeout
-		local
-			web_driver: SE_JSON_WIRE_PROTOCOL
-			capabilities: SE_CAPABILITIES
-			timeout: SE_TIMEOUT_TYPE
-		do
-			-- check if the selenium Remote WebDriver is up and running.
-			create web_driver.make
-			if attached web_driver.status as l_status then
-				print (l_status)
-				-- create a new session
-				create capabilities.make
-				capabilities.set_browser_name ("chrome")
-				if attached web_driver.create_session_with_desired_capabilities (capabilities) as l_session2 then
-					print ("%NSessionId:" + l_session2.session_id)
-				end
-
-					-- retrieve sessions
-				if attached web_driver.sessions as l_session then
-					across
-						l_session as l_item
-					loop
-						print (l_item)
-					end
-				end
-				if attached web_driver.create_session_with_desired_capabilities (capabilities) as l_session2 then
-					print ("%NSessionId:" + l_session2.session_id)
-					create timeout.make ("script", 1)
-					web_driver.set_session_timeouts (l_session2.session_id, timeout)
-				end
-
-			else
-				print ("The selenium server is not accesible")
-			end
-		end
-
-	test_back_forward_refesh
-		local
-			web_driver: SE_JSON_WIRE_PROTOCOL
-			capabilities: SE_CAPABILITIES
-			file : RAW_FILE
-		do
-				create web_driver.make
-				-- create a new session
-				create capabilities.make
-				capabilities.set_browser_name ("chrome")
-				if attached web_driver.create_session_with_desired_capabilities (capabilities) as l_session then
-					print ("%NSessionId:" + l_session.session_id)
-					web_driver.navigate_to_url (l_session.session_id, "http://www.google.com/")
-					check
-						Has_no_error: not web_driver.has_error
-					end
-					web_driver.navigate_to_url (l_session.session_id, "http://www.infoq.com/")
-					check
-						Has_no_error: not web_driver.has_error
-					end
-					web_driver.navigate_to_url (l_session.session_id, "http://www.yahoo.com/")
-					check
-						Has_no_error: not web_driver.has_error
-					end
-
-						--back
-					web_driver.back (l_session.session_id)
-					check
-						Has_no_error: not web_driver.has_error
-					end
-					if attached web_driver.retrieve_url (l_session.session_id) as l_back_url then
-						check
-							Has_no_error: not web_driver.has_error
-						end
-						check
-							expected_infoq: "http://www.infoq.com/" ~ l_back_url.out
-						end
-					end
-
-						-- forward
-					web_driver.forward (l_session.session_id)
-					check
-						Has_no_error: not web_driver.has_error
-					end
-					if attached web_driver.retrieve_url (l_session.session_id) as l_forward_url then
-						check
-							Has_no_error: not web_driver.has_error
-						end
-						check
-							expected_yahoo: "http://www.yahoo.com/" ~ l_forward_url.out
-						end
-					end
-
-						-- refresh
-					web_driver.refresh (l_session.session_id)
-					check
-						Has_no_error: not web_driver.has_error
-					end
-					if attached web_driver.screenshot (l_session.session_id) as l_screenshot then
-						check
-							Has_no_error: not web_driver.has_error
-						end
-						create file.make_with_name ("screenshot_"+l_session.session_id+".png")
-						file.open_write
-						file.putstring (l_screenshot)
-						file.close
-					end
-				end
-		end
-
-		
-	test_session
-		local
-			h: LIBCURL_HTTP_CLIENT
-			session: HTTP_CLIENT_SESSION
-			resp: detachable HTTP_CLIENT_RESPONSE
-			context: HTTP_CLIENT_REQUEST_CONTEXT
-			s: READABLE_STRING_8
-		do
-			create h.make
-			s := "[
-					 	      {
-				  		"desiredCapabilities" : {
-							"browserName":"firefox"
-				 				}
-				 					}
-			]"
-			session := h.new_session ("http://localhost:4444/wd/hub/")
-			create context.make
-			context.headers.put ("application/json;charset=UTF-8", "Content-Type")
-			context.headers.put ("application/json;charset=UTF-8", "Accept")
-			resp := session.post ("session", context, s)
-			print (resp)
-		end
-
-end
diff --git a/library/test/selenium/test/exception_trace.log b/library/test/selenium/test/exception_trace.log
deleted file mode 100644
index c12662e1..00000000
--- a/library/test/selenium/test/exception_trace.log
+++ /dev/null
@@ -1,28 +0,0 @@
-
-test: system execution failed.
-Following is the set of recorded exceptions:
-
--------------------------------------------------------------------------------
-Class / Object      Routine                Nature of exception           Effect
--------------------------------------------------------------------------------
-JSON_PARSER         make_parser @1         json_not_empty:              
-<00000000029AAD48>                         Precondition violated.        Fail
--------------------------------------------------------------------------------
-SE_JSON_WIRE_PROTOCOL
-                    string_to_json @2      
-<00000000029705E8>  (From JSON_HELPER)     Routine failure.              Fail
--------------------------------------------------------------------------------
-SE_JSON_WIRE_PROTOCOL
-                    build_session @1       
-<00000000029705E8>                         Routine failure.              Fail
--------------------------------------------------------------------------------
-SE_JSON_WIRE_PROTOCOL
-                    create_session_with_desired_capabilities @5
-<00000000029705E8>                         Routine failure.              Fail
--------------------------------------------------------------------------------
-APPLICATION         make @6                                             
-<00000000029705A8>                         Routine failure.              Fail
--------------------------------------------------------------------------------
-APPLICATION         root's creation                                     
-<00000000029705A8>                         Routine failure.              Exit
--------------------------------------------------------------------------------
diff --git a/library/test/selenium/test/test-safe.ecf b/library/test/selenium/test/test-safe.ecf
deleted file mode 100644
index 22cd2c01..00000000
--- a/library/test/selenium/test/test-safe.ecf
+++ /dev/null
@@ -1,21 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<system xmlns="http://www.eiffel.com/developers/xml/configuration-1-10-0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.eiffel.com/developers/xml/configuration-1-10-0 http://www.eiffel.com/developers/xml/configuration-1-10-0.xsd" name="test" uuid="A72A4B9B-EB95-4CD8-BEE4-47A7F0FEA6F9">
-	<target name="test">
-		<root class="APPLICATION" feature="make"/>
-		<option warning="true" is_attached_by_default="false" syntax="transitional">
-			<assertions precondition="true" postcondition="true" check="true" invariant="true" loop="true" supplier_precondition="true"/>
-		</option>
-		<setting name="console_application" value="true"/>
-		<library name="base" location="$ISE_LIBRARY\library\base\base-safe.ecf"/>
-		<library name="http_client" location="$EIFFEL_LIBRARY\EWF\library\network\http_client\http_client-safe.ecf"/>
-		<library name="selenium" location="..\selenium-safe.ecf"/>
-		<library name="testing" location="$ISE_LIBRARY\library\testing\testing.ecf"/>
-		<cluster name="test" location=".\" recursive="true">
-			<file_rule>
-				<exclude>/EIFGENs$</exclude>
-				<exclude>/CVS$</exclude>
-				<exclude>/.svn$</exclude>
-			</file_rule>
-		</cluster>
-	</target>
-</system>
diff --git a/library/test/selenium/test/test.rc b/library/test/selenium/test/test.rc
deleted file mode 100644
index b0ec159c..00000000
--- a/library/test/selenium/test/test.rc
+++ /dev/null
@@ -1,6 +0,0 @@
-#include <windows.h>
-
-STRINGTABLE
-BEGIN
-	1 "This Program was made using EiffelStudio using Visual Studio C++"
-END
diff --git a/library/test/selenium/test/test_json_wire_protocol.e b/library/test/selenium/test/test_json_wire_protocol.e
deleted file mode 100644
index 2484cf4a..00000000
--- a/library/test/selenium/test/test_json_wire_protocol.e
+++ /dev/null
@@ -1,302 +0,0 @@
-note
-	description: "[
-		Eiffel tests that can be executed by testing tool.
-	]"
-	author: "EiffelStudio test wizard"
-	date: "$Date$"
-	revision: "$Revision$"
-	testing: "type/manual"
-
-class
-	TEST_JSON_WIRE_PROTOCOL
-
-inherit
-
-	EQA_TEST_SET
-		redefine
-			on_prepare,
-			on_clean
-		end
-
-feature {NONE} -- Events
-
-	on_prepare
-		local
-			capabilities: SE_CAPABILITIES
-		do
-			create capabilities.make
-			capabilities.set_browser_name ("chrome")
-			if attached wire_protocol.create_session_with_desired_capabilities (capabilities) as l_session then
-				session_id := l_session.session_id
-			end
-		end
-
-	on_clean
-			-- <Precursor>
-		do
-			if attached session_id as l_session_id then
-				wire_protocol.delete_session (session_id)
-			end
-		end
-
-feature -- Test routines
-
-	test_status
-			--
-		do
-			if attached {SE_STATUS} wire_protocol.status as l_status then
-				assert ("No error", not wire_protocol.has_error)
-				assert ("Expected status 0", l_status.status = 0)
-				assert ("Expected sessionId", l_status.session_id = Void)
-			end
-		end
-
-	test_seleniun_server_host_not_available
-			--
-		local
-			l_wire_protocol: SE_JSON_WIRE_PROTOCOL
-		do
-			create l_wire_protocol.make_with_host ("http://127.0.0.1:4443/wd/hub/status")
-			assert ("expected void", l_wire_protocol.status = Void)
-		end
-
-	test_create_valid_new_session
-		local
-			capabilities: SE_CAPABILITIES
-		do
-			create capabilities.make
-			capabilities.set_browser_name ("chrome")
-			if attached wire_protocol.create_session_with_desired_capabilities (capabilities) as l_session then
-				assert ("No error", not wire_protocol.has_error)
-			end
-		end
-
-	test_create_invalid_new_session
-		local
-			capabilities: SE_CAPABILITIES
-			session: detachable SE_SESSION
-		do
-			create capabilities.make
-			capabilities.set_browser_name ("invalid")
-			session := wire_protocol.create_session_with_desired_capabilities (capabilities)
-			assert ("Expected error", wire_protocol.has_error)
-			assert ("Expected void", session = Void)
-		end
-
-	test_retrieve_sessions
-		local
-			sessions: detachable LIST [SE_SESSION]
-		do
-			sessions := wire_protocol.sessions
-			assert ("Not void", sessions /= Void)
-			assert ("One or more items:", sessions.count >= 1)
-		end
-
-
-	test_delete_session
-		local
-			capabilities: SE_CAPABILITIES
-			session : detachable SE_SESSION
-			pre_session, post_session : INTEGER
-		do
---			if attached wire_protocol.sessions as l_sessions then
---				pre_session := l_sessions.count
---			end
-
---			if attached session_id as l_session_id then
---				wire_protocol.delete_session (session_id)
---			end
-
---			if attached wire_protocol.sessions as l_sessions then
---				post_session := l_sessions.count
---			end
-
---			assert ("After delete Pre sesssion - 1 is equal to post_session", (pre_session - 1) = post_session)
-		end
-
-	test_valid_session_timeouts
-		local
-			l_timeout :SE_TIMEOUT_TYPE
-			capabilities : SE_CAPABILITIES
-		do
-			create l_timeout.make ("script", 1)
-			create capabilities.make
-			capabilities.set_browser_name ("chrome")
-			if attached wire_protocol.create_session_with_desired_capabilities (capabilities) as l_session then
-				assert ("No error", not wire_protocol.has_error)
-				wire_protocol.set_session_timeouts (l_session.session_id, l_timeout)
-				assert ("Has no error", not wire_protocol.has_error)
-			end
-		end
-
-	test_invalid_session_timeouts
-		local
-			l_timeout :SE_TIMEOUT_TYPE
-			capabilities : SE_CAPABILITIES
-		do
-			create l_timeout.make ("tes", 1)
-			create capabilities.make
-			capabilities.set_browser_name ("chrome")
-			if attached wire_protocol.create_session_with_desired_capabilities (capabilities) as l_session then
-				assert ("No error", not wire_protocol.has_error)
-				wire_protocol.set_session_timeouts (l_session.session_id, l_timeout)
-				assert ("Has error", wire_protocol.has_error)
-			end
-
-		end
-
-	test_valid_session_async_script_timeouts
-		local
-			capabilities : SE_CAPABILITIES
-		do
-			create capabilities.make
-			capabilities.set_browser_name ("chrome")
-			if attached wire_protocol.create_session_with_desired_capabilities (capabilities) as l_session then
-				assert ("No error", not wire_protocol.has_error)
-				wire_protocol.set_session_timeouts_async_script (l_session.session_id, 1)
-				assert ("Has no error", not wire_protocol.has_error)
-			end
-		end
-
-
-	test_valid_session_implicit_wait_timeouts
-		local
-			capabilities : SE_CAPABILITIES
-		do
-			create capabilities.make
-			capabilities.set_browser_name ("chrome")
-			if attached wire_protocol.create_session_with_desired_capabilities (capabilities) as l_session then
-				assert ("No error", not wire_protocol.has_error)
-				wire_protocol.set_session_timeouts_implicit_wait (l_session.session_id, 1)
-				assert ("Has no error", not wire_protocol.has_error)
-			end
-		end
-
-
-	test_retrieve_window_handle
-		local
-			capabilities : SE_CAPABILITIES
-			window_handle : detachable STRING_32
-		do
-			create capabilities.make
-			capabilities.set_browser_name ("chrome")
-			if attached wire_protocol.create_session_with_desired_capabilities (capabilities) as l_session then
-				assert ("No error", not wire_protocol.has_error)
-				window_handle := wire_protocol.retrieve_window_handle (l_session.session_id)
-				assert ("Has no error", not wire_protocol.has_error)
-				assert ("Windows handle not void", attached window_handle = True)
-			end
-		end
-
-
-	test_retrieve_window_handles
-		local
-			capabilities : SE_CAPABILITIES
-			window_handles : detachable LIST[STRING_32]
-		do
-			create capabilities.make
-			capabilities.set_browser_name ("chrome")
-			if attached wire_protocol.create_session_with_desired_capabilities (capabilities) as l_session then
-				assert ("No error", not wire_protocol.has_error)
-				window_handles := wire_protocol.retrieve_window_handles (l_session.session_id)
-				assert ("Has no error", not wire_protocol.has_error)
-				assert ("Windows handleS not void", attached window_handles = True)
-			end
-		end
-
-	test_retrieve_url
-		local
-			capabilities : SE_CAPABILITIES
-			url : detachable STRING_32
-		do
-			create capabilities.make
-			capabilities.set_browser_name ("chrome")
-			if attached wire_protocol.create_session_with_desired_capabilities (capabilities) as l_session then
-				assert ("No error", not wire_protocol.has_error)
-				url := wire_protocol.retrieve_url (session_id)
-				assert ("Has no error", not wire_protocol.has_error)
-				assert ("url not void", attached url = True)
-			end
-		end
-
-	test_navigate_to_url
-		local
-			capabilities : SE_CAPABILITIES
-		do
-			create capabilities.make
-			capabilities.set_browser_name ("chrome")
-			if attached wire_protocol.create_session_with_desired_capabilities (capabilities) as l_session then
-				assert ("No error", not wire_protocol.has_error)
-				wire_protocol.navigate_to_url (session_id,"http://www.google.com/")
-				assert ("Has no error", not wire_protocol.has_error)
-				if attached wire_protocol.retrieve_url (session_id) as l_url then
-					assert("Expected url", "http://www.google.com/" ~ l_url.out)
-				end
-			end
-		end
-
-
-	test_back_and_forward
-		local
-			capabilities : SE_CAPABILITIES
-		do
-			create capabilities.make
-			capabilities.set_browser_name ("chrome")
-			capabilities.set_takes_screenshot (True)
-			if attached wire_protocol.create_session_with_desired_capabilities (capabilities) as l_session then
-				assert ("No error", not wire_protocol.has_error)
-				wire_protocol.navigate_to_url (l_session.session_id,"http://www.google.com/")
-				assert ("Has no error", not wire_protocol.has_error)
-				wire_protocol.navigate_to_url (l_session.session_id,"http://www.infoq.com/")
-				assert ("Has no error", not wire_protocol.has_error)
-				wire_protocol.navigate_to_url (l_session.session_id,"http://www.yahoo.com/")
-				assert ("Has no error", not wire_protocol.has_error)
-
-				--back
-				wire_protocol.back (l_session.session_id)
-				assert ("Has no error", not wire_protocol.has_error)
-
-				if attached wire_protocol.retrieve_url (l_session.session_id) as l_back_url then
-					assert ("Has no error", not wire_protocol.has_error)
-					assert ("Expected infoq", "http://www.infoq.com/" ~ l_back_url.out)
-				end
-
-				-- forward
-				wire_protocol.forward (l_session.session_id)
-				assert ("Has no error", not wire_protocol.has_error)
-
-				if attached wire_protocol.retrieve_url (l_session.session_id) as l_forward_url then
-					assert ("Has no error", not wire_protocol.has_error)
-					assert ("Expected yahoo", "http://www.yahoo.com/" ~ l_forward_url.out)
-				end
-
-			end
-		end
-
-	test_ime_available_engines
-		local
-			capabilities : SE_CAPABILITIES
-		do
-			if attached wire_protocol.ime_available_engines (session_id) as l_ime_available_engines then
-				assert ("Has no error", not wire_protocol.has_error)
-				across l_ime_available_engines as item loop
-					print (item)
-				end
-			else
-				assert ("Has error :", wire_protocol.has_error)
-				if attached wire_protocol.last_error as l_error then
-					assert ("Status 13", l_error.code = 13)
-				end
-			end
-		end
-
-
-feature {NONE}-- Implementation
-	wire_protocol: SE_JSON_WIRE_PROTOCOL
-		once
-			create Result.make
-		end
-
-	session_id: detachable STRING_32
-
-end
diff --git a/library/test/selenium/test/test_se_by.e b/library/test/selenium/test/test_se_by.e
deleted file mode 100644
index 0b47c052..00000000
--- a/library/test/selenium/test/test_se_by.e
+++ /dev/null
@@ -1,69 +0,0 @@
-note
-	description: "[
-		Eiffel tests that can be executed by testing tool.
-	]"
-	author: "EiffelStudio test wizard"
-	date: "$Date$"
-	revision: "$Revision$"
-	testing: "type/manual"
-
-class
-	TEST_SE_BY
-
-inherit
-	EQA_TEST_SET
-		redefine
-			on_prepare,
-			on_clean
-		end
-
-feature {NONE} -- Events
-
-	on_prepare
-			-- <Precursor>
-		do
---			assert ("not_implemented", False)
-		end
-
-	on_clean
-			-- <Precursor>
-		do
---			assert ("not_implemented", False)
-		end
-
-feature -- Test routines
-
-	test_valid_strategy_id
-		local
-			l_data : STRING_32
-		do
-			l_data := "[
-			{"using":"id", "value":"test"}
-			]"
-			assert ("Expected true", (create {SE_BY}).is_valid_strategy (l_data))
-		end
-
-	test_valid_strategy_name
-		local
-			l_data : STRING_32
-		do
-			l_data := "[
-			{"using":"name", "value":"test"}
-			]"
-			assert ("Expected true", (create {SE_BY}).is_valid_strategy (l_data))
-		end
-
-	test_wrong_strategy
-		local
-			l_data : STRING_32
-		do
-			l_data := "[
-			{"using":"wrong", "value":"test"}
-			]"
-			assert ("Expected False", not (create {SE_BY}).is_valid_strategy (l_data))
-		end
-
-
-end
-
-