Commit 5bc6aa92 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Add tests for [Paused] in paused slideshow title

parent a4f4dc01

test/feh.i

+14 −1
Original line number Diff line number Diff line
@@ -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}');