perl - 将参数传递给 Test::Class Setup 方法

Question

我需要动态调用 selenium 中的浏览器。

为此，我需要将浏览器名称作为参数发送到Test::Class. 我如何实现这一目标？

Answer 1

我认为您想获得一个浏览器，然后将其重新用于一些测试，然后再将其销毁？因此，只需使用全局来保存您创建的浏览器。例如：

my $browser = '';
sub b_connect : Test(startup) {
   $browser = WWW::Selenium->new( host => "localhost",
                              port => 4444,
                              browser => "*iexplore",
                              browser_url => "http://www.google.com",
                            );
};

sub b_disconnect : Test(shutdown) {
  $browser->close()
};

只需在您的测试中使用 $browser 变量。

Answer 2

sub startup : Test( startup ) {

    my ($self) = @_;
    my $arg = shift;

     $self->{browser_type} = $arg->{browser};

    -------------------------------#some other code for myself

    $self->{browser} =
        Test::WWW::Selenium->new(
            host        => $self->{host},
            port        => $self->{port},
            browser     => $self->{browser_type},
            browser_url => $self->{test_url},
    );

在我的测试脚本中，我需要使用以下命令调用它

my $t1 =  Test::Class::Selenium::TestCases->new(browser=>$browser,);
Test::Class->runtests($t1);