73 lines
1.2 KiB
Plaintext
73 lines
1.2 KiB
Plaintext
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
|