Commit c2c3d5e4 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Test for the w key

parent 2039632c

test/feh.i

+19 −1
Original line number Diff line number Diff line
@@ -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();