將參數傳遞給Test :: Class設置方法

Question

我需要動態調用selenium中的瀏覽器。

要達到此目的，我需要將瀏覽器名稱作爲參數發送到Test::Class中的設置或啓動方法。我如何實現這一目標？

Answer 1

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); 

Answer 2

我認爲你想獲得一個瀏覽器，然後重新使用它進行一些測試，然後再摧毀它？所以只需使用全局來保存你創建的瀏覽器。例如：

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 var即可。