From 5bc6aa924194ba7e181633290b98d090943b9e3d Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Thu, 17 Jun 2010 14:56:29 +0200 Subject: Add tests for [Paused] in paused slideshow title --- test/feh.i | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'test') diff --git a/test/feh.i b/test/feh.i index bbb36f0..4d10741 100755 --- a/test/feh.i +++ b/test/feh.i @@ -3,7 +3,7 @@ use strict; use warnings; use 5.010; -use Test::More tests => 34; +use Test::More tests => 39; use Time::HiRes qw/sleep/; use X11::GUITest qw/:ALL/; @@ -151,6 +151,19 @@ test_win_title($win, 'feh [2 of 4] - test/ok.gif'); feh_stop(); +$win = feh_start('--slideshow-delay 1', 'test/ok.png test/ok.gif test/ok.jpg'); +sleep(1.7); +test_win_title($win, 'feh [3 of 3] - test/ok.jpg'); +SendKeys('h'); +test_win_title($win, 'feh [3 of 3] - test/ok.jpg [Paused]'); +SendKeys('{RIG}'); +test_win_title($win, 'feh [1 of 3] - test/ok.png [Paused]'); +SendKeys('h'); +test_win_title($win, 'feh [1 of 3] - test/ok.png'); +sleep(0.8); +test_win_title($win, 'feh [2 of 3] - 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}'); -- cgit v1.2.3