# Copyright 2006 ThoughtWorks, Inc # # Licensed under the Apache License, Version 2.0 (the "License"); # you may not use this file except in compliance with the License. # You may obtain a copy of the License at # # http://www.apache.org/licenses/LICENSE-2.0 # # Unless required by applicable law or agreed to in writing, software # distributed under the License is distributed on an "AS IS" BASIS, # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. # See the License for the specific language governing permissions and # limitations under the License. # package WWW::Selenium; { $WWW::Selenium::VERSION = '1.36'; } # ABSTRACT: Perl Client for the Selenium Remote Control test tool use LWP::UserAgent; use HTTP::Request; use HTTP::Headers; use URI::Escape; use Carp qw(croak); use Time::HiRes qw(sleep); use strict; use warnings; ### This next part is auto-generated based on the big comment in selenium-api.js #Defines an object that runs Selenium commands. eval 'require Encode'; my $encode_present = !$@; Encode->import('decode_utf8') if $encode_present; sub new { my ($class, %args) = @_; my $self = { # default args: host => 'localhost', port => 4444, auto_stop => 1, browser_start_command => delete $args{browser} || '*firefox', _ua => undef, keep_alive => 5, http_method => 'POST', %args, }; croak 'browser_url is mandatory!' unless $self->{browser_url}; croak "Unknown http_method: ($self->{http_method})" unless $self->{http_method} =~ m/^GET|POST$/; bless $self, $class or die "Can't bless $class: $!"; return $self; } sub start { my $self = shift; return if $self->{session_id}; $self->{session_id} = $self->get_string("getNewBrowserSession", $self->{browser_start_command}, $self->{browser_url}); } sub stop { my $self = shift; return unless defined $self->{session_id}; $self->do_command("testComplete"); $self->{session_id} = undef; } sub do_command { my ($self, $command, @args) = @_; my $get = $self->{http_method} eq 'GET'; $self->{_page_opened} = 1 if $command eq 'open'; # Check that user has called open() my %valid_pre_open_commands = ( testComplete => 1, getNewBrowserSession => 1, setTimeout => 1, ); if (!$self->{_page_opened} and !$valid_pre_open_commands{$command}) { die "You must open a page before calling $command. eg: \$sel->open('/');\n"; } my $fullurl = "http://$self->{host}:$self->{port}/selenium-server/driver/"; $fullurl .= '?' if $get; my $content = ''; my $i = 1; @args = grep defined, @args; my $params = $get ? \$fullurl : \$content; $$params .= "cmd=" . uri_escape($command); while (@args) { $$params .= '&' . $i++ . '=' . URI::Escape::uri_escape_utf8(shift @args); } if (defined $self->{session_id}) { $$params .= "&sessionId=$self->{session_id}"; } # We use the full version of LWP to make sure we issue an # HTTP 1.1 request (SRC-25) my $method = $get ? 'GET' : 'POST'; print "---> Requesting $method $fullurl ($content)\n" if $self->{verbose}; my $header = HTTP::Headers->new( $get ? () : ( Content_Type => 'application/x-www-form-urlencoded; charset=utf-8' ) ); my $response = $self->ua->request( HTTP::Request->new($method => $fullurl, $header, $content) ); my $result; if ($response->is_success) { $result = $response->content; print "Got result: $result\n" if $self->{verbose}; } else { die "Error requesting $fullurl:\n" . $response->status_line . "\n"; } $result = decode_utf8($result) if $encode_present; die "Error requesting $fullurl:\n$result\n" unless $result =~ /^OK/; return $result; } sub ua { my $self = shift; $self->{_ua} ||= LWP::UserAgent->new(keep_alive => $self->{keep_alive}); if (my $msec = $self->{_timeout}) { # Keep the 3 minute timeout (LWP::UserAgent default) on top of the # selenium timeout $self->{_ua}->timeout( int($msec/1000 + 180) ); } return $self->{_ua}; } sub get_string { my $self = shift; my $result = $self->do_command(@_); return substr($result, 3); } sub get_string_array { my $self = shift; my $result = $self->get_string(@_); my $token = ""; my @tokens = (); my @chars = split(//, $result); for (my $i = 0; $i < @chars; $i++) { my $char = $chars[$i]; if ($char eq '\\') { $i++; $char = $chars[$i]; $token .= $char; } elsif ($char eq ',') { push (@tokens, $token); $token = ""; } else { $token .= $char; } } push (@tokens, $token); return @tokens; } sub get_number { my $self = shift; my $result = $self->get_string(@_); # Is there something else I need to do here? return $result; } sub get_number_array { my $self = shift; my @result = $self->get_string_array(@_); # Is there something else I need to do here? return @result; } sub get_boolean { my $self = shift; my $result = $self->get_string(@_); if ($result eq "true") { return 1; } if ($result eq "false") { return 0; } die "result is neither 'true' nor 'false': $result"; } sub get_boolean_array { my $self = shift; my @result = $self->get_string_array(@_); my @boolarr = (); for (my $i = 0; $i < @result; $i++) { if ($result[$i] eq "true") { push (@boolarr, 1); next; } if ($result[$i] eq "false") { push (@boolarr, 0); next; } die "result is neither 'true' nor 'false': ". $result[$i]; } return @boolarr; } sub pause { my ($self,$timeout) = @_; $timeout = 1000 unless defined $timeout; $timeout /= 1000; sleep $timeout; } ### From here on, everything's auto-generated from XML sub click { my $self = shift; $self->do_command("click", @_); } sub double_click { my $self = shift; $self->do_command("doubleClick", @_); } sub context_menu { my $self = shift; $self->do_command("contextMenu", @_); } sub click_at { my $self = shift; $self->do_command("clickAt", @_); } sub double_click_at { my $self = shift; $self->do_command("doubleClickAt", @_); } sub context_menu_at { my $self = shift; $self->do_command("contextMenuAt", @_); } sub fire_event { my $self = shift; $self->do_command("fireEvent", @_); } sub focus { my $self = shift; $self->do_command("focus", @_); } sub key_press { my $self = shift; $self->do_command("keyPress", @_); } sub shift_key_down { my $self = shift; $self->do_command("shiftKeyDown", @_); } sub shift_key_up { my $self = shift; $self->do_command("shiftKeyUp", @_); } sub meta_key_down { my $self = shift; $self->do_command("metaKeyDown", @_); } sub meta_key_up { my $self = shift; $self->do_command("metaKeyUp", @_); } sub alt_key_down { my $self = shift; $self->do_command("altKeyDown", @_); } sub alt_key_up { my $self = shift; $self->do_command("altKeyUp", @_); } sub control_key_down { my $self = shift; $self->do_command("controlKeyDown", @_); } sub control_key_up { my $self = shift; $self->do_command("controlKeyUp", @_); } sub key_down { my $self = shift; $self->do_command("keyDown", @_); } sub key_up { my $self = shift; $self->do_command("keyUp", @_); } sub mouse_over { my $self = shift; $self->do_command("mouseOver", @_); } sub mouse_out { my $self = shift; $self->do_command("mouseOut", @_); } sub mouse_down { my $self = shift; $self->do_command("mouseDown", @_); } sub mouse_down_right { my $self = shift; $self->do_command("mouseDownRight", @_); } sub mouse_down_at { my $self = shift; $self->do_command("mouseDownAt", @_); } sub mouse_down_right_at { my $self = shift; $self->do_command("mouseDownRightAt", @_); } sub mouse_up { my $self = shift; $self->do_command("mouseUp", @_); } sub mouse_up_right { my $self = shift; $self->do_command("mouseUpRight", @_); } sub mouse_up_at { my $self = shift; $self->do_command("mouseUpAt", @_); } sub mouse_up_right_at { my $self = shift; $self->do_command("mouseUpRightAt", @_); } sub mouse_move { my $self = shift; $self->do_command("mouseMove", @_); } sub mouse_move_at { my $self = shift; $self->do_command("mouseMoveAt", @_); } sub type { my $self = shift; $self->do_command("type", @_); } sub type_keys { my $self = shift; $self->do_command("typeKeys", @_); } sub set_speed { my $self = shift; $self->do_command("setSpeed", @_); } sub get_speed { my $self = shift; return $self->get_string("getSpeed", @_); } sub check { my $self = shift; $self->do_command("check", @_); } sub uncheck { my $self = shift; $self->do_command("uncheck", @_); } sub select { my $self = shift; $self->do_command("select", @_); } sub add_selection { my $self = shift; $self->do_command("addSelection", @_); } sub remove_selection { my $self = shift; $self->do_command("removeSelection", @_); } sub remove_all_selections { my $self = shift; $self->do_command("removeAllSelections", @_); } sub submit { my $self = shift; $self->do_command("submit", @_); } sub open { my $self = shift; $_[0] ||= '/'; # default to opening site root $self->do_command("open", @_); } sub open_window { my $self = shift; $self->do_command("openWindow", @_); } sub select_window { my $self = shift; $self->do_command("selectWindow", @_); } sub select_pop_up { my $self = shift; $self->do_command("selectPopUp", @_); } sub deselect_pop_up { my $self = shift; $self->do_command("deselectPopUp", @_); } sub select_frame { my $self = shift; $self->do_command("selectFrame", @_); } sub get_whether_this_frame_match_frame_expression { my $self = shift; return $self->get_boolean("getWhetherThisFrameMatchFrameExpression", @_); } sub get_whether_this_window_match_window_expression { my $self = shift; return $self->get_boolean("getWhetherThisWindowMatchWindowExpression", @_); } sub wait_for_pop_up { my $self = shift; local $self->{_timeout} = $_[1]; $self->do_command("waitForPopUp", @_); } sub choose_cancel_on_next_confirmation { my $self = shift; $self->do_command("chooseCancelOnNextConfirmation", @_); } sub choose_ok_on_next_confirmation { my $self = shift; $self->do_command("chooseOkOnNextConfirmation", @_); } sub answer_on_next_prompt { my $self = shift; $self->do_command("answerOnNextPrompt", @_); } sub go_back { my $self = shift; $self->do_command("goBack", @_); } sub refresh { my $self = shift; $self->do_command("refresh", @_); } sub close { my $self = shift; $self->do_command("close", @_); } sub is_alert_present { my $self = shift; return $self->get_boolean("isAlertPresent", @_); } sub is_prompt_present { my $self = shift; return $self->get_boolean("isPromptPresent", @_); } sub is_confirmation_present { my $self = shift; return $self->get_boolean("isConfirmationPresent", @_); } sub get_alert { my $self = shift; return $self->get_string("getAlert", @_); } sub get_confirmation { my $self = shift; return $self->get_string("getConfirmation", @_); } sub get_prompt { my $self = shift; return $self->get_string("getPrompt", @_); } sub get_location { my $self = shift; return $self->get_string("getLocation", @_); } sub get_title { my $self = shift; return $self->get_string("getTitle", @_); } sub get_body_text { my $self = shift; return $self->get_string("getBodyText", @_); } sub get_value { my $self = shift; return $self->get_string("getValue", @_); } sub get_text { my $self = shift; return $self->get_string("getText", @_); } sub highlight { my $self = shift; $self->do_command("highlight", @_); } sub get_eval { my $self = shift; return $self->get_string("getEval", @_); } sub is_checked { my $self = shift; return $self->get_boolean("isChecked", @_); } sub get_table { my $self = shift; return $self->get_string("getTable", @_); } sub get_selected_labels { my $self = shift; return $self->get_string_array("getSelectedLabels", @_); } sub get_selected_label { my $self = shift; return $self->get_string("getSelectedLabel", @_); } sub get_selected_values { my $self = shift; return $self->get_string_array("getSelectedValues", @_); } sub get_selected_value { my $self = shift; return $self->get_string("getSelectedValue", @_); } sub get_selected_indexes { my $self = shift; return $self->get_string_array("getSelectedIndexes", @_); } sub get_selected_index { my $self = shift; return $self->get_string("getSelectedIndex", @_); } sub get_selected_ids { my $self = shift; return $self->get_string_array("getSelectedIds", @_); } sub get_selected_id { my $self = shift; return $self->get_string("getSelectedId", @_); } sub is_something_selected { my $self = shift; return $self->get_boolean("isSomethingSelected", @_); } sub get_select_options { my $self = shift; return $self->get_string_array("getSelectOptions", @_); } sub get_attribute { my $self = shift; return $self->get_string("getAttribute", @_); } sub is_text_present { my $self = shift; return $self->get_boolean("isTextPresent", @_); } sub is_element_present { my $self = shift; return $self->get_boolean("isElementPresent", @_); } sub is_visible { my $self = shift; return $self->get_boolean("isVisible", @_); } sub is_editable { my $self = shift; return $self->get_boolean("isEditable", @_); } sub get_all_buttons { my $self = shift; return $self->get_string_array("getAllButtons", @_); } sub get_all_links { my $self = shift; return $self->get_string_array("getAllLinks", @_); } sub get_all_fields { my $self = shift; return $self->get_string_array("getAllFields", @_); } sub get_attribute_from_all_windows { my $self = shift; return $self->get_string_array("getAttributeFromAllWindows", @_); } sub dragdrop { my $self = shift; $self->do_command("dragdrop", @_); } sub set_mouse_speed { my $self = shift; $self->do_command("setMouseSpeed", @_); } sub get_mouse_speed { my $self = shift; return $self->get_number("getMouseSpeed", @_); } sub drag_and_drop { my $self = shift; $self->do_command("dragAndDrop", @_); } sub drag_and_drop_to_object { my $self = shift; $self->do_command("dragAndDropToObject", @_); } sub window_focus { my $self = shift; $self->do_command("windowFocus", @_); } sub window_maximize { my $self = shift; $self->do_command("windowMaximize", @_); } sub get_all_window_ids { my $self = shift; return $self->get_string_array("getAllWindowIds", @_); } sub get_all_window_names { my $self = shift; return $self->get_string_array("getAllWindowNames", @_); } sub get_all_window_titles { my $self = shift; return $self->get_string_array("getAllWindowTitles", @_); } sub get_html_source { my $self = shift; return $self->get_string("getHtmlSource", @_); } sub set_cursor_position { my $self = shift; $self->do_command("setCursorPosition", @_); } sub get_element_index { my $self = shift; return $self->get_number("getElementIndex", @_); } sub is_ordered { my $self = shift; return $self->get_boolean("isOrdered", @_); } sub get_element_position_left { my $self = shift; return $self->get_number("getElementPositionLeft", @_); } sub get_element_position_top { my $self = shift; return $self->get_number("getElementPositionTop", @_); } sub get_element_width { my $self = shift; return $self->get_number("getElementWidth", @_); } sub get_element_height { my $self = shift; return $self->get_number("getElementHeight", @_); } sub get_cursor_position { my $self = shift; return $self->get_number("getCursorPosition", @_); } sub get_expression { my $self = shift; return $self->get_string("getExpression", @_); } sub get_xpath_count { my $self = shift; return $self->get_number("getXpathCount", @_); } sub assign_id { my $self = shift; $self->do_command("assignId", @_); } sub allow_native_xpath { my $self = shift; $self->do_command("allowNativeXpath", @_); } sub ignore_attributes_without_value { my $self = shift; $self->do_command("ignoreAttributesWithoutValue", @_); } sub wait_for_condition { my $self = shift; local $self->{_timeout} = $_[1]; $self->do_command("waitForCondition", @_); } sub set_timeout { my $self = shift; $self->{_timeout} = $_[0]; $self->do_command("setTimeout", @_); } sub wait_for_page_to_load { my $self = shift; local $self->{_timeout} = $_[1]; $self->do_command("waitForPageToLoad", @_); } sub wait_for_frame_to_load { my $self = shift; local $self->{_timeout} = $_[1]; $self->do_command("waitForFrameToLoad", @_); } sub get_cookie { my $self = shift; return $self->get_string("getCookie", @_); } sub get_cookie_by_name { my $self = shift; return $self->get_string("getCookieByName", @_); } sub is_cookie_present { my $self = shift; return $self->get_boolean("isCookiePresent", @_); } sub create_cookie { my $self = shift; $self->do_command("createCookie", @_); } sub delete_cookie { my $self = shift; $self->do_command("deleteCookie", @_); } sub delete_all_visible_cookies { my $self = shift; $self->do_command("deleteAllVisibleCookies", @_); } sub set_browser_log_level { my $self = shift; $self->do_command("setBrowserLogLevel", @_); } sub run_script { my $self = shift; $self->do_command("runScript", @_); } sub add_location_strategy { my $self = shift; $self->do_command("addLocationStrategy", @_); } sub capture_entire_page_screenshot { my $self = shift; $self->do_command("captureEntirePageScreenshot", @_); } sub rollup { my $self = shift; $self->do_command("rollup", @_); } sub add_script { my $self = shift; $self->do_command("addScript", @_); } sub remove_script { my $self = shift; $self->do_command("removeScript", @_); } sub use_xpath_library { my $self = shift; $self->do_command("useXpathLibrary", @_); } sub set_context { my $self = shift; $self->do_command("setContext", @_); } sub attach_file { my $self = shift; $self->do_command("attachFile", @_); } sub capture_screenshot { my $self = shift; $self->do_command("captureScreenshot", @_); } sub capture_screenshot_to_string { my $self = shift; return $self->get_string("captureScreenshotToString", @_); } sub capture_entire_page_screenshot_to_string { my $self = shift; return $self->get_string("captureEntirePageScreenshotToString", @_); } sub shut_down_selenium_server { my $self = shift; $self->do_command("shutDownSeleniumServer", @_); } sub retrieve_last_remote_control_logs { my $self = shift; return $self->get_string("retrieveLastRemoteControlLogs", @_); } sub key_down_native { my $self = shift; $self->do_command("keyDownNative", @_); } sub key_up_native { my $self = shift; $self->do_command("keyUpNative", @_); } sub key_press_native { my $self = shift; $self->do_command("keyPressNative", @_); } sub wait_for_text_present { my $self = shift; $self->do_command("waitForTextPresent", @_); } sub wait_for_element_present { my $self = shift; $self->do_command("waitForElementPresent", @_); } sub is_location { my $self = shift; warn "is_location() is deprecated, use get_location()\n" unless $self->{no_deprecation_msg}; my $expected_location = shift; my $loc = $self->get_string("getLocation"); return $loc =~ /\Q$expected_location\E$/; } sub get_checked { my $self = shift; warn "get_checked() is deprecated, use is_checked()\n" unless $self->{no_deprecation_msg}; return $self->get_string("isChecked", @_) ? 'true' : 'false'; } sub is_selected { my ($self, $locator, $option_locator) = @_; warn "is_selected() is deprecated, use get_selected_*() methods\n" unless $self->{no_deprecation_msg}; $option_locator =~ m/^(?:(.+)=)?(.+)/; my $selector = $1 || 'label'; $selector = 'indexe' if $selector eq 'index'; my $pattern = $2; my $func = "get_selected_${selector}s"; my @selected = $self->$func($locator); return grep { $pattern eq $_ } @selected; } sub get_selected_options { my $self = shift; warn "get_selected_options() is deprecated, use get_selected_labels()\n" unless $self->{no_deprecation_msg}; return $self->get_string_array("getSelectedLabels", @_); } sub get_absolute_location { my $self = shift; warn "get_absolute_location() is deprecated, use get_location()\n" unless $self->{no_deprecation_msg}; return $self->get_string("getLocation", @_); } sub DESTROY { my $self = shift; local $@; $self->stop if $self->{auto_stop}; } 1; __END__ =pod =head1 NAME WWW::Selenium - Perl Client for the Selenium Remote Control test tool =head1 VERSION version 1.36 =head1 SYNOPSIS use WWW::Selenium; my $sel = WWW::Selenium->new( host => "localhost", port => 4444, browser => "*iexplore", browser_url => "http://www.google.com", ); $sel->start; $sel->open("http://www.google.com"); $sel->type("q", "hello world"); $sel->click("btnG"); $sel->wait_for_page_to_load(5000); print $sel->get_title; $sel->stop; =head1 DESCRIPTION Selenium Remote Control (SRC) is a test tool that allows you to write automated web application UI tests in any programming language against any HTTP website using any mainstream JavaScript-enabled browser. SRC provides a Selenium Server, which can automatically start/stop/control any supported browser. It works by using Selenium Core, a pure-HTML+JS library that performs automated tasks in JavaScript; the Selenium Server communicates directly with the browser using AJAX (XmlHttpRequest). L This module sends commands directly to the Server using simple HTTP GET/POST requests. Using this module together with the Selenium Server, you can automatically control any supported browser. To use this module, you need to have already downloaded and started the Selenium Server. (The Selenium Server is a Java application.) =head2 Element Locators Element Locators tell Selenium which HTML element a command refers to.The format of a locator is: =over =item IB<=>I =back We support the following strategies for locating elements: =over =item * B=I: Select the element with the specified @id attribute. If no match isfound, select the first element whose @name attribute is I.(This is normally the default; see below.) =item * B=I:Select the element with the specified @id attribute. =item * B=I:Select the first element with the specified @name attribute. =over =item * username =item * name=username =back The name may optionally be followed by one or more I, separated from the name by whitespace. If the I is not specified, B is assumed. =over =item * name=flavour value=chocolate =back =item * B=I: Find an element by evaluating the specified string. This allows you to traverse the HTML Document ObjectModel using JavaScript. Note that you must not return a value in this string; simply make it the last expression in the block. =over =item * dom=document.forms['myForm'].myDropdown =item * dom=document.images[56] =item * dom=function foo() { return document.links[1]; }; foo(); =back =item * B=I: Locate an element using an XPath expression. =over =item * xpath=//img[@alt='The image alt text'] =item * xpath=//table[@id='table1']//tr[4]/td[2] =item * xpath=//a[contains(@href,'#id1')] =item * xpath=//a[contains(@href,'#id1')]/@class =item * xpath=(//table[@class='stylee'])//th[text()='theHeaderText']/../td =item * xpath=//input[@name='name2' and @value='yes'] =item * xpath=//*[text()="right"] =back =item * B=I:Select the link (anchor) element which contains text matching thespecified I. =over =item * link=The link text =back =item * B=I:Select the element using css selectors. Please refer to http://www.w3.org/TR/REC-CSS2/selector.html (CSS2 selectors), http://www.w3.org/TR/2001/CR-css3-selectors-20011113/ (CSS3 selectors) for more information. You can also check the TestCssLocators test in the selenium test suite for an example of usage, which is included in the downloaded selenium core package. =over =item * css=a[href="#id3"] =item * css=span#firstChild + span =back Currently the css selector locator supports all css1, css2 and css3 selectors except namespace in css3, some pseudo classes(:nth-of-type, :nth-last-of-type, :first-of-type, :last-of-type, :only-of-type, :visited, :hover, :active, :focus, :indeterminate) and pseudo elements(::first-line, ::first-letter, ::selection, ::before, ::after). =item * B=I:Locate an element by resolving the UI specifier string to another locator, and evaluating it. See the http://svn.openqa.org/fisheye/browse/~raw,r=trunk/selenium/trunk/src/main/resources/core/scripts/ui-doc.html (Selenium UI-Element Reference) for more details. =over =item * ui=loginPages::loginButton() =item * ui=settingsPages::toggle(label=Hide Email) =item * ui=forumPages::postBody(index=2)//a[2] =back =back Without an explicit locator prefix, Selenium uses the following defaultstrategies: =over =item * B, for locators starting with "document." =item * B, for locators starting with "//" =item * B, otherwise =back =head2 Element Filters Element filters can be used with a locator to refine a list of candidate elements. They are currently used only in the 'name' element-locator. Filters look much like locators, ie. =over =item IB<=>I =back Supported element-filters are: =over =item BI Matches elements based on their values. This is particularly useful for refining a list of similarly-named toggle-buttons. =item BI Selects a single element based on its position in the list (offset from zero). =back =head2 String-match Patterns Various Pattern syntaxes are available for matching string values: =over =item * BI:Match a string against a "glob" (aka "wildmat") pattern. "Glob" is akind of limited regular-expression syntax typically used in command-lineshells. In a glob pattern, "*" represents any sequence of characters, and "?"represents any single character. Glob patterns match against the entirestring. =item * BI:Match a string using a regular-expression. The full power of JavaScriptregular-expressions is available. =item * BI:Match a string using a case-insensitive regular-expression. =item * BI:Match a string exactly, verbatim, without any of that fancy wildcardstuff. =back If no pattern prefix is specified, Selenium assumes that it's a "glob"pattern. For commands that return multiple values (such as verifySelectOptions),the string being matched is a comma-separated list of the return values,where both commas and backslashes in the values are backslash-escaped.When providing a pattern, the optional matching syntax (i.e. glob,regexp, etc.) is specified once, as usual, at the beginning of thepattern. =head2 METHODS The following methods are available: =over =item $sel = WWW::Selenium-Enew( %args ) Constructs a new C object, specifying a Selenium Server host/port, a command to launch the browser, and a starting URL for the browser. Options: =over =item * C host is the host name on which the Selenium Server resides. =item * C port is the port on which the Selenium Server is listening. =item * C browser_url is the starting URL including just a domain name. We'll start the browser pointing at the Selenium resources on this URL, e.g. "http://www.google.com" would send the browser to "http://www.google.com/selenium-server/SeleneseRunner.html" =item * C or C This is the command string used to launch the browser, e.g. "*firefox", "*iexplore" or "/usr/bin/firefox" This option may be any one of the following: =over =item * C<*firefox [absolute path]> Automatically launch a new Firefox process using a custom Firefox profile. This profile will be automatically configured to use the Selenium Server as a proxy and to have all annoying prompts ("save your password?" "forms are insecure" "make Firefox your default browser?" disabled. You may optionally specify an absolute path to your firefox executable, or just say "*firefox". If no absolute path is specified, we'll look for firefox.exe in a default location (normally c:\program files\mozilla firefox\firefox.exe), which you can override by setting the Java system property C to the correct path to Firefox. =item * C<*iexplore [absolute path]> Automatically launch a new Internet Explorer process using custom Windows registry settings. This process will be automatically configured to use the Selenium Server as a proxy and to have all annoying prompts ("save your password?" "forms are insecure" "make Firefox your default browser?" disabled. You may optionally specify an absolute path to your iexplore executable, or just say "*iexplore". If no absolute path is specified, we'll look for iexplore.exe in a default location (normally c:\program files\internet explorer\iexplore.exe), which you can override by setting the Java system property C to the correct path to Internet Explorer. =item * C You may also simply specify the absolute path to your browser executable, or use a relative path to your executable (which we'll try to find on your path). B If you specify your own custom browser, it's up to you to configure it correctly. At a minimum, you'll need to configure your browser to use the Selenium Server as a proxy, and disable all browser-specific prompting. =back =item * C Defaults to true, and will attempt to close the browser if the object goes out of scope and stop hasn't been called. =item * C Number of connections LWP should cache. This is just a minor speed improvement. Defaults to 5. =item * C> Choose which HTTP method should be used for requests to the Selenium server. Only GET and POST are supported. =back =item $sel-Epause($timeout) Waits $timeout milliseconds (default: 1 second) =item $sel-Eclick($locator) Clicks on a link, button, checkbox or radio button. If the click actioncauses a new page to load (like a link usually does), callwaitForPageToLoad. =over =item $locator is an element locator =back =item $sel-Edouble_click($locator) Double clicks on a link, button, checkbox or radio button. If the double click actioncauses a new page to load (like a link usually does), callwaitForPageToLoad. =over =item $locator is an element locator =back =item $sel-Econtext_menu($locator) Simulates opening the context menu for the specified element (as might happen if the user "right-clicked" on the element). =over =item $locator is an element locator =back =item $sel-Eclick_at($locator, $coord_string) Clicks on a link, button, checkbox or radio button. If the click actioncauses a new page to load (like a link usually does), callwaitForPageToLoad. =over =item $locator is an element locator =item $coord_string is specifies the x,y position (i.e. - 10,20) of the mouse event relative to the element returned by the locator. =back =item $sel-Edouble_click_at($locator, $coord_string) Doubleclicks on a link, button, checkbox or radio button. If the actioncauses a new page to load (like a link usually does), callwaitForPageToLoad. =over =item $locator is an element locator =item $coord_string is specifies the x,y position (i.e. - 10,20) of the mouse event relative to the element returned by the locator. =back =item $sel-Econtext_menu_at($locator, $coord_string) Simulates opening the context menu for the specified element (as might happen if the user "right-clicked" on the element). =over =item $locator is an element locator =item $coord_string is specifies the x,y position (i.e. - 10,20) of the mouse event relative to the element returned by the locator. =back =item $sel-Efire_event($locator, $event_name) Explicitly simulate an event, to trigger the corresponding "onI"handler. =over =item $locator is an element locator =item $event_name is the event name, e.g. "focus" or "blur" =back =item $sel-Efocus($locator) Move the focus to the specified element; for example, if the element is an input field, move the cursor to that field. =over =item $locator is an element locator =back =item $sel-Ekey_press($locator, $key_sequence) Simulates a user pressing and releasing a key. =over =item $locator is an element locator =item $key_sequence is Either be a string("\" followed by the numeric keycode of the key to be pressed, normally the ASCII value of that key), or a single character. For example: "w", "\119". =back =item $sel-Eshift_key_down() Press the shift key and hold it down until doShiftUp() is called or a new page is loaded. =item $sel-Eshift_key_up() Release the shift key. =item $sel-Emeta_key_down() Press the meta key and hold it down until doMetaUp() is called or a new page is loaded. =item $sel-Emeta_key_up() Release the meta key. =item $sel-Ealt_key_down() Press the alt key and hold it down until doAltUp() is called or a new page is loaded. =item $sel-Ealt_key_up() Release the alt key. =item $sel-Econtrol_key_down() Press the control key and hold it down until doControlUp() is called or a new page is loaded. =item $sel-Econtrol_key_up() Release the control key. =item $sel-Ekey_down($locator, $key_sequence) Simulates a user pressing a key (without releasing it yet). =over =item $locator is an element locator =item $key_sequence is Either be a string("\" followed by the numeric keycode of the key to be pressed, normally the ASCII value of that key), or a single character. For example: "w", "\119". =back =item $sel-Ekey_up($locator, $key_sequence) Simulates a user releasing a key. =over =item $locator is an element locator =item $key_sequence is Either be a string("\" followed by the numeric keycode of the key to be pressed, normally the ASCII value of that key), or a single character. For example: "w", "\119". =back =item $sel-Emouse_over($locator) Simulates a user hovering a mouse over the specified element. =over =item $locator is an element locator =back =item $sel-Emouse_out($locator) Simulates a user moving the mouse pointer away from the specified element. =over =item $locator is an element locator =back =item $sel-Emouse_down($locator) Simulates a user pressing the left mouse button (without releasing it yet) onthe specified element. =over =item $locator is an element locator =back =item $sel-Emouse_down_right($locator) Simulates a user pressing the right mouse button (without releasing it yet) onthe specified element. =over =item $locator is an element locator =back =item $sel-Emouse_down_at($locator, $coord_string) Simulates a user pressing the left mouse button (without releasing it yet) atthe specified location. =over =item $locator is an element locator =item $coord_string is specifies the x,y position (i.e. - 10,20) of the mouse event relative to the element returned by the locator. =back =item $sel-Emouse_down_right_at($locator, $coord_string) Simulates a user pressing the right mouse button (without releasing it yet) atthe specified location. =over =item $locator is an element locator =item $coord_string is specifies the x,y position (i.e. - 10,20) of the mouse event relative to the element returned by the locator. =back =item $sel-Emouse_up($locator) Simulates the event that occurs when the user releases the mouse button (i.e., stopsholding the button down) on the specified element. =over =item $locator is an element locator =back =item $sel-Emouse_up_right($locator) Simulates the event that occurs when the user releases the right mouse button (i.e., stopsholding the button down) on the specified element. =over =item $locator is an element locator =back =item $sel-Emouse_up_at($locator, $coord_string) Simulates the event that occurs when the user releases the mouse button (i.e., stopsholding the button down) at the specified location. =over =item $locator is an element locator =item $coord_string is specifies the x,y position (i.e. - 10,20) of the mouse event relative to the element returned by the locator. =back =item $sel-Emouse_up_right_at($locator, $coord_string) Simulates the event that occurs when the user releases the right mouse button (i.e., stopsholding the button down) at the specified location. =over =item $locator is an element locator =item $coord_string is specifies the x,y position (i.e. - 10,20) of the mouse event relative to the element returned by the locator. =back =item $sel-Emouse_move($locator) Simulates a user pressing the mouse button (without releasing it yet) onthe specified element. =over =item $locator is an element locator =back =item $sel-Emouse_move_at($locator, $coord_string) Simulates a user pressing the mouse button (without releasing it yet) onthe specified element. =over =item $locator is an element locator =item $coord_string is specifies the x,y position (i.e. - 10,20) of the mouse event relative to the element returned by the locator. =back =item $sel-Etype($locator, $value) Sets the value of an input field, as though you typed it in. Can also be used to set the value of combo boxes, check boxes, etc. In these cases,value should be the value of the option selected, not the visible text. =over =item $locator is an element locator =item $value is the value to type =back =item $sel-Etype_keys($locator, $value) Simulates keystroke events on the specified element, as though you typed the value key-by-key. This is a convenience method for calling keyDown, keyUp, keyPress for every character in the specified string;this is useful for dynamic UI widgets (like auto-completing combo boxes) that require explicit key events. Unlike the simple "type" command, which forces the specified value into the page directly, this commandmay or may not have any visible effect, even in cases where typing keys would normally have a visible effect.For example, if you use "typeKeys" on a form element, you may or may not see the results of what you typed inthe field. In some cases, you may need to use the simple "type" command to set the value of the field and then the "typeKeys" command tosend the keystroke events corresponding to what you just typed. =over =item $locator is an element locator =item $value is the value to type =back =item $sel-Eset_speed($value) Set execution speed (i.e., set the millisecond length of a delay which will follow each selenium operation). By default, there is no such delay, i.e.,the delay is 0 milliseconds. =over =item $value is the number of milliseconds to pause after operation =back =item $sel-Eget_speed() Get execution speed (i.e., get the millisecond length of the delay following each selenium operation). By default, there is no such delay, i.e.,the delay is 0 milliseconds.See also setSpeed. =over =item Returns the execution speed in milliseconds. =back =item $sel-Echeck($locator) Check a toggle-button (checkbox/radio) =over =item $locator is an element locator =back =item $sel-Euncheck($locator) Uncheck a toggle-button (checkbox/radio) =over =item $locator is an element locator =back =item $sel-Eselect($select_locator, $option_locator) Select an option from a drop-down using an option locator. Option locators provide different ways of specifying options of an HTMLSelect element (e.g. for selecting a specific option, or for assertingthat the selected option satisfies a specification). There are severalforms of Select Option Locator. =over =item * B