From ec5323982f0b3e6faa33e2210bb79578af5c7935 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Wed, 16 Jun 2010 18:56:59 +0200
Subject: [PATCH] Test all slideshow movement keys
---
test/feh.i | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/test/feh.i b/test/feh.i
index 5edbce6..bdba62b 100755
--- a/test/feh.i
+++ b/test/feh.i
@@ -3,7 +3,7 @@ use strict;
use warnings;
use 5.010;
-use Test::More tests => 12;
+use Test::More tests => 15;
use X11::GUITest qw/
FindWindowLike
GetWindowName
@@ -91,12 +91,18 @@ $win = feh_start(q{}, 'test/ok.png test/ok.jpg test/ok.gif');
test_win_title($win, 'feh [1 of 3] - test/ok.png');
SendKeys('{RIG}');
test_win_title($win, 'feh [2 of 3] - test/ok.jpg');
-SendKeys('{RIG}');
+SendKeys('n');
test_win_title($win, 'feh [3 of 3] - test/ok.gif');
-SendKeys('{RIG}');
+SendKeys('{SPA}');
test_win_title($win, 'feh [1 of 3] - test/ok.png');
SendKeys('{LEF}');
test_win_title($win, 'feh [3 of 3] - test/ok.gif');
+SendKeys('p');
+test_win_title($win, 'feh [2 of 3] - test/ok.jpg');
+SendKeys('{BAC}');
+test_win_title($win, 'feh [1 of 3] - test/ok.png');
+SendKeys('p');
+test_win_title($win, 'feh [3 of 3] - test/ok.gif');
SendKeys('{DEL}');
test_win_title($win, 'feh [1 of 2] - test/ok.png');
SendKeys('{DEL}');
--
GitLab