diff options
Diffstat (limited to 'test')
-rwxr-xr-x | test/feh.i | 8 | ||||
-rwxr-xr-x | test/run-interactive | 8 |
2 files changed, 15 insertions, 1 deletions
@@ -7,8 +7,9 @@ use Test::More tests => 30; use X11::GUITest qw/ FindWindowLike GetWindowName - StartApp + SetInputFocus SendKeys + StartApp WaitWindowViewable /; @@ -28,6 +29,10 @@ sub feh_start { BAIL_OUT("Unable to start feh ${opts} ${files}"); } + if (not SetInputFocus($id)) { + BAIL_OUT("Unable to focus window"); + } + return $id; } @@ -126,6 +131,7 @@ $win = feh_start('--cycle-once --slideshow-delay -0.01', sleep(0.1); test_win_title($win, 'feh [1 of 3] - test/ok.png'); SendKeys('h'); +sleep(1); test_no_win('cycle-once + negative delay + [h]'); $win = feh_start(q{}, 'test/ok.png test/ok.gif test/ok.gif test/ok.jpg'); diff --git a/test/run-interactive b/test/run-interactive new file mode 100755 index 0000000..d86c09c --- /dev/null +++ b/test/run-interactive @@ -0,0 +1,8 @@ +#!/bin/sh + +Xnest :1 & +pid=${!} + +DISPLAY=:1 prove test/feh.i + +kill ${pid} |