summaryrefslogtreecommitdiff
path: root/test/feh.i
diff options
context:
space:
mode:
authorDaniel Friesel <derf@derf.homelinux.org>2010-06-16 19:30:21 +0200
committerDaniel Friesel <derf@derf.homelinux.org>2010-06-16 19:30:21 +0200
commit3e1f8197e4c0b2cf1603b4762fb309e5e35cfc8a (patch)
treeb0d3213d6f3b2531fc3a99b0ccf9ddd13e437aa4 /test/feh.i
parentd68b87ed62dc2a439b2d0cc2e4b9e388a1830d02 (diff)
slideshow: Add tests for END, HOME, PageUp and PageDown keys
Diffstat (limited to 'test/feh.i')
-rwxr-xr-xtest/feh.i31
1 files changed, 30 insertions, 1 deletions
diff --git a/test/feh.i b/test/feh.i
index 0d65ce3..d08eb72 100755
--- a/test/feh.i
+++ b/test/feh.i
@@ -3,7 +3,7 @@ use strict;
use warnings;
use 5.010;
-use Test::More tests => 19;
+use Test::More tests => 30;
use X11::GUITest qw/
FindWindowLike
GetWindowName
@@ -127,3 +127,32 @@ sleep(0.1);
test_win_title($win, 'feh [1 of 3] - test/ok.png');
SendKeys('h');
test_no_win('cycle-once + negative delay + [h]');
+
+$win = feh_start(q{}, 'test/ok.png test/ok.gif test/ok.gif test/ok.jpg');
+for (1 .. 2) {
+ SendKeys('{END}');
+ test_win_title($win, 'feh [4 of 4] - test/ok.jpg');
+}
+for (1 .. 2) {
+ SendKeys('{HOM}');
+ test_win_title($win, 'feh [1 of 4] - test/ok.png');
+}
+
+SendKeys('{PGU}');
+test_win_title($win, 'feh [4 of 4] - test/ok.jpg');
+SendKeys('{PGD}');
+test_win_title($win, 'feh [1 of 4] - test/ok.png');
+SendKeys('{PGD}');
+test_win_title($win, 'feh [2 of 4] - test/ok.gif');
+
+feh_stop();
+
+$win = feh_start(q{}, 'test/ok.png ' x 100);
+test_win_title($win, 'feh [1 of 100] - test/ok.png');
+SendKeys('{PGD}');
+test_win_title($win, 'feh [6 of 100] - test/ok.png');
+SendKeys('{PGD}');
+test_win_title($win, 'feh [11 of 100] - test/ok.png');
+SendKeys('{HOM PGU}');
+test_win_title($win, 'feh [96 of 100] - test/ok.png');
+feh_stop();