diff options
-rwxr-xr-x | test/feh.i | 20 |
1 files changed, 19 insertions, 1 deletions
@@ -4,7 +4,7 @@ use warnings; use 5.010; use Cwd; -use Test::More tests => 60; +use Test::More tests => 63; use Time::HiRes qw/sleep/; use X11::GUITest qw/:ALL/; @@ -284,3 +284,21 @@ $win = feh_start('--geometry 423x232'); is($width, 423, '--geometry: correct width'); is($height, 232, '--geometry: correct height'); feh_stop(); + +$win = feh_start(); +(undef, undef, $width, $height) = GetWindowPos($win); +is($width, 16, 'correct default window width'); +is($height, 16, 'correct default window height'); + +ResizeWindow($win, 25, 30); +(undef, undef, $width, $height) = GetWindowPos($win); + +SKIP: { + if (not ([$width, $height] ~~ [25, 30])) { + skip('ResizeWindow failed', 2) + } + PressKey('w'); + ok(waitfor { [(GetWindowPos($win))[2, 3]] ~~ [16, 16] }, + 'w key resizes correctly'); +} +feh_stop(); |