The Test::WWW::Selenium does a good integration of Selenium with Perl testing framework. However by default, tests runs in sequence. One easy solution is to use the Thread::Pool::Simple module to run the test functions in parallel. Short testing showed that this parallel version ran for 19 seconds vs 39 seconds for the serial run.
#!/usr/bin/env perl
use Thread::Pool::Simple;
use Test::More "no_plan";
use Test::WWW::Selenium;
sub test_page() {
my ($url, $input, $button) = @_;
my $sel = Test::WWW::Selenium->new(
host => "localhost",
port => 4444,
browser => "*firefox",
browser_url => $url,
);
$sel->open($url);
$sel->type_ok($input, "Sauce Labs");
$sel->click_ok($button);
$sel->wait_for_page_to_load_ok(5000);
$sel->body_text_like(qr/Selenium/);
$sel->close();
}
sub test_google() {
&test_page("http://google.com", "q", "btnG");
}
sub test_yahoo() {
&test_page("http://yahoo.com", "p", "search-submit");
}
sub test_bing() {
&test_page("http://www.bing.com", "q", "go");
}
sub worker() {
my $func = shift;
# We can't pass CODE items to a pool, so we use eval
eval("&$func();");
}
my @names = (
"test_google",
"test_yahoo",
"test_bing",
);
my $pool = Thread::Pool::Simple->new(
min => 3,
max => 10,
do => [\&worker],
);
foreach $name (@names) {
print "Adding $name\n";
$pool->add($name);
}
$pool->join();
Converting the code to work with Sauce OnDemand is a breeze as well, we will also use the job-name attribute to assign name for our jobs.
#!/usr/bin/env perl
use Thread::Pool::Simple;
use Test::More "no_plan";
use Test::WWW::Selenium;
# Replace username and access-key with your real
# Sauce OnDemand username and access-key
my $settings = qq(
{
"username" : "YOUR-SAUCE-USER-NAME",
"access-key" : "YOUR-SAUCE-ACCESS-KEY",
"os" : "Linux",
"browser" : "firefox",
"browser-version" : ""
"job-name" : "_JOB_NAME_"
}
);
sub test_page() {
my ($name, $url, $input, $button) = @_;
my $opts = $settings;
$opts =~ s/_JOB_NAME_/$name/; # Add job name
my $sel = Test::WWW::Selenium->new(
host => "ondemand.saucelabs.com",
port => 80,
browser => $opts,
browser_url => $url,
);
$sel->open($url);
$sel->type_ok($input, "Sauce Labs");
$sel->click_ok($button);
$sel->wait_for_page_to_load_ok(5000);
$sel->body_text_like(qr/Selenium/);
$sel->close();
}
sub test_google() {
&test_page("Google", "http://google.com", "q", "btnG");
}
sub test_yahoo() {
&test_page("Yahoo", "http://yahoo.com", "p", "search-submit");
}
sub test_bing() {
&test_page("Bing", "http://www.bing.com", "q", "go");
}
sub worker() {
my $func = shift;
# We can't pass CODE items to a pool, so we use eval
eval("&$func();");
}
my @names = (
"test_google",
"test_yahoo",
"test_bing",
);
my $pool = Thread::Pool::Simple->new(
min => 3,
max => 10,
do => [\&worker],
);
foreach $name (@names) {
print "Adding $name\n";
$pool->add($name);
}
$pool->join();
