Commit c58be5e1 authored by Francesc Guasch's avatar Francesc Guasch
Browse files

[#513] Fixed test screenshots for Void

parent 71d74264
...@@ -27,8 +27,8 @@ has '_ip' => ( ...@@ -27,8 +27,8 @@ has '_ip' => (
our $DIR_TMP = "/var/tmp/rvd_void"; our $DIR_TMP = "/var/tmp/rvd_void";
our $IMPORT = `which import`; our $CONVERT = `which convert`;
chomp $IMPORT; chomp $CONVERT;
#######################################3 #######################################3
sub BUILD { sub BUILD {
...@@ -345,12 +345,12 @@ sub screenshot { ...@@ -345,12 +345,12 @@ sub screenshot {
my $self = shift; my $self = shift;
my $file = (shift or $self->_file_screenshot); my $file = (shift or $self->_file_screenshot);
my @cmd =($IMPORT,'-window','root' my @cmd =($CONVERT,'-size', '400x300', 'xc:white'
,'-resize','400x300'
,$file ,$file
); );
my ($in,$out,$err); my ($in,$out,$err);
run3(\@cmd, \$in, \$out, \$err); run3(\@cmd, \$in, \$out, \$err);
warn $err if $err;
} }
sub _file_screenshot { sub _file_screenshot {
...@@ -358,7 +358,7 @@ sub _file_screenshot { ...@@ -358,7 +358,7 @@ sub _file_screenshot {
return $DIR_TMP."/".$self->name.".png"; return $DIR_TMP."/".$self->name.".png";
} }
sub can_screenshot { return $IMPORT; } sub can_screenshot { return $CONVERT; }
sub get_info { sub get_info {
my $self = shift; my $self = shift;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment