Test-WWW-Selenium-1.36/0000755000175000017500000000000012145002321012755 5ustar mmpmmpTest-WWW-Selenium-1.36/build.xml0000644000175000017500000001245212145002321014602 0ustar mmpmmp Selenium RC PerlDoc

Selenium RC PerlDoc

WWW::Selenium

Test::WWW::Selenium

]]> ${selenium-server} ${selenium-server} Test-WWW-Selenium-1.36/BUILDING_FROM_SELENIUM.txt0000644000175000017500000000100312145002321017031 0ustar mmpmmpThis module's WWW/Selenium.pm is generated from iedoc.xml, an artifact of the Selenium-core build. Because the file is generated, it is not kept in version control. To create this file, follow these steps: 1) Find a iedoc.xml, and put it in the perl/ directory. To download and extract iedoc.xml from the latest nightly selenium-core build, run: perl util/fetch_iedoc_xml.pl 2) Generate lib/WWW/Selenium.pm and t/selenium-core.t from iedoc.xml: perl util/create_www_selenium.pl 3) Profit! Test-WWW-Selenium-1.36/target/0000755000175000017500000000000012145002321014243 5ustar mmpmmpTest-WWW-Selenium-1.36/target/iedoc.xml0000644000175000017500000020646112145002321016061 0ustar mmpmmp Defines an object that runs Selenium commands.

Element Locators

Element Locators tell Selenium which HTML element a command refers to. The format of a locator is:

locatorType=argument

We support the following strategies for locating elements:

Without an explicit locator prefix, Selenium uses the following default strategies:

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.

filterType=argument

Supported element-filters are:

value=valuePattern

Matches elements based on their values. This is particularly useful for refining a list of similarly-named toggle-buttons.

index=index

Selects a single element based on its position in the list (offset from zero).

String-match Patterns

Various Pattern syntaxes are available for matching string values:

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 the pattern.

an element locator Clicks on a link, button, checkbox or radio button. If the click action causes a new page to load (like a link usually does), call waitForPageToLoad. an element locator Double clicks on a link, button, checkbox or radio button. If the double click action causes a new page to load (like a link usually does), call waitForPageToLoad. an element locator Simulates opening the context menu for the specified element (as might happen if the user "right-clicked" on the element). an element locator specifies the x,y position (i.e. - 10,20) of the mouse event relative to the element returned by the locator. Clicks on a link, button, checkbox or radio button. If the click action causes a new page to load (like a link usually does), call waitForPageToLoad. an element locator specifies the x,y position (i.e. - 10,20) of the mouse event relative to the element returned by the locator. Doubleclicks on a link, button, checkbox or radio button. If the action causes a new page to load (like a link usually does), call waitForPageToLoad. an element locator specifies the x,y position (i.e. - 10,20) of the mouse event relative to the element returned by the locator. Simulates opening the context menu for the specified element (as might happen if the user "right-clicked" on the element). an element locator the event name, e.g. "focus" or "blur" Explicitly simulate an event, to trigger the corresponding "onevent" handler. an element locator Move the focus to the specified element; for example, if the element is an input field, move the cursor to that field. an element locator 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". Simulates a user pressing and releasing a key. Press the shift key and hold it down until doShiftUp() is called or a new page is loaded. Release the shift key. Press the meta key and hold it down until doMetaUp() is called or a new page is loaded. Release the meta key. Press the alt key and hold it down until doAltUp() is called or a new page is loaded. Release the alt key. Press the control key and hold it down until doControlUp() is called or a new page is loaded. Release the control key. an element locator 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". Simulates a user pressing a key (without releasing it yet). an element locator 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". Simulates a user releasing a key. an element locator Simulates a user hovering a mouse over the specified element. an element locator Simulates a user moving the mouse pointer away from the specified element. an element locator Simulates a user pressing the left mouse button (without releasing it yet) on the specified element. an element locator Simulates a user pressing the right mouse button (without releasing it yet) on the specified element. an element locator specifies the x,y position (i.e. - 10,20) of the mouse event relative to the element returned by the locator. Simulates a user pressing the left mouse button (without releasing it yet) at the specified location. an element locator specifies the x,y position (i.e. - 10,20) of the mouse event relative to the element returned by the locator. Simulates a user pressing the right mouse button (without releasing it yet) at the specified location. an element locator Simulates the event that occurs when the user releases the mouse button (i.e., stops holding the button down) on the specified element. an element locator Simulates the event that occurs when the user releases the right mouse button (i.e., stops holding the button down) on the specified element. an element locator specifies the x,y position (i.e. - 10,20) of the mouse event relative to the element returned by the locator. Simulates the event that occurs when the user releases the mouse button (i.e., stops holding the button down) at the specified location. an element locator specifies the x,y position (i.e. - 10,20) of the mouse event relative to the element returned by the locator. Simulates the event that occurs when the user releases the right mouse button (i.e., stops holding the button down) at the specified location. an element locator Simulates a user pressing the mouse button (without releasing it yet) on the specified element. an element locator specifies the x,y position (i.e. - 10,20) of the mouse event relative to the element returned by the locator. Simulates a user pressing the mouse button (without releasing it yet) on the specified element. an element locator the value to type 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.

 an element locator the value to type 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 command may 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 in the 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 to send the keystroke events corresponding to what you just typed.

 the number of milliseconds to pause after operation 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. the execution speed in milliseconds. 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. an element locator Check a toggle-button (checkbox/radio) an element locator Uncheck a toggle-button (checkbox/radio) an element locator identifying a drop-down menu an option locator (a label by default) Select an option from a drop-down using an option locator.

Option locators provide different ways of specifying options of an HTML Select element (e.g. for selecting a specific option, or for asserting that the selected option satisfies a specification). There are several forms of Select Option Locator.

  • label=labelPattern: matches options based on their labels, i.e. the visible text. (This is the default.)
    • label=regexp:^[Oo]ther
  • value=valuePattern: matches options based on their values.
    • value=other
  • id=id: matches options based on their ids.
    • id=option1
  • index=index: matches an option based on its index (offset from zero).
    • index=2

If no option locator prefix is provided, the default behaviour is to match on label.

an element locator identifying a multi-select box an option locator (a label by default) Add a selection to the set of selected options in a multi-select element using an option locator. @see #doSelect for details of option locators an element locator identifying a multi-select box an option locator (a label by default) Remove a selection from the set of selected options in a multi-select element using an option locator. @see #doSelect for details of option locators an element locator identifying a multi-select box Unselects all of the selected options in a multi-select element. an element locator for the form you want to submit Submit the specified form. This is particularly useful for forms without submit buttons, e.g. single-input "Search" forms. the URL to open; may be relative or absolute Opens an URL in the test frame. This accepts both relative and absolute URLs. The "open" command waits for the page to load before proceeding, ie. the "AndWait" suffix is implicit. Note: The URL must be on the same domain as the runner HTML due to security restrictions in the browser (Same Origin Policy). If you need to open an URL on another domain, use the Selenium Server to start a new browser session on that domain. the URL to open, which can be blank the JavaScript window ID of the window to select Opens a popup window (if a window with that ID isn't already open). After opening the window, you'll need to select it using the selectWindow command.

This command can also be a useful workaround for bug SEL-339. In some cases, Selenium will be unable to intercept a call to window.open (if the call occurs during or before the "onLoad" event, for example). In those cases, you can force Selenium to notice the open window's name by using the Selenium openWindow command, using an empty (blank) url, like this: openWindow("", "myFunnyWindow").

 the JavaScript window ID of the window to select Selects a popup window using a window locator; once a popup window has been selected, all commands go to that window. To select the main window again, use null as the target.

Window locators provide different ways of specifying the window object: by title, by internal JavaScript "name," or by JavaScript variable.

  • title=My Special Window: Finds the window using the text that appears in the title bar. Be careful; two windows can share the same title. If that happens, this locator will just pick one.
  • name=myWindow: Finds the window using its internal JavaScript "name" property. This is the second parameter "windowName" passed to the JavaScript method window.open(url, windowName, windowFeatures, replaceFlag) (which Selenium intercepts).
  • var=variableName: Some pop-up windows are unnamed (anonymous), but are associated with a JavaScript variable name in the current application window, e.g. "window.foo = window.open(url);". In those cases, you can open the window using "var=foo".

If no window locator prefix is provided, we'll try to guess what you mean like this:

1.) if windowID is null, (or the string "null") then it is assumed the user is referring to the original window instantiated by the browser).

2.) if the value of the "windowID" parameter is a JavaScript variable name in the current application window, then it is assumed that this variable contains the return value from a call to the JavaScript window.open() method.

3.) Otherwise, selenium looks in a hash it maintains that maps string names to window "names".

4.) If that fails, we'll try looping over all of the known windows to try to find the appropriate "title". Since "title" is not necessarily unique, this may have unexpected behavior.

If you're having trouble figuring out the name of a window that you want to manipulate, look at the Selenium log messages which identify the names of windows created via window.open (and therefore intercepted by Selenium). You will see messages like the following for each window as it is opened:

debug: window.open call intercepted; window ID (which you can use with selectWindow()) is "myNewWindow"

In some cases, Selenium will be unable to intercept a call to window.open (if the call occurs during or before the "onLoad" event, for example). (This is bug SEL-339.) In those cases, you can force Selenium to notice the open window's name by using the Selenium openWindow command, using an empty (blank) url, like this: openWindow("", "myFunnyWindow").

 an identifier for the popup window, which can take on a number of different meanings Simplifies the process of selecting a popup window (and does not offer functionality beyond what selectWindow() already provides).
  • If windowID is either not specified, or specified as "null", the first non-top window is selected. The top window is the one that would be selected by selectWindow() without providing a windowID . This should not be used when more than one popup window is in play.
  • Otherwise, the window will be looked up considering windowID as the following in order: 1) the "name" of the window, as specified to window.open(); 2) a javascript variable which is a reference to a window; and 3) the title of the window. This is the same ordered lookup performed by selectWindow .
 Selects the main window. Functionally equivalent to using selectWindow() and specifying no value for windowID. an element locator identifying a frame or iframe Selects a frame within the current window. (You may invoke this command multiple times to select nested frames.) To select the parent frame, use "relative=parent" as a locator; to select the top frame, use "relative=top". You can also select a frame by its 0-based index number; select the first frame with "index=0", or the third frame with "index=2".

You may also use a DOM expression to identify the frame you want directly, like this: dom=frames["main"].frames["subframe"]

 true if the new frame is this code's window starting frame new frame (which might be relative to the current one) Determine whether current/locator identify the frame containing this running code.

