diff options
-rwxr-xr-x | test/feh-bg.i | 3 | ||||
-rwxr-xr-x | test/feh-scr.i | 2 | ||||
-rwxr-xr-x | test/feh.i | 2 | ||||
-rw-r--r-- | test/feh.t | 3 |
4 files changed, 6 insertions, 4 deletions
diff --git a/test/feh-bg.i b/test/feh-bg.i index e7b2f0b..3624f5c 100755 --- a/test/feh-bg.i +++ b/test/feh-bg.i @@ -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'); diff --git a/test/feh-scr.i b/test/feh-scr.i index 9f6d804..9696c9e 100755 --- a/test/feh-scr.i +++ b/test/feh-scr.i @@ -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) = @_; @@ -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) = @_; @@ -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'; |