0

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

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

我试过select_window_ok,,结合它们get_all_window_idsget_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