summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xtest/feh.i12
1 files changed, 11 insertions, 1 deletions
diff --git a/test/feh.i b/test/feh.i
index b45952e..ffa9c5a 100755
--- a/test/feh.i
+++ b/test/feh.i
@@ -4,7 +4,7 @@ use warnings;
use 5.010;
use Cwd;
-use Test::More tests => 71;
+use Test::More tests => 75;
use Time::HiRes qw/sleep/;
use X11::GUITest qw/:ALL/;
@@ -299,6 +299,16 @@ ok([(GetWindowPos($win))[2, 3]] ~~ [GetScreenRes()],
'fullscreen uses full screen size');
feh_stop();
+$win = feh_start(q{}, 'test/ok/png ' . 'test/fail/png ' x 7 . 'test/ok/gif');
+test_win_title($win, 'feh [1 of 9] - test/ok/png');
+SendKeys('{RIG}');
+test_win_title($win, 'feh [2 of 2] - test/ok/gif');
+SendKeys('{LEF}');
+test_win_title($win, 'feh [1 of 2] - test/ok/png');
+SendKeys('{LEF}');
+test_win_title($win, 'feh [2 of 2] - test/ok/gif');
+feh_stop();
+
$win = feh_start();
(undef, undef, $width, $height) = GetWindowPos($win);
is($width, 16, 'correct default window width');