This is useful in proxy injection mode, where this code runs in every browser frame and window, and sometimes the selenium server needs to identify the "current" frame. In this case, when the test calls selectFrame, this routine is called for each frame to figure out which one has been selected. The selected frame will return true, while all others will return false.

 true if the new window is this code's window starting window new window (which might be relative to the current one, e.g., "_parent") Determine whether currentWindowString plus target identify the window containing this running code.

This is useful in proxy injection mode, where this code runs in every browser frame and window, and sometimes the selenium server needs to identify the "current" window. In this case, when the test calls selectWindow, this routine is called for each window to figure out which one has been selected. The selected window will return true, while all others will return false.

 the JavaScript window "name" of the window that will appear (not the text of the title bar) If unspecified, or specified as "null", this command will wait for the first non-top window to appear (don't rely on this if you are working with multiple popups simultaneously). a timeout in milliseconds, after which the action will return with an error. If this value is not specified, the default Selenium timeout will be used. See the setTimeout() command. Waits for a popup window to appear and load up.

By default, Selenium's overridden window.confirm() function will return true, as if the user had manually clicked OK; after running this command, the next call to confirm() will return false, as if the user had clicked Cancel. Selenium will then resume using the default behavior for future confirmations, automatically returning true (OK) unless/until you explicitly call this command for each confirmation.

Take note - every time a confirmation comes up, you must consume it with a corresponding getConfirmation, or else the next selenium operation will fail.

Undo the effect of calling chooseCancelOnNextConfirmation. Note that Selenium's overridden window.confirm() function will normally automatically return true, as if the user had manually clicked OK, so you shouldn't need to use this command unless for some reason you need to change your mind prior to the next confirmation. After any confirmation, Selenium will resume using the default behavior for future confirmations, automatically returning true (OK) unless/until you explicitly call chooseCancelOnNextConfirmation for each confirmation.

Take note - every time a confirmation comes up, you must consume it with a corresponding getConfirmation, or else the next selenium operation will fail.

the answer to give in response to the prompt pop-up Instructs Selenium to return the specified answer string in response to the next JavaScript prompt [window.prompt()]. Simulates the user clicking the "back" button on their browser. Simulates the user clicking the "Refresh" button on their browser. Simulates the user clicking the "close" button in the titlebar of a popup window or tab. true if there is an alert Has an alert occurred?

This function never throws an exception

true if there is a pending prompt Has a prompt occurred?

This function never throws an exception

true if there is a pending confirmation Has confirm() been called?

This function never throws an exception

The message of the most recent JavaScript alert Retrieves the message of a JavaScript alert generated during the previous action, or fail if there were no alerts.

Getting an alert has the same effect as manually clicking OK. If an alert is generated but you do not consume it with getAlert, the next Selenium action will fail.

Under Selenium, JavaScript alerts will NOT pop up a visible alert dialog.

Selenium does NOT support JavaScript alerts that are generated in a page's onload() event handler. In this case a visible dialog WILL be generated and Selenium will hang until someone manually clicks OK.

 the message of the most recent JavaScript confirmation dialog Retrieves the message of a JavaScript confirmation dialog generated during the previous action.

By default, the confirm function will return true, having the same effect as manually clicking OK. This can be changed by prior execution of the chooseCancelOnNextConfirmation command.

If an confirmation is generated but you do not consume it with getConfirmation, the next Selenium action will fail.

NOTE: under Selenium, JavaScript confirmations will NOT pop up a visible dialog.

NOTE: Selenium does NOT support JavaScript confirmations that are generated in a page's onload() event handler. In this case a visible dialog WILL be generated and Selenium will hang until you manually click OK.

the message of the most recent JavaScript question prompt Retrieves the message of a JavaScript question prompt dialog generated during the previous action.

Successful handling of the prompt requires prior execution of the answerOnNextPrompt command. If a prompt is generated but you do not get/verify it, the next Selenium action will fail.

NOTE: under Selenium, JavaScript prompts will NOT pop up a visible dialog.

NOTE: Selenium does NOT support JavaScript prompts that are generated in a page's onload() event handler. In this case a visible dialog WILL be generated and Selenium will hang until someone manually clicks OK.

 the absolute URL of the current page Gets the absolute URL of the current page. the title of the current page Gets the title of the current page. the entire text of the page Gets the entire text of the page. the element value, or "on/off" for checkbox/radio elements an element locator Gets the (whitespace-trimmed) value of an input field (or anything else with a value parameter). For checkbox/radio elements, the value will be "on" or "off" depending on whether the element is checked or not. the text of the element an element locator Gets the text of an element. This works for any element that contains text. This command uses either the textContent (Mozilla-like browsers) or the innerText (IE-like browsers) of the element, which is the rendered text shown to the user. an element locator Briefly changes the backgroundColor of the specified element yellow. Useful for debugging. the results of evaluating the snippet the JavaScript snippet to run Gets the result of evaluating the specified JavaScript snippet. The snippet may have multiple lines, but only the result of the last line will be returned.

Note that, by default, the snippet will run in the context of the "selenium" object itself, so this will refer to the Selenium object. Use window to refer to the window of your application, e.g. window.document.getElementById('foo')

If you need to use a locator to refer to a single element in your application page, you can use this.browserbot.findElement("id=foo") where "id=foo" is your locator.

 true if the checkbox is checked, false otherwise an element locator pointing to a checkbox or radio button Gets whether a toggle-button (checkbox/radio) is checked. Fails if the specified element doesn't exist or isn't a toggle-button. the text from the specified cell a cell address, e.g. "foo.1.4" Gets the text from a cell of a table. The cellAddress syntax tableLocator.row.column, where row and column start at 0. an array of all selected option labels in the specified select drop-down an element locator identifying a drop-down menu Gets all option labels (visible text) for selected options in the specified select or multi-select element. the selected option label in the specified select drop-down an element locator identifying a drop-down menu Gets option label (visible text) for selected option in the specified select element. an array of all selected option values in the specified select drop-down an element locator identifying a drop-down menu Gets all option values (value attributes) for selected options in the specified select or multi-select element. the selected option value in the specified select drop-down an element locator identifying a drop-down menu Gets option value (value attribute) for selected option in the specified select element. an array of all selected option indexes in the specified select drop-down an element locator identifying a drop-down menu Gets all option indexes (option number, starting at 0) for selected options in the specified select or multi-select element. the selected option index in the specified select drop-down an element locator identifying a drop-down menu Gets option index (option number, starting at 0) for selected option in the specified select element. an array of all selected option IDs in the specified select drop-down an element locator identifying a drop-down menu Gets all option element IDs for selected options in the specified select or multi-select element. the selected option ID in the specified select drop-down an element locator identifying a drop-down menu Gets option element ID for selected option in the specified select element. true if some option has been selected, false otherwise an element locator identifying a drop-down menu Determines whether some option in a drop-down menu is selected. an array of all option labels in the specified select drop-down an element locator identifying a drop-down menu Gets all option labels in the specified select drop-down. the value of the specified attribute an element locator followed by an @ sign and then the name of the attribute, e.g. "foo@bar" Gets the value of an element attribute. The value of the attribute may differ across browsers (this is the case for the "style" attribute, for example). true if the pattern matches the text, false otherwise a pattern to match with the text of the page Verifies that the specified text pattern appears somewhere on the rendered page shown to the user. true if the element is present, false otherwise an element locator Verifies that the specified element is somewhere on the page. true if the specified element is visible, false otherwise an element locator Determines if the specified element is visible. An element can be rendered invisible by setting the CSS "visibility" property to "hidden", or the "display" property to "none", either for the element itself or one if its ancestors. This method will fail if the element is not present. true if the input element is editable, false otherwise an element locator Determines whether the specified input element is editable, ie hasn't been disabled. This method will fail if the specified element isn't an input element. the IDs of all buttons on the page Returns the IDs of all buttons on the page.

If a given button has no ID, it will appear as "" in this array.

 the IDs of all links on the page Returns the IDs of all links on the page.

If a given link has no ID, it will appear as "" in this array.

 the IDs of all field on the page Returns the IDs of all input fields on the page.

If a given field has no ID, it will appear as "" in this array.

 the set of values of this attribute from all known windows. name of an attribute on the windows Returns an array of JavaScript property values from all known windows having one. an element locator offset in pixels from the current location to which the element should be moved, e.g., "+70,-300" deprecated - use dragAndDrop instead the number of pixels between "mousemove" events Configure the number of pixels between "mousemove" events during dragAndDrop commands (default=10).

Setting this value to 0 means that we'll send a "mousemove" event to every single pixel in between the start location and the end location; that can be very slow, and may cause some browsers to force the JavaScript to timeout.

If the mouse speed is greater than the distance between the two dragged objects, we'll just send one "mousemove" at the start location and then one final one at the end location.

 the number of pixels between "mousemove" events during dragAndDrop commands (default=10) Returns the number of pixels between "mousemove" events during dragAndDrop commands (default=10). an element locator offset in pixels from the current location to which the element should be moved, e.g., "+70,-300" Drags an element a certain distance and then drops it an element to be dragged an element whose location (i.e., whose center-most pixel) will be the point where locatorOfObjectToBeDragged is dropped Drags an element and drops it on another element Gives focus to the currently selected window Resize currently selected window to take up the entire screen Array of identifiers of all windows that the browser knows about. Returns the IDs of all windows that the browser knows about in an array. Array of names of all windows that the browser knows about. Returns the names of all windows that the browser knows about in an array. Array of titles of all windows that the browser knows about. Returns the titles of all windows that the browser knows about in an array. the entire HTML source Returns the entire HTML source between the opening and closing "html" tags. an element locator pointing to an input element or textarea the numerical position of the cursor in the field; position should be 0 to move the position to the beginning of the field. You can also set the cursor to -1 to move it to the end of the field. Moves the text cursor to the specified position in the given input element or textarea. This method will fail if the specified element isn't an input element or textarea. of relative index of the element to its parent (starting from 0) an element locator pointing to an element Get the relative index of an element to its parent (starting from 0). The comment node and empty text node will be ignored. true if element1 is the previous sibling of element2, false otherwise an element locator pointing to the first element an element locator pointing to the second element Check if these two elements have same parent and are ordered siblings in the DOM. Two same elements will not be considered ordered. of pixels from the edge of the frame. an element locator pointing to an element OR an element itself Retrieves the horizontal position of an element of pixels from the edge of the frame. an element locator pointing to an element OR an element itself Retrieves the vertical position of an element width of an element in pixels an element locator pointing to an element Retrieves the width of an element height of an element in pixels an element locator pointing to an element Retrieves the height of an element the numerical position of the cursor in the field an element locator pointing to an input element or textarea Retrieves the text cursor position in the given input element or textarea; beware, this may not work perfectly on all browsers.

Specifically, if the cursor/selection has been cleared by JavaScript, this command will tend to return the position of the last location of the cursor, even though the cursor is now gone from the page. This is filed as SEL-243.

This method will fail if the specified element isn't an input element or textarea, or there is no cursor in the element. the value passed in the value to return Returns the specified expression.

This is useful because of JavaScript preprocessing. It is used to generate commands like assertExpression and waitForExpression.

 the number of nodes that match the specified xpath the xpath expression to evaluate. do NOT wrap this expression in a 'count()' function; we will do that for you. Returns the number of nodes that match the specified xpath, eg. "//table" would give the number of tables. an element locator pointing to an element a string to be used as the ID of the specified element Temporarily sets the "id" attribute of the specified element, so you can locate it in the future using its ID rather than a slow/complicated XPath. This ID will disappear once the page is reloaded. boolean, true means we'll prefer to use native XPath; false means we'll only use JS XPath Specifies whether Selenium should use the native in-browser implementation of XPath (if any native version is available); if you pass "false" to this function, we will always use our pure-JavaScript xpath library. Using the pure-JS xpath library can improve the consistency of xpath element locators between different browser vendors, but the pure-JS version is much slower than the native implementations. boolean, true means we'll ignore attributes without value at the expense of xpath "correctness"; false means we'll sacrifice speed for correctness. Specifies whether Selenium will ignore xpath attributes that have no value, i.e. are the empty string, when using the non-native xpath evaluation engine. You'd want to do this for performance reasons in IE. However, this could break certain xpaths, for example an xpath that looks for an attribute whose value is NOT the empty string. The hope is that such xpaths are relatively rare, but the user should have the option of using them. Note that this only influences xpath evaluation when using the ajaxslt engine (i.e. not "javascript-xpath"). the JavaScript snippet to run a timeout in milliseconds, after which this command will return with an error Runs the specified JavaScript snippet repeatedly until it evaluates to "true". The snippet may have multiple lines, but only the result of the last line will be considered.

Note that, by default, the snippet will be run in the runner's test window, not in the window of your application. To get the window of your application, you can use the JavaScript snippet selenium.browserbot.getCurrentWindow(), and then run your JavaScript in there

 a timeout in milliseconds, after which the action will return with an error Specifies the amount of time that Selenium will wait for actions to complete.

Actions that require waiting include "open" and the "waitFor*" actions.

The default timeout is 30 seconds. a timeout in milliseconds, after which this command will return with an error Waits for a new page to load.

You can use this command instead of the "AndWait" suffixes, "clickAndWait", "selectAndWait", "typeAndWait" etc. (which are only available in the JS API).

Selenium constantly keeps track of new pages loading, and sets a "newPageLoaded" flag when it first notices a page load. Running any other Selenium command after turns the flag to false. Hence, if you want to wait for a page to load, you must wait immediately after a Selenium command that caused a page-load.

 FrameAddress from the server side a timeout in milliseconds, after which this command will return with an error Waits for a new frame to load.

Selenium constantly keeps track of new pages and frames loading, and sets a "newPageLoaded" flag when it first notices a page load.

See waitForPageToLoad for more information. all cookies of the current page under test Return all cookies of the current page under test. the value of the cookie the name of the cookie Returns the value of the cookie with the specified name, or throws an error if the cookie is not present. true if a cookie with the specified name is present, or false otherwise. the name of the cookie Returns true if a cookie with the specified name is present, or false otherwise. name and value of the cookie in a format "name=value" options for the cookie. Currently supported options include 'path', 'max_age' and 'domain'. the optionsString's format is "path=/path/, max_age=60, domain=.foo.com". The order of options are irrelevant, the unit of the value of 'max_age' is second. Note that specifying a domain that isn't a subset of the current domain will usually fail. Create a new cookie whose path and domain are same with those of current page under test, unless you specified a path for this cookie explicitly. the name of the cookie to be deleted options for the cookie. Currently supported options include 'path', 'domain' and 'recurse.' The optionsString's format is "path=/path/, domain=.foo.com, recurse=true". The order of options are irrelevant. Note that specifying a domain that isn't a subset of the current domain will usually fail. Delete a named cookie with specified path and domain. Be careful; to delete a cookie, you need to delete it using the exact same path and domain that were used to create the cookie. If the path is wrong, or the domain is wrong, the cookie simply won't be deleted. Also note that specifying a domain that isn't a subset of the current domain will usually fail. Since there's no way to discover at runtime the original path and domain of a given cookie, we've added an option called 'recurse' to try all sub-domains of the current domain with all paths that are a subset of the current path. Beware; this option can be slow. In big-O notation, it operates in O(n*m) time, where n is the number of dots in the domain name and m is the number of slashes in the path. Calls deleteCookie with recurse=true on all cookies visible to the current page. As noted on the documentation for deleteCookie, recurse=true can be much slower than simply deleting the cookies using a known domain/path. one of the following: "debug", "info", "warn", "error" or "off" Sets the threshold for browser-side logging messages; log messages beneath this threshold will be discarded. Valid logLevel strings are: "debug", "info", "warn", "error" or "off". To see the browser logs, you need to either show the log window in GUI mode, or enable browser-side logging in Selenium RC. the JavaScript snippet to run Creates a new "script" tag in the body of the current test window, and adds the specified text into the body of the command. Scripts run in this way can often be debugged more easily than scripts executed using Selenium's "getEval" command. Beware that JS exceptions thrown in these script tags aren't managed by Selenium, so you should probably wrap your script in try/catch blocks if there is any chance that the script will throw an exception. the name of the strategy to define; this should use only letters [a-zA-Z] with no spaces or other punctuation. a string defining the body of a function in JavaScript. For example: return inDocument.getElementById(locator); Defines a new function for Selenium to locate elements on the page. For example, if you define the strategy "foo", and someone runs click("foo=blah"), we'll run your function, passing you the string "blah", and click on the element that your function returns, or throw an "Element not found" error if your function returns null. We'll pass three arguments to your function:
  • locator: the string the user passed in
  • inWindow: the currently selected window
  • inDocument: the currently selected document
The function must return null if the element can't be found. the path to the file to persist the screenshot as. No filename extension will be appended by default. Directories will not be created if they do not exist, and an exception will be thrown, possibly by native code. a kwargs string that modifies the way the screenshot is captured. Example: "background=#CCFFDD" . Currently valid options:
background
the background CSS for the HTML document. This may be useful to set for capturing screenshots of less-than-ideal layouts, for example where absolute positioning causes the calculation of the canvas dimension to fail and a black background is exposed (possibly obscuring black text).
Saves the entire contents of the current window canvas to a PNG file. Contrast this with the captureScreenshot command, which captures the contents of the OS viewport (i.e. whatever is currently being displayed on the monitor), and is implemented in the RC only. Currently this only works in Firefox when running in chrome mode, and in IE non-HTA using the EXPERIMENTAL "Snapsie" utility. The Firefox implementation is mostly borrowed from the Screengrab! Firefox extension. Please see http://www.screengrab.org and http://snapsie.sourceforge.net/ for details. the name of the rollup command keyword arguments string that influences how the rollup expands into commands Executes a command rollup, which is a series of commands with a unique name, and optionally arguments that control the generation of the set of commands. If any one of the rolled-up commands fails, the rollup is considered to have failed. Rollups may also contain nested rollups. the Javascript content of the script to add (optional) the id of the new script tag. If specified, and an element with this id already exists, this operation will fail. Loads script content into a new script tag in the Selenium document. This differs from the runScript command in that runScript adds the script tag to the document of the AUT, not the Selenium document. The following entities in the script content are replaced by the characters they represent: < > & The corresponding remove command is removeScript. the id of the script element to remove. Removes a script tag from the Selenium document identified by the given id. Does nothing if the referenced tag doesn't exist. name of the desired library Only the following three can be chosen: If libraryName isn't one of these three, then no change will be made. Allows choice of one of the available libraries. the message to be sent to the browser Writes a message to the status bar and adds a note to the browser-side log. an element locator a URL pointing to the specified file. Before the file can be set in the input field (fieldLocator), Selenium RC may need to transfer the file to the local machine before attaching the file in a web page form. This is common in selenium grid configurations where the RC server driving the browser is not the same machine that started the test. Supported Browsers: Firefox ("*chrome") only. Sets a file input (upload) field to the file listed in fileLocator the absolute path to the file to be written, e.g. "c:\blah\screenshot.png" Captures a PNG screenshot to the specified file. The base 64 encoded string of the screen shot (PNG file) Capture a PNG screenshot. It then returns the file as a base 64 encoded string. The base 64 encoded string of the page screenshot (PNG file) A kwargs string that modifies the way the screenshot is captured. Example: "background=#CCFFDD". This may be useful to set for capturing screenshots of less-than-ideal layouts, for example where absolute positioning causes the calculation of the canvas dimension to fail and a black background is exposed (possibly obscuring black text). Downloads a screenshot of the browser current window canvas to a based 64 encoded PNG file. The entire windows canvas is captured, including parts rendered outside of the current view port. Currently this only works in Mozilla and when running in chrome mode. Kills the running Selenium Server and all browser sessions. After you run this command, you will no longer be able to send commands to the server; you can't remotely start the server once it has been stopped. Normally you should prefer to run the "stop" command, which terminates the current browser session, rather than shutting down the entire server. The last N log messages as a multi-line string. Retrieve the last messages logged on a specific remote control. Useful for error reports, especially when running multiple remote controls in a distributed environment. The maximum number of log messages that can be retrieve is configured on remote control startup. an integer keycode number corresponding to a java.awt.event.KeyEvent; note that Java keycodes are NOT the same thing as JavaScript keycodes! Simulates a user pressing a key (without releasing it yet) by sending a native operating system keystroke. This function uses the java.awt.Robot class to send a keystroke; this more accurately simulates typing a key on the keyboard. It does not honor settings from the shiftKeyDown, controlKeyDown, altKeyDown and metaKeyDown commands, and does not target any particular HTML element. To send a keystroke to a particular element, focus on the element first before running this command. an integer keycode number corresponding to a java.awt.event.KeyEvent; note that Java keycodes are NOT the same thing as JavaScript keycodes! Simulates a user releasing a key by sending a native operating system keystroke. This function uses the java.awt.Robot class to send a keystroke; this more accurately simulates typing a key on the keyboard. It does not honor settings from the shiftKeyDown, controlKeyDown, altKeyDown and metaKeyDown commands, and does not target any particular HTML element. To send a keystroke to a particular element, focus on the element first before running this command. an integer keycode number corresponding to a java.awt.event.KeyEvent; note that Java keycodes are NOT the same thing as JavaScript keycodes! Simulates a user pressing and releasing a key by sending a native operating system keystroke. This function uses the java.awt.Robot class to send a keystroke; this more accurately simulates typing a key on the keyboard. It does not honor settings from the shiftKeyDown, controlKeyDown, altKeyDown and metaKeyDown commands, and does not target any particular HTML element. To send a keystroke to a particular element, focus on the element first before running this command. Test-WWW-Selenium-1.36/META.yml0000644000175000017500000000276112145002321014234 0ustar mmpmmp--- abstract: 'Perl Client for the Selenium Remote Control test tool' author: - 'Maintained by: Matt Phillips , Luke Closs ' - 'Originally by Mattia Barbon ' build_requires: File::Find: 0 File::Spec: 0 File::Temp: 0 FindBin: 0 Test::Builder::Tester: 0 Test::Exception: 0 Test::Mock::LWP: 0 configure_requires: ExtUtils::MakeMaker: 6.30 dynamic_config: 0 generated_by: 'Dist::Zilla version 4.300034, CPAN::Meta::Converter version 2.120921' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 name: Test-WWW-Selenium no_index: directory: - t - xt - examples - util provides: Devel::REPL::Plugin::Selenium: file: lib/Devel/REPL/Plugin/Selenium.pm version: 1.36 Test::WWW::Selenium: file: lib/Test/WWW/Selenium.pm version: 1.36 WWW::Selenium: file: lib/WWW/Selenium.pm version: 1.36 WWW::Selenium::Util: file: lib/WWW/Selenium/Util.pm version: 1.36 requires: Carp: 0 Data::Dumper: 0 Exporter: 0 HTTP::Headers: 0 HTTP::Request: 0 IO::Socket: 0 LWP::UserAgent: 0 Test::Builder: 0 Test::More: 0 Time::HiRes: 0 URI::Escape: 0 base: 0 namespace::clean: 0 perl: 5.008 strict: 0 warnings: 0 resources: bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=Test-WWW-Selenium homepage: https://github.com/lukec/cpan-selenium-rc-perl repository: https://github.com/lukec/cpan-selenium-rc-perl.git version: 1.36 Test-WWW-Selenium-1.36/release.txt0000644000175000017500000000223312145002321015136 0ustar mmpmmp Dist::Zilla is actually pretty easy to use once you get the toolchain actually installed. After you get Dist::Zilla itself installed, from cpan-selenium-rc-perl run `dzil authordeps | cpanm`, this will install all the required modules for doing a release. Next, create a ~/.dzil/config.ini [~/projects/cpan-selenium-rc-perl (master)↑] $ cat ~/.dzil/config.ini           [%User] name  = Matt Phillips email = mattp@cpan.org [%Rights] license_class    = Perl_5 copyright_holder = Matt Phillips [%PAUSE] username = MATTP password = password This is for cpan uploading and subbing your name into the auto generated pod. `dzil build` will build the tar.gz that will be uploaded to cpan before release so you can inspect. `dzil test` runs the test suite on a build `dzil release` uses your config.ini to automatically upload the configured build to cpan. I believe the majority of seleniums current dist.ini is based off of David Golden's plugin bundle: https://metacpan.org/module/Dist::Zilla::PluginBundle::DAGOLDEN You'll have to go through to see what the individual plugins do - all in all, pretty useful stuff. Test-WWW-Selenium-1.36/Makefile.PL0000644000175000017500000000371612145002321014736 0ustar mmpmmp use strict; use warnings; use 5.008; use ExtUtils::MakeMaker 6.30; my %WriteMakefileArgs = ( "ABSTRACT" => "Perl Client for the Selenium Remote Control test tool", "AUTHOR" => "Maintained by: Matt Phillips , Luke Closs , Originally by Mattia Barbon ", "BUILD_REQUIRES" => {}, "CONFIGURE_REQUIRES" => { "ExtUtils::MakeMaker" => "6.30" }, "DISTNAME" => "Test-WWW-Selenium", "EXE_FILES" => [], "LICENSE" => "perl", "NAME" => "Test::WWW::Selenium", "PREREQ_PM" => { "Carp" => 0, "Data::Dumper" => 0, "Exporter" => 0, "HTTP::Headers" => 0, "HTTP::Request" => 0, "IO::Socket" => 0, "LWP::UserAgent" => 0, "Test::Builder" => 0, "Test::More" => 0, "Time::HiRes" => 0, "URI::Escape" => 0, "base" => 0, "namespace::clean" => 0, "strict" => 0, "warnings" => 0 }, "TEST_REQUIRES" => { "File::Find" => 0, "File::Spec" => 0, "File::Temp" => 0, "FindBin" => 0, "Test::Builder::Tester" => 0, "Test::Exception" => 0, "Test::Mock::LWP" => 0 }, "VERSION" => "1.36", "test" => { "TESTS" => "t/*.t" } ); unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) { my $tr = delete $WriteMakefileArgs{TEST_REQUIRES}; my $br = $WriteMakefileArgs{BUILD_REQUIRES}; for my $mod ( keys %$tr ) { if ( exists $br->{$mod} ) { $br->{$mod} = $tr->{$mod} if $tr->{$mod} > $br->{$mod}; } else { $br->{$mod} = $tr->{$mod}; } } } unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) { my $br = delete $WriteMakefileArgs{BUILD_REQUIRES}; my $pp = $WriteMakefileArgs{PREREQ_PM}; for my $mod ( keys %$br ) { if ( exists $pp->{$mod} ) { $pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod}; } else { $pp->{$mod} = $br->{$mod}; } } } delete $WriteMakefileArgs{CONFIGURE_REQUIRES} unless eval { ExtUtils::MakeMaker->VERSION(6.52) }; WriteMakefile(%WriteMakefileArgs); Test-WWW-Selenium-1.36/README0000644000175000017500000000664712145002321013652 0ustar mmpmmpNAME Test::WWW::Selenium - Test applications using Selenium Remote Control VERSION version 1.36 SYNOPSIS Test::WWW::Selenium is a subclass of WWW::Selenium that provides convenient testing functions. use Test::More tests => 5; use Test::WWW::Selenium; # Parameters are passed through to WWW::Selenium my $sel = Test::WWW::Selenium->new( host => "localhost", port => 4444, browser => "*firefox", browser_url => "http://www.google.com", default_names => 1, error_callback => sub { ... }, ); # use special test wrappers around WWW::Selenium commands: $sel->open_ok("http://www.google.com", undef, "fetched G's site alright"); $sel->type_ok( "q", "hello world"); $sel->click_ok("btnG"); $sel->wait_for_page_to_load_ok(5000); $sel->title_like(qr/Google Search/); $sel->error_callback(sub {...}); DESCRIPTION This module is a WWW::Selenium subclass providing some methods useful for writing tests. For each Selenium command (open, click, type, ...) there is a corresponding "_ok" method that checks the return value (open_ok, click_ok, type_ok). For each Selenium getter (get_title, ...) there are four autogenerated methods ("_is", "_isnt", "_like", "_unlike") to check the value of the attribute. By calling the constructor with "default_names" set to a true value your tests will be given a reasonable name should you choose not to provide one of your own. The test name should always be the third argument. NAME Test::WWW::Selenium - Test applications using Selenium Remote Control REQUIREMENTS To use this module, you need to have already downloaded and started the Selenium Server. (The Selenium Server is a Java application.) ADDITIONAL METHODS Test::WWW::Selenium also provides some other handy testing functions that wrap WWW::Selenium commands: get_location Returns the relative location of the current page. Works with _is, _like, ... methods. error_callback Sets the method to use when a corresponding selenium test is called and fails. For example if you call text_like(...) and it fails the sub defined in the error_callback will be called. This allows you to perform various tasks to obtain additional details that occured when obtianing the error. If this is set to undef then the callback will not be issued. $sel->debug() Starts an interactive shell to pass commands to Selenium. Commands are run against the selenium object, so you just need to type: eg: click("link=edit") AUTHORS * Maintained by: Matt Phillips , Luke Closs * Originally by Mattia Barbon CONTRIBUTORS Dan Dascalescu Scott McWhirter COPYRIGHT AND LICENSE Copyright (c) 2011 Matt Phillips Copyright (c) 2006 Luke Closs Copyright (c) 2005, 2006 Mattia Barbon This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. Test-WWW-Selenium-1.36/xt/0000755000175000017500000000000012145002321013410 5ustar mmpmmpTest-WWW-Selenium-1.36/xt/release/0000755000175000017500000000000012145002321015030 5ustar mmpmmpTest-WWW-Selenium-1.36/xt/release/portability.t0000644000175000017500000000027612145002321017564 0ustar mmpmmp#!perl use strict; use warnings; use Test::More; eval 'use Test::Portability::Files'; plan skip_all => 'Test::Portability::Files required for testing portability' if $@; run_tests(); Test-WWW-Selenium-1.36/xt/release/has-version.t0000644000175000017500000000023512145002321017453 0ustar mmpmmp#!perl use Test::More; eval "use Test::HasVersion"; plan skip_all => "Test::HasVersion required for testing version numbers" if $@; all_pm_version_ok(); Test-WWW-Selenium-1.36/xt/release/distmeta.t0000644000175000017500000000021712145002321017027 0ustar mmpmmp#!perl use Test::More; eval "use Test::CPAN::Meta"; plan skip_all => "Test::CPAN::Meta required for testing META.yml" if $@; meta_yaml_ok(); Test-WWW-Selenium-1.36/xt/release/pod-syntax.t0000644000175000017500000000021212145002321017316 0ustar mmpmmp#!perl use Test::More; eval "use Test::Pod 1.41"; plan skip_all => "Test::Pod 1.41 required for testing POD" if $@; all_pod_files_ok(); Test-WWW-Selenium-1.36/pom.xml0000644000175000017500000002055012145002321014274 0ustar mmpmmp 4.0.0 org.openqa.selenium.client-drivers 1.0-SNAPSHOT selenium-client-drivers org.openqa.selenium.client-drivers selenium-perl-client-driver pom Selenium RC Perl Client openqa-releases OpenQA Releases http://archiva.openqa.org/repository/releases/ true false openqa-snapshots OpenQA Snapshots http://archiva.openqa.org/repository/snapshots/ false true openqa-thirdparty OpenQA Third Party http://archiva.openqa.org/repository/thirdparty/ true false true test !notest maven-antrun-plugin 1.2-SNAPSHOT test test run ant ant-trax 1.6.5 maven-antrun-plugin 1.2-SNAPSHOT generate-sources generate-sources run package package run ant ant-nodeps 1.6.5 ant ant-trax 1.6.5 org.codehaus.mojo build-helper-maven-plugin attach-artifacts package attach-artifact target/selenium-perl-client-driver-${project.version}.zip zip target/selenium-perl-client-driver-${project.version}-doc.zip zip doc maven-clean-plugin . iedoc.xml lib/WWW/Selenium.pm t/selenium-core.t pm_to_blib Makefile *.tmp blib doc Test-WWW-Selenium-1.36/mypod2html.pl0000644000175000017500000000006212145002321015407 0ustar mmpmmp#!/bin/perl use Pod::Html; pod2html @ARGV; Test-WWW-Selenium-1.36/weaver.ini0000644000175000017500000000034712145002321014753 0ustar mmpmmp[@CorePrep] [Name] [Version] [Region / prelude] [Generic / SYNOPSIS] [Generic / DESCRIPTION] [Generic / OVERVIEW] [Collect / ATTRIBUTES] command = attr [Collect / METHODS] command = method [Leftovers] [Region / postlude] Test-WWW-Selenium-1.36/t/0000755000175000017500000000000012145002321013220 5ustar mmpmmpTest-WWW-Selenium-1.36/t/timeouts.t0000644000175000017500000000045512145002321015262 0ustar mmpmmp#!/usr/bin/perl use strict; use warnings; use Test::More tests => 5; use Test::Mock::LWP; BEGIN { use lib 'lib'; use_ok 't::WWW::Selenium'; # subclass for testing } my $sel = t::WWW::Selenium->new; $sel->set_timeout(50000); #msec is $sel->ua->timeout(), 230, 'lwp timeout is affected'; Test-WWW-Selenium-1.36/t/01_load.t0000644000175000017500000000020012145002321014614 0ustar mmpmmp#!/usr/bin/perl -w use strict; use Test::More tests => 2; use lib 'lib'; use_ok 'WWW::Selenium'; use_ok 'Test::WWW::Selenium'; Test-WWW-Selenium-1.36/t/test-selenium.t0000644000175000017500000002404512145002321016210 0ustar mmpmmp#!/usr/bin/perl use strict; use warnings; use Test::More; use Test::Exception; use Test::Mock::LWP; use Test::Builder::Tester tests => 64; Test::Builder::Tester::color(1); BEGIN { use lib 'lib'; use_ok 'Test::WWW::Selenium'; } Good_usage: { my $sel; Start_a_browser: { $Mock_resp->mock('content' => sub { 'OK,SESSION_ID' }); $sel = Test::WWW::Selenium->new(browser_url => 'http://foo.com'); isa_ok $sel, 'Test::WWW::Selenium'; is $sel->{session_id}, 'SESSION_ID', 'correct session id'; } Test_page_title: { $Mock_resp->mock('content' => sub { 'OK,Some Title' }); $sel->open; test_out("ok 1 - get_title, 'Some Title'"); $sel->title_is('Some Title'); test_test('title_is passes'); req_ok('cmd=getTitle&sessionId=SESSION_ID'); } Browser_gets_closed: { $Mock_resp->mock('content' => sub { 'OK' }); $sel = undef; req_ok('cmd=testComplete&sessionId=SESSION_ID'); } } Comparators: { # run these tests twice, the first time will create the function, # the second time will use the auto-loaded function for(1 .. 2) { $Mock_resp->mock('content' => sub { 'OK,SESSION_ID' }); my $sel = Test::WWW::Selenium->new(browser_url => 'http://foo.com'); $sel->open; is_pass: { $Mock_resp->mock('content' => sub { 'OK,foo' }); test_out('ok 1 - bar'); $sel->text_is('id', 'foo', 'bar'); test_test('is pass'); } is_fail: { $Mock_resp->mock('content' => sub { 'OK,baz' }); test_out('not ok 1 - bar'); test_fail(+1); $sel->text_is('id', 'foo', 'bar'); test_test(skip_err => 1, title => 'is fail'); } isnt_pass: { $Mock_resp->mock('content' => sub { 'OK,baz' }); test_out('ok 1 - bar'); $sel->text_isnt('id', 'foo', 'bar'); test_test('isnt pass'); } isnt_fail: { $Mock_resp->mock('content' => sub { 'OK,foo' }); test_out('not ok 1 - bar'); test_fail(+1); $sel->text_isnt('id', 'foo', 'bar'); test_test(skip_err => 1, title => 'isnt fail'); } like_pass: { $Mock_resp->mock('content' => sub { 'OK,foo' }); test_out('ok 1 - bar'); $sel->text_like('id', qr/foo/, 'bar'); test_test('like pass'); } like_fail: { $Mock_resp->mock('content' => sub { 'OK,baz' }); test_out('not ok 1 - bar'); test_fail(+1); $sel->text_like('id', qr/foo/, 'bar'); test_test(skip_err => 1, title => 'like fail'); } unlike_pass: { $Mock_resp->mock('content' => sub { 'OK,baz' }); test_out('ok 1 - bar'); $sel->text_unlike('id', qr/foo/, 'bar'); test_test('unlike pass'); } unlike_fail: { $Mock_resp->mock('content' => sub { 'OK,foo' }); test_out('not ok 1 - bar'); test_fail(+1); $sel->text_unlike('id', qr/foo/, 'bar'); test_test(skip_err => 1, title => 'unlike fail'); } # for $sel DESTROY $Mock_resp->mock('content' => sub { 'OK' }); } } Commands: { $Mock_resp->mock('content' => sub { 'OK,SESSION_ID' }); my $sel = Test::WWW::Selenium->new(browser_url => 'http://foo.com'); $sel->open; click_pass: { $Mock_resp->mock('content' => sub { 'OK' }); test_out('ok 1 - click, id, bar'); $sel->click_ok('id', 'bar'); test_test('click pass'); } click_fail: { $Mock_resp->mock('content' => sub { 'Failed to click' }); test_out('not ok 1 - click, id, bar'); test_err("# Error requesting http://localhost:4444/selenium-server/driver/?cmd=click&1=id&2=bar&sessionId=SESSION_ID:"); test_err("# Failed to click"); test_fail(+1); $sel->click_ok('id', 'bar'); test_test(skip_err => 1, title => 'click fail'); } # for $sel DESTROY $Mock_resp->mock('content' => sub { 'OK' }); } no_locatior: { $Mock_resp->mock('content' => sub { 'OK,SESSION_ID' }); for my $getter (qw(alert prompt location title)) { $Mock_resp->mock('content' => sub { 'OK,SESSION_ID' }); my $sel = Test::WWW::Selenium->new(browser_url => 'http://foo.com'); $sel->open; my $method = "${getter}_is"; is_pass: { $Mock_resp->mock('content' => sub { 'OK,foo' }); test_out('ok 1 - bar'); $sel->$method('foo', 'bar'); test_test('is pass'); } is_fail: { $Mock_resp->mock('content' => sub { 'OK,baz' }); test_out('not ok 1 - bar'); test_fail(+1); $sel->$method('foo', 'bar'); test_test(skip_err => 1, title => 'is fail'); } # for $sel DESTROY $Mock_resp->mock('content' => sub { 'OK' }); } } Non_existant_command: { $Mock_resp->mock('content' => sub { 'OK,SESSION_ID' }); my $sel = Test::WWW::Selenium->new(browser_url => 'http://foo.com'); isa_ok $sel, 'Test::WWW::Selenium'; $sel->open; $Mock_resp->mock('content' => sub { 'OK' }); throws_ok { $sel->drink_coffee_ok } qr/Can't locate object method/; # for $sel DESTROY $Mock_resp->mock('content' => sub { 'OK' }); } Relative_location: { $Mock_resp->mock('content' => sub { 'OK,SESSION_ID' }); my $sel = Test::WWW::Selenium->new(browser_url => 'http://foo.com'); $sel->open; get_location: { my @locations = ('http://example.com/', 'http://example.com/bar', 'http://example.com:8080/baz', ); for my $abs (@locations) { $Mock_resp->mock('content' => sub { "OK,$abs" }); is $sel->get_location, $abs, "location $abs"; } } location_is_pass: { $Mock_resp->mock('content' => sub { 'OK,http://foo.com:23/monkey/man' }); test_out('ok 1 - bar'); $sel->location_is('http://foo.com:23/monkey/man', 'bar'); test_test('is pass'); } location_is_fail: { $Mock_resp->mock('content' => sub { 'OK,http://foo.com:23/monkey/man' }); test_out('not ok 1 - bar'); test_fail(+1); $sel->location_is('foo', 'bar'); test_test(skip_err => 1, title => 'is fail'); } # for $sel DESTROY $Mock_resp->mock('content' => sub { 'OK' }); } Default_test_names: { Default_names_off: { $Mock_resp->mock('content' => sub { 'OK,SESSION_ID' }); my $sel = Test::WWW::Selenium->new(browser_url => 'http://foo.com', default_names => 0); $sel->open; $Mock_resp->mock('content' => sub { 'OK' }); test_out('ok 1'); $sel->click_ok('id', 'bar'); test_test('default names off'); } Test_name_provided: { $Mock_resp->mock('content' => sub { 'OK,SESSION_ID' }); my $sel = Test::WWW::Selenium->new(browser_url => 'http://foo.com', default_names => 1); $sel->open; $Mock_resp->mock('content' => sub { 'OK' }); test_out('ok 1 - test name'); $sel->click_ok('id', 'bar', 'test name'); test_test('default names on with test name'); } No_test_name_provided: { $Mock_resp->mock('content' => sub { 'OK,SESSION_ID' }); my $sel = Test::WWW::Selenium->new(browser_url => 'http://foo.com'); $sel->open; $Mock_resp->mock('content' => sub { 'OK' }); test_out('ok 1 - click, id, bar'); $sel->click_ok('id', 'bar'); test_test('default names on with test name'); } } Error_callback: { my $foo = 0; $Mock_resp->mock('content' => sub { 'OK,SESSION_ID' }); my $sel = Test::WWW::Selenium->new( browser_url => 'http://foo.com', error_callback => sub { $foo++ }, ); $sel->open; is_pass: { $Mock_resp->mock('content' => sub { 'OK,foo' }); test_out('ok 1 - bar'); $sel->text_is('id', 'foo', 'bar'); test_test('is pass'); is $foo, 0, 'callback not called'; } is_fail: { $Mock_resp->mock('content' => sub { 'OK,baz' }); test_out('not ok 1 - bar'); test_fail(+1); $sel->text_is('id', 'foo', 'bar'); test_test(skip_err => 1, title => 'is fail'); is $foo, 1, 'callback called'; } isnt_pass: { $Mock_resp->mock('content' => sub { 'OK,baz' }); test_out('ok 1 - bar'); $sel->text_isnt('id', 'foo', 'bar'); test_test('isnt pass'); is $foo, 1, 'callback not called'; } isnt_fail: { $Mock_resp->mock('content' => sub { 'OK,foo' }); test_out('not ok 1 - bar'); test_fail(+1); $sel->text_isnt('id', 'foo', 'bar'); test_test(skip_err => 1, title => 'isnt fail'); is $foo, 2, 'callback called'; } like_pass: { $Mock_resp->mock('content' => sub { 'OK,foo' }); test_out('ok 1 - bar'); $sel->text_like('id', qr/foo/, 'bar'); test_test('like pass'); is $foo, 2, 'callback not called'; } like_fail: { $Mock_resp->mock('content' => sub { 'OK,baz' }); test_out('not ok 1 - bar'); test_fail(+1); $sel->text_like('id', qr/foo/, 'bar'); test_test(skip_err => 1, title => 'like fail'); is $foo, 3, 'callback called'; } unlike_pass: { $Mock_resp->mock('content' => sub { 'OK,baz' }); test_out('ok 1 - bar'); $sel->text_unlike('id', qr/foo/, 'bar'); test_test('unlike pass'); is $foo, 3, 'callback not called'; } unlike_fail: { $Mock_resp->mock('content' => sub { 'OK,foo' }); test_out('not ok 1 - bar'); test_fail(+1); $sel->text_unlike('id', qr/foo/, 'bar'); test_test(skip_err => 1, title => 'unlike fail'); is $foo, 4, 'callback called'; } # for $sel DESTROY $Mock_resp->mock('content' => sub { 'OK' }); } exit; sub req_ok { my $content = shift; my $args = $Mock_req->new_args; my $uri = "http://localhost:4444/selenium-server/driver/"; is $args->[0], 'HTTP::Request'; is $args->[1], 'POST'; is $args->[2], $uri; is $args->[4], $content; } Test-WWW-Selenium-1.36/t/00-compile.t0000644000175000017500000000312412145002321015252 0ustar mmpmmp#!perl use strict; use warnings; use Test::More; use File::Find; use File::Temp qw{ tempdir }; my @modules; find( sub { return if $File::Find::name !~ /\.pm\z/; my $found = $File::Find::name; $found =~ s{^lib/}{}; $found =~ s{[/\\]}{::}g; $found =~ s/\.pm$//; return if $found =~ /REPL/; push @modules, $found; }, 'lib', ); sub _find_scripts { my $dir = shift @_; my @found_scripts = (); find( sub { return unless -f; my $found = $File::Find::name; return if $found =~ /REPL/; open my $FH, '<', $_ or do { note( "Unable to open $found in ( $! ), skipping" ); return; }; my $shebang = <$FH>; return unless $shebang =~ /^#!.*?\bperl\b\s*$/; push @found_scripts, $found; }, $dir, ); return @found_scripts; } my @scripts; do { push @scripts, _find_scripts($_) if -d $_ } for qw{ bin script scripts }; my $plan = scalar(@modules) + scalar(@scripts); $plan ? (plan tests => $plan) : (plan skip_all => "no tests to run"); { # fake home for cpan-testers local $ENV{HOME} = tempdir( CLEANUP => 1 ); like( qx{ $^X -Ilib -e "require $_; print '$_ ok'" }, qr/^\s*$_ ok/s, "$_ loaded ok" ) for sort @modules; SKIP: { eval "use Test::Script 1.05; 1;"; skip "Test::Script needed to test script compilation", scalar(@scripts) if $@; foreach my $file ( @scripts ) { my $script = $file; $script =~ s!.*/!!; script_compiles( $file, "$script script compiles" ); } } } Test-WWW-Selenium-1.36/t/selenium-rc.t0000644000175000017500000001074712145002321015641 0ustar mmpmmp#!/usr/bin/perl use strict; use warnings; use Test::More tests => 50; use Test::Exception; use Test::Mock::LWP; BEGIN { use lib 'lib'; use_ok 'WWW::Selenium'; use_ok 'Test::WWW::Selenium'; } Good_usage: { my $sel = WWW::Selenium->new( host => 'localhost', port => 4444, browser => '*firefox', browser_url => 'http://foo.com' ); isa_ok $sel, 'WWW::Selenium'; is $sel->{host}, 'localhost'; is $sel->{port}, 4444; is $sel->{browser_start_command}, '*firefox'; is $sel->{browser_url}, 'http://foo.com'; is $sel->{session_id}, undef; Start_up_selenium: { $Mock_resp->mock( content => sub {'OK,SESSION_ID'} ); $sel->start; is $sel->{session_id}, 'SESSION_ID'; req_ok('cmd=getNewBrowserSession&1=%2Afirefox&2=http%3A%2F%2Ffoo.com'); $Mock_resp->mock( content => sub { 'OK' } ); $sel->open; } Execute_command: { $Mock_resp->mock( content => sub { 'OK,Some Title' } ); is $sel->get_title, 'Some Title'; req_ok('cmd=getTitle&sessionId=SESSION_ID'); } Close_down_selenium: { $Mock_resp->mock( content => sub { 'OK' } ); $sel->stop; is $sel->{session_id}, undef; req_ok('cmd=testComplete&sessionId=SESSION_ID'); } } No_browser_url: { throws_ok { WWW::Selenium->new } qr#browser_url is mandatory#; } Default_args: { my $sel = WWW::Selenium->new( browser_url => 'http://foo.com' ); is $sel->{host}, 'localhost'; is $sel->{port}, 4444; is $sel->{browser_start_command}, '*firefox'; is $sel->{browser_url}, 'http://foo.com'; is $sel->{session_id}, undef; } start_fails: { my $sel = WWW::Selenium->new( browser_url => 'http://foo.com' ); $Mock_resp->mock( content => sub { 'Error: foo' } ); throws_ok { $sel->start } qr#Error: foo#; } Failing_command: { my $sel = WWW::Selenium->new( browser_url => 'http://foo.com' ); $Mock_resp->mock( content => sub { 'OK,SESSION_ID' } ); $sel->start; $sel->open; $Mock_resp->mock( content => sub { 'Error: foo' } ); throws_ok { $sel->get_title } qr#Error: foo#; $Mock_resp->mock( content => sub { 'OK' } ); } Multi_values: { my $sel = WWW::Selenium->new( browser_url => 'http://foo.com' ); $Mock_resp->mock( content => sub { 'OK,SESSION_ID' } ); $sel->start; $sel->open; my %testcases = ( 'one,two,three' => [qw(one two three)], 'one\\,two' => ['one,two'], ); my %skip_testcases = ( 'veni\, vidi\, vici,c:\\foo\\bar,c:\\I came\, I \\saw\\\, I conquered', => ['veni, vidi, vici', 'c:\foo\bar', 'c:\I came, I \saw\, I conquered', ], 'one\\\\,two' => ['one\\,two'], 'one\\\\\\,two' => ['one\\', 'two'], ); my $tester = sub { my $tests = shift; for my $k (keys %$tests) { $Mock_resp->mock( content => sub { "OK,$k" } ); my $fields = [$sel->get_all_fields]; is_deeply $fields, $tests->{$k}, "parsing $k"; } }; $tester->(\%testcases); TODO: { local $TODO = 'Need to fix get_string_array'; $tester->(\%skip_testcases); } } Stop_called_twice: { my $sel = WWW::Selenium->new( browser_url => 'http://foo.com' ); $Mock_resp->mock( content => sub { 'OK,SESSION_ID' } ); $sel->start; is $sel->{session_id}, 'SESSION_ID'; $Mock_resp->mock( content => sub { 'OK' } ); $sel->stop; is $sel->{session_id}, undef; req_ok('cmd=testComplete&sessionId=SESSION_ID'); $sel->stop; is_deeply $Mock_req->new_args, undef; } With_session_id: { my $sel = Test::WWW::Selenium->new( browser_url => 'http://foo.com', session_id => 'MY_ID', ); $Mock_resp->mock( content => sub { die "Should never be called!" } ); $sel->start; is $sel->{session_id}, 'MY_ID'; $Mock_resp->mock( content => sub { 'OK' } ); $sel->stop; is $sel->{session_id}, undef; req_ok('cmd=testComplete&sessionId=MY_ID'); $sel->stop; is_deeply $Mock_req->new_args, undef; } exit; sub req_ok { my $content = shift; my $args = $Mock_req->new_args; is $args->[0], 'HTTP::Request'; is $args->[1], 'POST'; is $args->[2], "http://localhost:4444/selenium-server/driver/"; is $args->[4], $content; } Test-WWW-Selenium-1.36/t/test_google.t0000644000175000017500000000141612145002321015722 0ustar mmpmmp#!/usr/bin/perl use strict; use warnings; use lib 'lib'; use Test::WWW::Selenium; use WWW::Selenium::Util qw(server_is_running); use Test::More; my ($host, $port) = server_is_running(); if ($host and $port) { plan tests => 1; } else { plan skip_all => "No selenium server found!"; exit 0; } my $sel = Test::WWW::Selenium->new( host => $host, port => $port, browser => "*firefox", browser_url => "http://www.google.com/webhp", ); $sel->open('http://www.google.com/webhp?hl=en'); $sel->type("q", "hello world"); $sel->pause(2000); $sel->click("btnG"); # google search is now an ajax call.. no page to load! #$sel->wait_for_page_to_load(5000); $sel->pause(2000); $sel->title_like(qr/Google Search/); Test-WWW-Selenium-1.36/t/selenium-compat.t0000644000175000017500000000634712145002321016521 0ustar mmpmmp#!/usr/bin/perl use strict; use warnings; use Test::More tests => 27; use Test::Exception; # The purpose of these tests are to ensure that WWW::Selenium does not # break backwards compatibility with previously released versions. BEGIN { use lib 'lib'; use_ok 't::WWW::Selenium'; # subclass for testing } my $sel = t::WWW::Selenium->new; isa_ok $sel, 't::WWW::Selenium'; $sel->open; Simple_check: { $sel->_method_exists("is_location"); $sel->_method_exists("get_checked"); $sel->_method_exists("is_selected"); $sel->_method_exists("get_selected_options"); $sel->_method_exists("get_absolute_location"); } Is_location: { # is_location now uses get_location under the hood True: { $sel->_set_mock_response_content('http://example.com'); ok $sel->is_location('example.com'); } False: { $sel->_set_mock_response_content('http://examplebad.com'); ok !$sel->is_location('monkey.com'); } } Get_checked: { True: { $sel->_set_mock_response_content('1'); is $sel->get_checked('id=foo'), 'true'; } False: { $sel->_set_mock_response_content('0'); is $sel->get_checked('id=foo'), 'false'; } Element_does_not_exist: { my $error_msg = "Element id=foo not found"; $sel->_set_mock_response_content("ERROR: $error_msg"); throws_ok { $sel->get_checked('id=foo') } qr/\Q$error_msg\E/; } } Is_selected: { True: { $sel->_set_mock_response_content('ape,monkey'); ok $sel->is_selected('id=foo', 'monkey'); } False: { $sel->_set_mock_response_content('ape,human'); ok !$sel->is_selected('id=foo', 'monkey'); } Label: { $sel->_set_mock_response_content('ape,monkey'); ok $sel->is_selected('id=foo', 'label=monkey'); } Value: { $sel->_set_mock_response_content('ape,monkey'); ok $sel->is_selected('id=foo', 'value=monkey'); } Id: { $sel->_set_mock_response_content('ape,monkey'); ok $sel->is_selected('id=foo', 'id=monkey'); } Index_true: { $sel->_set_mock_response_content('1,2,3'); ok $sel->is_selected('id=foo', 'index=2'); } Index_false: { $sel->_set_mock_response_content('1,3,4'); ok !$sel->is_selected('id=foo', 'index=2'); } Element_does_not_exist: { my $error_msg = "Element id=foo not found"; $sel->_set_mock_response_content("ERROR: $error_msg"); throws_ok { $sel->is_selected('id=foo', 'value=monkey') } qr/\Q$error_msg\E/; } } Get_selected_options: { None_selected: { $sel->_set_mock_response_content(''); is_deeply [$sel->get_selected_options('id=foo')], ['']; } One_selected: { $sel->_set_mock_response_content('first response'); is_deeply [$sel->get_selected_options('id=foo')], ['first response']; } Two_selected: { $sel->_set_mock_response_content('first response,second'); is_deeply [$sel->get_selected_options('id=foo')], ['first response', 'second']; } } Get_absolute_location: { $sel->_set_mock_response_content('http://example.com'); is $sel->get_absolute_location, 'http://example.com'; } Test-WWW-Selenium-1.36/t/WWW/0000755000175000017500000000000012145002321013704 5ustar mmpmmpTest-WWW-Selenium-1.36/t/WWW/Selenium.pm0000644000175000017500000000305012145002321016021 0ustar mmpmmppackage t::WWW::Selenium; use strict; use warnings; use Test::More; use Test::Exception; use Test::Mock::LWP; use base 'WWW::Selenium'; my $ua_timeout = 180; sub new { my $class = shift; my %opts = ( host => 'localhost', port => 4444, browser => '*firefox', browser_url => 'http://example.com', no_deprecation_msg => 1, @_, ); my $self = $class->SUPER::new( %opts ); # Store mock www user agent and startup a session $self->_set_mock_response_content('FAKE_SESSION_ID'); $self->start; $self->ua->mock( timeout => sub { $ua_timeout = $_[1] if $_[1]; return $ua_timeout; } ); # Test that the session was started as we expect my $req_args = $Mock_req->new_args; my $url = "http://$opts{host}:$opts{port}/selenium-server/driver/"; my $content = "cmd=getNewBrowserSession&1=%2Afirefox" . "&2=http%3A%2F%2Fexample.com"; is $req_args->[1], 'POST'; is $req_args->[2], $url; is $req_args->[4], $content; return $self; } sub _set_mock_response_content { my ($self, $content) = @_; my $msg = $content; if (length($msg) == 0 or $msg !~ /^ERROR/) { $msg = "OK,$msg"; } $Mock_resp->mock( content => sub { $msg } ); } sub _method_exists { my ($self, $method, $return_type) = @_; my $response = 'Something'; $response = 'true' if $method =~ m/^(?:is_|get_whether)/i; $self->_set_mock_response_content($response); lives_ok { $self->$method(1, 2) } "$method lives"; } 1; Test-WWW-Selenium-1.36/t/selenium-core.t0000644000175000017500000001421212145002321016154 0ustar mmpmmp#!/usr/bin/perl use strict; use warnings; use Test::More qw/no_plan/; BEGIN { use lib 't/lib'; use_ok 'LWP::UserAgent'; # mocked use_ok 'HTTP::Response'; # mocked use lib 'lib'; use t::WWW::Selenium; } my $sel = t::WWW::Selenium->new; isa_ok $sel, 't::WWW::Selenium'; $sel->open; $sel->_method_exists("click"); $sel->_method_exists("double_click"); $sel->_method_exists("context_menu"); $sel->_method_exists("click_at"); $sel->_method_exists("double_click_at"); $sel->_method_exists("context_menu_at"); $sel->_method_exists("fire_event"); $sel->_method_exists("focus"); $sel->_method_exists("key_press"); $sel->_method_exists("shift_key_down"); $sel->_method_exists("shift_key_up"); $sel->_method_exists("meta_key_down"); $sel->_method_exists("meta_key_up"); $sel->_method_exists("alt_key_down"); $sel->_method_exists("alt_key_up"); $sel->_method_exists("control_key_down"); $sel->_method_exists("control_key_up"); $sel->_method_exists("key_down"); $sel->_method_exists("key_up"); $sel->_method_exists("mouse_over"); $sel->_method_exists("mouse_out"); $sel->_method_exists("mouse_down"); $sel->_method_exists("mouse_down_right"); $sel->_method_exists("mouse_down_at"); $sel->_method_exists("mouse_down_right_at"); $sel->_method_exists("mouse_up"); $sel->_method_exists("mouse_up_right"); $sel->_method_exists("mouse_up_at"); $sel->_method_exists("mouse_up_right_at"); $sel->_method_exists("mouse_move"); $sel->_method_exists("mouse_move_at"); $sel->_method_exists("type"); $sel->_method_exists("type_keys"); $sel->_method_exists("set_speed"); $sel->_method_exists("get_speed"); $sel->_method_exists("check"); $sel->_method_exists("uncheck"); $sel->_method_exists("select"); $sel->_method_exists("add_selection"); $sel->_method_exists("remove_selection"); $sel->_method_exists("remove_all_selections"); $sel->_method_exists("submit"); $sel->_method_exists("open"); $sel->_method_exists("open_window"); $sel->_method_exists("select_window"); $sel->_method_exists("select_pop_up"); $sel->_method_exists("deselect_pop_up"); $sel->_method_exists("select_frame"); $sel->_method_exists("get_whether_this_frame_match_frame_expression"); $sel->_method_exists("get_whether_this_window_match_window_expression"); $sel->_method_exists("wait_for_pop_up"); $sel->_method_exists("choose_cancel_on_next_confirmation"); $sel->_method_exists("choose_ok_on_next_confirmation"); $sel->_method_exists("answer_on_next_prompt"); $sel->_method_exists("go_back"); $sel->_method_exists("refresh"); $sel->_method_exists("close"); $sel->_method_exists("is_alert_present"); $sel->_method_exists("is_prompt_present"); $sel->_method_exists("is_confirmation_present"); $sel->_method_exists("get_alert"); $sel->_method_exists("get_confirmation"); $sel->_method_exists("get_prompt"); $sel->_method_exists("get_location"); $sel->_method_exists("get_title"); $sel->_method_exists("get_body_text"); $sel->_method_exists("get_value"); $sel->_method_exists("get_text"); $sel->_method_exists("highlight"); $sel->_method_exists("get_eval"); $sel->_method_exists("is_checked"); $sel->_method_exists("get_table"); $sel->_method_exists("get_selected_labels"); $sel->_method_exists("get_selected_label"); $sel->_method_exists("get_selected_values"); $sel->_method_exists("get_selected_value"); $sel->_method_exists("get_selected_indexes"); $sel->_method_exists("get_selected_index"); $sel->_method_exists("get_selected_ids"); $sel->_method_exists("get_selected_id"); $sel->_method_exists("is_something_selected"); $sel->_method_exists("get_select_options"); $sel->_method_exists("get_attribute"); $sel->_method_exists("is_text_present"); $sel->_method_exists("is_element_present"); $sel->_method_exists("is_visible"); $sel->_method_exists("is_editable"); $sel->_method_exists("get_all_buttons"); $sel->_method_exists("get_all_links"); $sel->_method_exists("get_all_fields"); $sel->_method_exists("get_attribute_from_all_windows"); $sel->_method_exists("dragdrop"); $sel->_method_exists("set_mouse_speed"); $sel->_method_exists("get_mouse_speed"); $sel->_method_exists("drag_and_drop"); $sel->_method_exists("drag_and_drop_to_object"); $sel->_method_exists("window_focus"); $sel->_method_exists("window_maximize"); $sel->_method_exists("get_all_window_ids"); $sel->_method_exists("get_all_window_names"); $sel->_method_exists("get_all_window_titles"); $sel->_method_exists("get_html_source"); $sel->_method_exists("set_cursor_position"); $sel->_method_exists("get_element_index"); $sel->_method_exists("is_ordered"); $sel->_method_exists("get_element_position_left"); $sel->_method_exists("get_element_position_top"); $sel->_method_exists("get_element_width"); $sel->_method_exists("get_element_height"); $sel->_method_exists("get_cursor_position"); $sel->_method_exists("get_expression"); $sel->_method_exists("get_xpath_count"); $sel->_method_exists("assign_id"); $sel->_method_exists("allow_native_xpath"); $sel->_method_exists("ignore_attributes_without_value"); $sel->_method_exists("wait_for_condition"); $sel->_method_exists("set_timeout"); $sel->_method_exists("wait_for_page_to_load"); $sel->_method_exists("wait_for_frame_to_load"); $sel->_method_exists("get_cookie"); $sel->_method_exists("get_cookie_by_name"); $sel->_method_exists("is_cookie_present"); $sel->_method_exists("create_cookie"); $sel->_method_exists("delete_cookie"); $sel->_method_exists("delete_all_visible_cookies"); $sel->_method_exists("set_browser_log_level"); $sel->_method_exists("run_script"); $sel->_method_exists("add_location_strategy"); $sel->_method_exists("capture_entire_page_screenshot"); $sel->_method_exists("rollup"); $sel->_method_exists("add_script"); $sel->_method_exists("remove_script"); $sel->_method_exists("use_xpath_library"); $sel->_method_exists("set_context"); $sel->_method_exists("attach_file"); $sel->_method_exists("capture_screenshot"); $sel->_method_exists("capture_screenshot_to_string"); $sel->_method_exists("capture_entire_page_screenshot_to_string"); $sel->_method_exists("shut_down_selenium_server"); $sel->_method_exists("retrieve_last_remote_control_logs"); $sel->_method_exists("key_down_native"); $sel->_method_exists("key_up_native"); $sel->_method_exists("key_press_native"); $sel->_method_exists("wait_for_text_present"); $sel->_method_exists("wait_for_element_present"); Test-WWW-Selenium-1.36/t/test_i18n.t0000644000175000017500000000323112145002321015222 0ustar mmpmmp#!/usr/bin/perl use strict; use warnings; use lib 'lib'; use Test::WWW::Selenium; use WWW::Selenium::Util qw(server_is_running); use Test::More; use FindBin qw($Bin); use File::Spec; # utf8 wide character in print warnings will dump to stdout if we don't change binmode my $builder = Test::More->builder; binmode $builder->output, ':utf8'; binmode $builder->failure_output, ':utf8'; binmode $builder->todo_output, ':utf8'; my ($host, $port) = server_is_running(); if ($host and $port) { plan tests => 10; } else { plan skip_all => "No selenium server found!"; exit 0; } my $sel = Test::WWW::Selenium->new( host => $host, port => $port, browser => "*mock", browser_url => "http://$host:$port", ); $sel->open('file://' . File::Spec->catfile($Bin, 'files', 'test_i18n.html')); my $romance = "\x{00FC}\x{00F6}\x{00E4}\x{00DC}\x{00D6}\x{00C4} \x{00E7}\x{00E8}\x{00E9} \x{00BF}\x{00F1} \x{00E8}\x{00E0}\x{00F9}\x{00F2}"; my $korean = "\x{C5F4}\x{C5D0}"; my $chinese = "\x{4E2D}\x{6587}"; my $japanese = "\x{307E}\x{3077}"; my $dangerous = "&%?\\+|,%*"; verify_text($romance, "romance"); verify_text($korean, "korean"); verify_text($chinese, "chinese"); verify_text($japanese, "japanese"); verify_text($dangerous, "dangerous"); # todo: looks like destory() haven't been invoked $sel.stop() on linux, which # will left one firefox window not closed for each build running. # Somebody who knows perl well please check this out!! $sel->stop(); sub verify_text { my $expected = shift; my $id = shift; $sel->is_text_present_ok($expected); $sel->text_is($id, $expected); } Test-WWW-Selenium-1.36/t/files/0000755000175000017500000000000012145002321014322 5ustar mmpmmpTest-WWW-Selenium-1.36/t/files/test_click_page1.html0000644000175000017500000000302612145002321020412 0ustar mmpmmp Click Page 1 banner
Click here for next page
Click here for next page via absolute link

link to other link
link with onclick="return false"

Test-WWW-Selenium-1.36/t/files/test_click_page2.html0000644000175000017500000000170612145002321020416 0ustar mmpmmp Click Page Target banner
This is a test of the click command.

Return to test_click_page1.html Test-WWW-Selenium-1.36/t/files/test_i18n.html0000644000175000017500000000436212145002321017033 0ustar mmpmmp banner
This is a test of internationalization (i18n).
  • Romance: üöäÜÖÄ çèé ¿ñ èàùò
    • HTML encoded: &#x00FC;&#x00F6;&#x00E4;&#x00DC;&#x00D6;&#x00C4; &#x00E7;&#x00E8;&#x00E9; &#x00BF;&#x00F1; &#x00E8;&#x00E0;&#x00F9;&#x00F2;
    • URI encoded (UTF-8): %C3%BC%C3%B6%C3%A4%C3%9C%C3%96%C3%84+%C3%A7%C3%A8%C3%A9+%C2%BF%C3%B1+%C3%A8%C3%A0%C3%B9%C3%B2
  • Korean: 열에
    • HTML encoded: &#xC5F4;&#xC5D0;
    • URI encoded (UTF-8): %EC%97%B4%EC%97%90
  • Chinese: 中文
    • HTML encoded: &#x4E2D;&#x6587;
    • URI encoded (UTF-8): %E4%B8%AD%E6%96%87
  • Japanese: まぷ
    • HTML encoded: &#x307E;&#x3077;
    • URI encoded (UTF-8): %E3%81%BE%E3%81%B7
  • Dangerous: &%?\+|,%*
  • Dangerous Link IDs: veni, vidi, vici, c:\foo\bar, c:\I came, I \saw\, I conquered
  • Dangerous Labels:
    • Test-WWW-Selenium-1.36/t/interweb.t0000644000175000017500000000160512145002321015226 0ustar mmpmmp#!/usr/bin/perl use strict; use warnings; use Test::More; use lib 'lib'; BEGIN { unless ($ENV{SRC_LIVE_TESTS}) { plan skip_all => 'not running live interweb tests'; exit; } plan tests => 5; use_ok 'Test::WWW::Selenium'; } # utf8 wide character in print warnings will dump to stdout if we don't change binmode my $builder = Test::More->builder; binmode $builder->output, ':utf8'; binmode $builder->failure_output, ':utf8'; binmode $builder->todo_output, ':utf8'; my $tws = Test::WWW::Selenium->new(browser_url => 'http://example.com'); isa_ok $tws, 'Test::WWW::Selenium'; $tws->open('/'); $tws->title_like(qr/Example domains/); $tws->click_ok("//a[.='RFC 2606']"); $tws->wait_for_page_to_load; # incase the above didn't work.. $tws->pause(2000); my $location = $tws->get_location; is $location, 'http://tools.ietf.org/html/rfc2606', 'get_location is aboslute'; Test-WWW-Selenium-1.36/t/selenium-dwim.t0000644000175000017500000000306212145002321016165 0ustar mmpmmp#!/usr/bin/perl use strict; use warnings; use Test::More tests => 30; use Test::Exception; use Test::Mock::LWP; # Tests for enhancements to help users find their problems faster BEGIN { use lib 'lib'; use_ok 't::WWW::Selenium'; # subclass for testing } Forgot_to_open: { my $sel = t::WWW::Selenium->new; my $error_msg = q{You must open a page before calling getTitle. eg: $sel->open('/');}; throws_ok { $sel->get_title } qr/\Q$error_msg\E/; } Open_default: { my $sel = t::WWW::Selenium->new; lives_ok { $sel->open }; like $Mock_req->new_args->[4], qr/\Qcmd=open&1=%2F\E/, 'open specified /'; } Double_start: { my $sel = t::WWW::Selenium->new; # calls start() automatically $sel->start; is $Mock_req->new_args, undef; } Auto_stop: { my $sel = t::WWW::Selenium->new; $sel->open('/'); $sel->_set_mock_response_content('http://example.com'); $sel->get_location; $sel = undef; like $Mock_req->new_args->[4], qr/cmd=testComplete/, 'auto-stop'; } Auto_stop_off: { my $sel = t::WWW::Selenium->new(auto_stop => 0); $sel->open('/'); $sel->_set_mock_response_content('http://example.com'); $sel->get_location; $sel = undef; unlike $Mock_req->new_args->[2], qr/cmd=testComplete/, 'not auto-stop'; } Do_command_open: { my $sel = t::WWW::Selenium->new; $sel->do_command(qw(open /)); $sel->_set_mock_response_content('http://example.com'); lives_ok { $sel->get_location }; } Set_timeout_before_open: { my $sel = t::WWW::Selenium->new; lives_ok { $sel->set_timeout(3000) }; } Test-WWW-Selenium-1.36/t/test_default_server.t0000644000175000017500000000406012145002321017456 0ustar mmpmmp#!/usr/bin/perl # 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. use strict; use warnings; use lib 'lib'; use FindBin qw($Bin); use File::Spec; use Test::WWW::Selenium; use WWW::Selenium::Util qw(server_is_running); use Test::More; my ($host, $port) = server_is_running(); if ($host and $port) { plan tests => 7; } else { plan skip_all => "No selenium server found!"; exit 0; } my $test_click_page1 = File::Spec->catfile($Bin, 'files', 'test_click_page1.html'); Regular_test: { my $sel = Test::WWW::Selenium->new( host => $host, port => $port, browser => "*firefox", browser_url => "http://$host:$port", verbose => 1, ); $sel->open_ok("file://" . $test_click_page1); $sel->text_like("link", qr/Click here for next page/, "link contains expected text"); my @links = $sel->get_all_links(); ok(@links > 3); is($links[3], "linkToAnchorOnThisPage"); $sel->click("link"); $sel->wait_for_page_to_load(5000); $sel->location_like(qr/test_click_page2\.html/); $sel->click("previousPage"); $sel->wait_for_page_to_load(5000); $sel->location_like(qr/test_click_page1\.html/); } HTTP_GET: { my $sel = Test::WWW::Selenium->new( host => $host, port => $port, browser => "*firefox", browser_url => "http://$host:$port", http_method => 'GET', verbose => 1, ); $sel->open_ok("file://" . $test_click_page1); } Test-WWW-Selenium-1.36/lib/0000755000175000017500000000000012145002321013523 5ustar mmpmmpTest-WWW-Selenium-1.36/lib/WWW/0000755000175000017500000000000012145002321014207 5ustar mmpmmpTest-WWW-Selenium-1.36/lib/WWW/Selenium/0000755000175000017500000000000012145002321015770 5ustar mmpmmpTest-WWW-Selenium-1.36/lib/WWW/Selenium/Util.pm0000644000175000017500000000302112145002321017237 0ustar mmpmmppackage WWW::Selenium::Util; { $WWW::Selenium::Util::VERSION = '1.36'; } # ABSTRACT: Utility code to help test using Selenium use strict; use warnings; use IO::Socket; use base 'Exporter'; our @EXPORT_OK = qw(server_is_running); sub server_is_running { my $host = $ENV{SRC_HOST} || shift || 'localhost'; my $port = $ENV{SRC_PORT} || shift || 4444; return ($host, $port) if IO::Socket::INET->new( PeerAddr => $host, PeerPort => $port, ); return; } 1; __END__ =pod =head1 NAME WWW::Selenium::Util - Utility code to help test using Selenium =head1 VERSION version 1.36 =head1 SYNOPSIS WWW::Selenium::Util contains utility functions to help use Selenium in your test scripts: use WWW::Selenium::Util qw/server_is_running/; use Test::More; if (server_is_running) { plan tests => 1; } else { plan skip_all => "No selenium server found!"; exit 0; } # ... your tests ... =head1 NAME WWW::Selenium::Util - Utility code to help test using Selenium =head1 FUNCTIONS =head2 server_is_running( $host, $port ) Returns true if a Selenium server is running. The host and port parameters are optional, and default to C. Environment vars C and C can also be used to determine the server to check. =head1 AUTHORS Written by Luke Closs =head1 LICENSE Copyright (c) 2007 Luke Closs This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut Test-WWW-Selenium-1.36/lib/WWW/Selenium.pm0000644000175000017500000026004012145002321016330 0ustar mmpmmp# 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