Add tests for windowsize and --screen-clip

1 files changed, 16 insertions, 1 deletions

diff --git a/test/feh.i b/test/feh.i
index ab28caa..a5157da 100755
--- a/test/feh.i
+++ b/test/feh.i
@@ -4,7 +4,7 @@ use warnings;
 use 5.010;
 
 use Cwd;
-use Test::More tests => 65;
+use Test::More tests => 67;
 use Time::HiRes qw/sleep/;
 use X11::GUITest qw/:ALL/;
 
@@ -309,3 +309,18 @@ SKIP: {
 		'w key resizes correctly');
 }
 feh_stop();
+
+$win = feh_start(q{}, 'test/huge.png');
+ok(waitfor {
+		   (GetWindowPos($win))[2] == (GetScreenRes())[0]
+		|| (GetWindowPos($win))[3] == (GetScreenRes())[1]
+	},
+	'Large window limited to screen size');
+feh_stop();
+
+$win = feh_start('--screen-clip 0', 'test/huge.png');
+ok(waitfor {
+		[(GetWindowPos($win))[2, 3]] ~~ [4000, 3000]
+	},
+	'disabled screen clip');
+feh_stop();