Commit 27f41476 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Add tests for themes 

 * general
 * commandline option overrides same theme option
 * multiline theme definitions
parent 4f2f93e8

test/config/feh/keys→test/config/keys/feh/keys

+0 −0

File moved.

View file

test/config/themes/feh/themes

0 → 100644
+5 −0
Original line number Diff line number Diff line 
test_general   --action1 "touch a1"



test_multiline --action1 "touch a1" \

--action2 "touch a2" \

      --action3 "touch a3"

test/feh.i

+40 −3
Original line number Diff line number Diff line
@@ -4,7 +4,7 @@ use warnings; 
use 5.010;



use Cwd;

use Test::More tests => 97;

use Test::More tests => 102;

use Time::HiRes qw/sleep/;

use X11::GUITest qw/:ALL/;
@@ -209,7 +209,8 @@ feh_stop(); 
# .config/feh/keys

# Action Unbinding + non-conflicting none/shift/control/meta modifiers



$ENV{XDG_CONFIG_HOME} = 'test/config';

$ENV{XDG_CONFIG_HOME} = 'test/config/keys';



$win = feh_start(

	'--action1 "touch a1" --action2 "touch a2" ' .

	'--action3 "touch a3" --action4 "touch a4" ' .
@@ -245,12 +246,48 @@ SendKeys('^(X)'); 
ok(waitfor { -e 'a4' }, 'action 4 = Ctrl+Shift+X ok');

SendKeys('%(x)');

ok(waitfor { -e 'a5' }, 'action 5 = Alt+X ok');

delete $ENV{XDG_CONFIG_HOME};

for my $f (qw(a1 a2 a3 a4 a5)) {

	unlink($f);

}

feh_stop();



$ENV{XDG_CONFIG_HOME} = 'test/config/themes';



$win = feh_start(

	'-Ttest_general',

	'test/ok/png test/ok/jpg'

);

SendKeys('1');

ok(waitfor { -e 'a1' }, 'theme: action 1 okay');

unlink('a1');

feh_stop();



$win = feh_start(

	'-Ttest_general --action1 "touch c1"',

	'test/ok/png test/ok/jpg'

);

SendKeys('1');

ok(waitfor { -e 'c1' }, 'theme: commandline overrides theme');

unlink('c1');

feh_stop();



$win = feh_start(

	'-Ttest_multiline',

	'test/ok/png test/ok/jpg'

);

SendKeys('1');

ok(waitfor { -e 'a1' }, 'multiline theme: first line ok');

SendKeys('2');

ok(waitfor { -e 'a2' }, 'multiline theme: second line ok');

SendKeys('3');

ok(waitfor { -e 'a3' }, 'multiline theme: last line ok');

for my $f (qw(a1 a2 a3)) {

	unlink($f);

}

feh_stop();



delete $ENV{XDG_CONFIG_HOME};





$win = feh_start(q{}, 'test/ok/png ' x 100);

test_win_title($win, 'feh [1 of 100] - test/ok/png');