1 
use strict;
use warnings;
use Time::HiRes qw(sleep);
use Test::WWW::Selenium;
use Test::More "no_plan";
use Test::Exception;
my $sel = Test::WWW::Selenium->new(
    host        => "localhost",
    port        => 4444,
    browser     => "*firefox",
    browser_url => "http://10.201.3.192:8000/"
);
$sel->open_ok("/abc-dd/");
$sel->window_maximize();
$sel->$sel->$sel->$sel->_ok();
$sel->close_ok();

上記のコードは、単一の URL に対して正常に機能します。別の URL で同じ操作を実行する必要があります。次のコードは、最初の部分のみの実行を完了しました。

use strict;
use warnings;
use Time::HiRes qw(sleep);
use Test::WWW::Selenium;
use Test::More "no_plan";
use Test::Exception;
my $sel = Test::WWW::Selenium->new(
    host        => "localhost",
    port        => 4444,
    browser     => "*firefox",
    browser_url => "http://10.201.3.192:8000/"
);
$sel->open_ok("/abc-dd/");
$sel->window_maximize();
$sel->$sel->$sel->$sel->_ok();
$sel->close_ok();
$sel->open_ok("http://10.201.3.195:8000/abc-dd/");
$sel->window_maximize();
$sel->$sel->$sel->$sel->_ok();
$sel->close_ok();

1 つの Perl ファイルで 2 つの URL に対して操作を実行する必要があります。

http://10.201.3.192:8000/abc-dd/
http://10.201.3.195:8000/abc-dd/

2 番目の URL を追加するにはどうすればよいですか?

4

2 に答える 2

1

URLの配列を作成してループすることができます

my @urls = qw (http://10.201.3.192:8000 
               http://10.201.3.195:8000); # create list of urls

for my $url (@urls) {

    my $sel = Test::WWW::Selenium->new( host => "localhost", 
                                    port => 4444, 
                                    browser => "*firefox", 
                                    browser_url => $url );

    $sel->open_ok("/abc-dd/");
    $sel->
    $sel->
    ...
}
于 2012-06-15T08:45:26.537 に答える
1

再利用のためにロジックを関数にパックします。

use strict;
use warnings;
use Time::HiRes qw(sleep);
use Test::WWW::Selenium;
use Test::More "no_plan";
use Test::Exception;

sub test_url {
    my $sel = Test::WWW::Selenium->new( host => "localhost", 
                                        port => 4444, 
                                        browser => "*firefox", 
                                        browser_url => "http://10.201.3.192:8000/" );

    $sel->open_ok("/abc-dd/");
    $sel->window_maximize();
    $sel->
    $sel->
    $sel->
    $sel->_ok();
    $sel->close_ok();
}

test_url("/abc-dd/");
test_url("http://10.201.3.195:8000/abc-dd/");
于 2012-06-15T10:28:25.987 に答える