0

我在使用弹出窗口时遇到 selenium perl 问题

问题：这是一个 Facebook 问题，当您单击 Facebook 连接或单击事件完成时显示的任何弹出窗口时，任何人都有问题定位 Facebook 弹出窗口

我试过select_window_ok，，结合它们get_all_window_ids，get_all_window_names但没有运气

请使用 Perl 代码而不是 Javascript 代码。

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 => "*chrome", 
                                    browser_url => "http://www.electrotank.com/" );

$sel->open_ok("/docs/es5/live-examples/FacebookConnect/");
$sel->click_ok("//a[\@class='fb_button fb_button_medium']/span");
sleep 10;
$sel->wait_for_pop_up_ok("", "30000",'Log in | Facebook');
$sel->select_pop_up("null");
$sel->type_ok("email", "email\@email.com",'User enters Facebook credentials - Username');
$sel->type_ok("pass", "password",'User enters Facebook credentials - Password');
$sel->click_ok("name=login");
$sel->select_window("null");

这是我在 IE9 Win7 中尝试的代码，它无法正常工作，无法检测到弹出窗口，当我在 FireFox 中运行它时，它工作正常

谢谢你

我已经更新了代码，所以任何人都可以尝试调试代码为什么它在 IE9 中不起作用

2012 年 6 月 18 日编辑

4

0 回答 0