perl - 使用 Test::WWW::Selenium 或其他方式检测操作系统对话框

Question

我知道 Selenium 无法检测操作系统对话框，所以我想知道如何在 Perl 中完成此操作。我可以使用 Perl 驱动 Selenium RC 直到单击页面上的按钮打开打印对话框，然后检测该对话框何时以某种方式使用非 Selenium Perl 出现吗？

如果您好奇这里的结局是记录加载对话框所需的时间。

my $t0 = [gettimeofday];
$sel->click_ok("id=ctl00_ctl00_printButton");
## something like 'dialog_loads_ok("print_dialog");'
my $t1 = [gettimeofday]
my $t0_t1 = tv_interval $t0, $t1;
print "Elapsed time to load print dialog: $t0_t1 minutes\n";

Answer 1

对于 Windows 和 X11，您应该能够使用 Win32::GuiTest和 X11::GUITest , 分别。