Skip to content
Snippets Groups Projects
Commit 6166ca28 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Add --action tests + hold-action

parent eaacba3c
No related branches found
No related tags found
No related merge requests found
......@@ -4,7 +4,7 @@ use warnings;
use 5.010;
use Cwd;
use Test::More tests => 75;
use Test::More tests => 82;
use Time::HiRes qw/sleep/;
use X11::GUITest qw/:ALL/;
......@@ -187,6 +187,24 @@ sleep(0.8);
test_win_title($win, 'feh [2 of 3] - test/ok/gif');
feh_stop();
$win = feh_start(
'--action3 ";echo foo" --action7 "echo foo" ' .
'--action8 ";touch feh_test_%u_%l" --action9 "rm feh_test_%u_%l"',
'test/ok/png test/ok/gif test/ok/jpg'
);
test_win_title($win, 'feh [1 of 3] - test/ok/png');
SendKeys('3');
test_win_title($win, 'feh [1 of 3] - test/ok/png');
SendKeys('7');
test_win_title($win, 'feh [2 of 3] - test/ok/gif');
SendKeys('8');
test_win_title($win, 'feh [2 of 3] - test/ok/gif');
ok(-e 'feh_test_2_3', 'feh action created file with correct format specifiers');
SendKeys('9');
ok(waitfor { not -e 'feh_test_2_3' }, 'feh action removed file');
test_win_title($win, 'feh [3 of 3] - test/ok/jpg');
feh_stop();
$win = feh_start(q{}, 'test/ok/png ' x 100);
test_win_title($win, 'feh [1 of 100] - test/ok/png');
SendKeys('{PGD}');
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment