在自动化测试时,我们经常用到的是Selenium的无界面运行。这个可以通过Xvfb实现。
1. 首先要安装Xvfb,网上安装的教程也很多了,这里不赘述了。
2. 启动Xvfb:
Xvfb :16 -screen 0 1920x1200x24 &
3. 这里做了几个实验叙述如下:
1> 在不启动Xvfb的情况下,直接在VNC客户端或者带界面的客户端找个terminal运行如下程序perl test.pl,可以成功输出结果(可行):
use Selenium::Firefox;
$firefox = `firefox -v`;
my $driver;
eval {
if ( $firefox =~ /Mozilla Firefox (\d+)/ ) {
if ( int($1) <= 47 ) {
print "Set 'marionette_enabled' to '0'";
$driver = Selenium::Firefox->new( marionette_enabled => 0 );
}
else {
$driver = Selenium::Firefox->new();
}
}
else {
$driver = Selenium::Firefox->new();
}
};
if ( $@ ) {
print "error:".$@ ;
}
$driver->get("http://www.baidu.com");
my $title = $driver->get_title;
print "\n$title\n";
2> 如果直接从Xshell ssh到Centos的PC(无界面运行),然后通过命令行运行上面的程序,会报错:
Set 'marionette_enabled' to '0'error:Unable to connect to the /usr/bin/firefox binary on port 9090 at /PERL_LIB/5.10.1/Selenium/CanStartBinary.pm line 138.
Can't call method "get" on an undefined value at tc.pl line 25.
3> 如果在要运行perl test.pl的命令行客户端先运行一下命令:export DISPLAY=:16
(可行)然后再运行 perl test.pl,就可以正确输出结果。而此时如果再重新打开一个命令行客户端,再运行perl test.pl,还是会报和2>一样的错误。
在Linux/Unix类操作系统上, DISPLAY用来设置将图形显示到何处.
4> 如果在test.pl中加上system ("export DISPLAY=:16");或者`export DISPLAY=:16`; 还是会报错。不可行。这个应该是和system和``执行时perl的内部处理有关,这部分还需再研究。
use Selenium::Firefox;
$firefox = `firefox -v`;
my $driver;
#system ("export DISPLAY=:16");
`export DISPLAY=:16`;
use Data::Dumper;
print Dumper(\%ENV);
eval {
if ( $firefox =~ /Mozilla Firefox (\d+)/ ) {
if ( int($1) <= 47 ) {
print "Set 'marionette_enabled' to '0'";
$driver = Selenium::Firefox->new( marionette_enabled => 0 );
}
else {
$driver = Selenium::Firefox->new();
}
}
else {
$driver = Selenium::Firefox->new();
}
};
if ( $@ ) {
print "error:".$@ ;
}
$driver->get("http://www.baidu.com");
my $title = $driver->get_title;
print "\n$title\n";
5> 还有一种解决方法就是通过改变修改$ENV{"DISPLAY"}全局变量,这种方法是可行的,可以在程序中直接设置。如下:
use Selenium::Firefox;
$firefox = `firefox -v`;
my $driver;
#system ("export DISPLAY=:16");
$ENV{"DISPLAY"} = ':16';
eval {
if ( $firefox =~ /Mozilla Firefox (\d+)/ ) {
if ( int($1) <= 47 ) {
print "Set 'marionette_enabled' to '0'";
$driver = Selenium::Firefox->new( marionette_enabled => 0 );
}
else {
$driver = Selenium::Firefox->new();
}
}
else {
$driver = Selenium::Firefox->new();
}
};
if ( $@ ) {
print "error:".$@ ;
}
$driver->get("http://www.baidu.com");
my $title = $driver->get_title;
print "\n$title\n";
output:
test]# perl tc.pl
Set 'marionette_enabled' to '0'Wide character in print at tc.pl line 27.
百度一下,你就知道
6> 还有一种方法,可以更改/etc/profile文件,在此文件中加入以下两行,然后运行perl test.pl也是可以成功的:
DISPLAY=":16"
export DISPLAY