Commit 50dce6b4 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

test: Change HOME to avoid interferences with existing feh installations

parent 46517923

test/feh-bg.i

+2 −1
Original line number Diff line number Diff line
@@ -10,7 +10,7 @@ use Time::HiRes qw/sleep/; 


my ($pid_xnest, $pid_twm);



$ENV{XDG_CONFIG_HOME} = "/tmp/feh-test-$$";

$ENV{HOME} = 'test';



sub set_bg {

	my ($mode, $file) = @_;
@@ -76,3 +76,4 @@ kill(15, $pid_xnest); 
sleep(0.2);



unlink("/tmp/feh_${$}.png");

unlink('test/.fehbg');

test/feh-scr.i

+1 −1
Original line number Diff line number Diff line
@@ -16,7 +16,7 @@ my ($width, $height); 
my $pwd = getcwd();

my $test_id = 0;



$ENV{XDG_CONFIG_HOME} = "/tmp/feh-test-$$";

$ENV{HOME} = 'test';



sub waitfor(&) {

	my ($sub) = @_;

test/feh.i

+1 −1
Original line number Diff line number Diff line
@@ -12,7 +12,7 @@ my $win; 
my ($width, $height);

my $pwd = getcwd();



$ENV{XDG_CONFIG_HOME} = "/tmp/feh-test-$$";

$ENV{HOME} = 'test';



sub waitfor(&) {

	my ($sub) = @_;

test/feh.t

+2 −1
Original line number Diff line number Diff line
@@ -4,7 +4,8 @@ use warnings; 
use 5.010;

use Test::Command tests => 48;



$ENV{XDG_CONFIG_HOME} = "/tmp/feh-test-$$";

$ENV{HOME} = 'test';



my $feh = "src/feh";

my $images = 'test/ok/gif test/ok/jpg test/ok/png test/ok/pnm '

           . 'test/fail/gif test/fail/jpg test/fail/png test/fail/pnm';