Question

Selenium 2. *在Linux上运行，Firefox作为浏览器。

我使用Perl和Selenium :: Remote :: Driver模块与服务器进行交互。

有没有可用的东西检查是否有警报？ perl模块提供了几个函数来单击警报上的OK，或从中获取文本，但如果没有警报，这将引发错误 - 如何避免错误并仍然摆脱任何警报？

基本上，我希望在页面加载完成后删除所有警报（如果有的话），但不确定如何？

我尝试的另一个选项是通过在firefox配置文件中设置一个变量来禁用所有警报（当你自己使用浏览器时它会起作用），但是当Selenium使用浏览器时，警报仍然存在，因为我认为Selenium处理警报本身，因为“handleAlerts”功能，总是设置为true，我不知道如何禁用它。如果无法检查是否存在警报，则可能是解决方案。

有人有想法吗？

Answer 1

您可以尝试解除警报，使用eval块来处理异常

eval {
   $driver->accept_alert;
};
if ($@){
 warn "Maybe no alert?":
 warn $@;
}

Answer 2

我创建了几个检查警报的函数，然后根据需要取消或与之交互。

use Try::Tiny qw( try catch );

# checks if there is a javascript alert/confirm/input on the screen
sub alert_is_present
{
    my $d = shift;
    my $alertPresent = 0;
    try{
        my $alertTxt = $d->get_alert_text();

        logIt( "alert open: $alertTxt", 'DEBUG' ) if $alertTxt;
        $alertPresent++;

    }catch{
        my $err = $_;
        if( $err =~ 'modal dialog when one was not open' ){
            logIt( 'no alert open', 'DEBUG2' );
        }else{
            logIt( "ERROR: getting alert_text: $_", 'ERROR' );
        }
    };

    return $alertPresent;
}

# Assumes caller confirmed an alert is present!! Either cancels the alert or
  types any passed in data and accepts it.
sub handle_alert
{
    my ( $d, $action, $data ) = @_;

    logIt( "handle_alert called with: $action, $data", 'DEBUG' );

    if( $action eq 'CANCEL' ){
        $d->dismiss_alert();
    }else{
        $d->send_keys_to_alert( $data )
            if $data;
        $d->accept_alert();
    }

    $d->pause( 500 );
}

Selenium + Perl：检查警报是否存在？

2 个答案: