1 files changed, 0 insertions, 336 deletions
diff --git a/test/feh.i b/test/feh.i
deleted file mode 100755
index 74802a7..0000000
--- a/test/feh.i
+++ /dev/null
@@ -1,336 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use 5.010;
-
-use Cwd;
-use Test::More tests => 71;
-use Time::HiRes qw/sleep/;
-use X11::GUITest qw/:ALL/;
-
-my $win;
-my ($width, $height);
-my $pwd = getcwd();
-
-sub waitfor(&) {
-	my ($sub) = @_;
-	my $out;
-	for (1 .. 40) {
-		sleep(0.05);
-		$out = &{$sub};
-		if ($out) {
-			return $out;
-		}
-	}
-	return 0;
-}
-
-sub feh_start {
-	my ($opts, $files) = @_;
-	my $id;
-
-	$opts //= q{};
-	$files //= 'test/ok.png';
-
-	StartApp("feh ${opts} ${files}");
-	($id) = WaitWindowViewable(qr{^feh});
-
-	if (not $id) {
-		BAIL_OUT("Unable to start feh ${opts} ${files}");
-	}
-
-	if (not SetInputFocus($id)) {
-		BAIL_OUT("Unable to focus window");
-	}
-
-	return $id;
-}
-
-sub feh_stop {
-	SendKeys('{ESC}');
-	if (not waitfor { not FindWindowLike(qr{^feh}) }) {
-		BAIL_OUT("Unclosed feh window still open, cannot continue");
-	}
-}
-
-sub test_no_win {
-	my ($reason) = @_;
-
-	if (waitfor { not FindWindowLike(qr{^feh}) }) {
-		pass("Window closed ($reason)");
-	}
-	else {
-		fail("Window closed ($reason)");
-		BAIL_OUT("unclosed window still open, cannot continue");
-	}
-}
-
-sub test_win_title {
-	my ($win, $wtitle) = @_;
-	my $rtitle;
-
-	if (waitfor { GetWindowName($win) eq $wtitle }) {
-		pass("Window has title: $wtitle");
-	}
-	else {
-		$rtitle = GetWindowName($win);
-		fail("Window has title: $wtitle");
-		diag("expected: $wtitle");
-		diag("     got: $rtitle");
-	}
-}
-
-sub slurp {
-	my ($file) = @_;
-	my $ret;
-	local $/ = undef;
-	open(my $fh, '<', $file) or die("Can't open $file: $!");
-	$ret = <$fh>;
-	close($fh) or die("Can't close $file: $!");
-	return($ret);
-}
-
-if (FindWindowLike(qr{^feh})) {
-	BAIL_OUT('It appears you have an open feh window. Please close it.');
-}
-
-for my $key (qw/q x {ESC}/) {
-	feh_start();
-	SendKeys($key);
-	test_no_win("$key pressed");
-}
-
-$win = feh_start(q{}, 'test/ok.png');
-test_win_title($win, 'feh [1 of 1] - test/ok.png');
-feh_stop();
-
-$win = feh_start(q{}, 'test/ok.png test/ok.jpg test/ok.gif');
-test_win_title($win, 'feh [1 of 3] - test/ok.png');
-SendKeys('{RIG}');
-test_win_title($win, 'feh [2 of 3] - test/ok.jpg');
-SendKeys('n');
-test_win_title($win, 'feh [3 of 3] - test/ok.gif');
-SendKeys('{SPA}');
-test_win_title($win, 'feh [1 of 3] - test/ok.png');
-SendKeys('{LEF}');
-test_win_title($win, 'feh [3 of 3] - test/ok.gif');
-SendKeys('p');
-test_win_title($win, 'feh [2 of 3] - test/ok.jpg');
-SendKeys('{BAC}');
-test_win_title($win, 'feh [1 of 3] - test/ok.png');
-SendKeys('p');
-test_win_title($win, 'feh [3 of 3] - test/ok.gif');
-SendKeys('{DEL}');
-test_win_title($win, 'feh [1 of 2] - test/ok.png');
-SendKeys('{DEL}');
-test_win_title($win, 'feh [1 of 1] - test/ok.jpg');
-SendKeys('{DEL}');
-test_no_win("Removed all images from slideshow");
-
-$win = feh_start('--title \'feh %m %u/%l %n\'',
-	'test/ok.png test/ok.jpg test/ok.gif');
-test_win_title($win, 'feh slideshow 1/3 ok.png');
-SendKeys('{RIG}');
-test_win_title($win, 'feh slideshow 2/3 ok.jpg');
-feh_stop();
-
-feh_start('--cycle-once', 'test/ok.png test/ok.jpg');
-for (1 .. 2) {
-	SendKeys('{RIG}');
-}
-test_no_win("--cycle-once -> window closed");
-
-feh_start('--cycle-once --slideshow-delay 0.5',
-	'test/ok.png test/ok.jpg test/ok.gif');
-sleep(1.5);
-test_no_win('cycle-once + slideshow-delay -> window closed');
-
-$win = feh_start('--cycle-once --slideshow-delay -0.01',
-	'test/ok.png test/ok.jpg test/ok.gif');
-
-TODO: {
-	local $TODO = '"Paused" with negative delay broken for first window';
-	test_win_title($win, 'feh [1 of 3] - test/ok.png [Paused]');
-}
-test_win_title($win, 'feh [1 of 3] - test/ok.png');
-
-SendKeys('h');
-test_no_win('cycle-once + negative delay + [h]');
-
-$win = feh_start(q{}, 'test/ok.png test/ok.gif test/ok.gif test/ok.jpg');
-for (1 .. 2) {
-	SendKeys('{END}');
-	test_win_title($win, 'feh [4 of 4] - test/ok.jpg');
-}
-for (1 .. 2) {
-	SendKeys('{HOM}');
-	test_win_title($win, 'feh [1 of 4] - test/ok.png');
-}
-
-SendKeys('{PGU}');
-test_win_title($win, 'feh [4 of 4] - test/ok.jpg');
-SendKeys('{PGD}');
-test_win_title($win, 'feh [1 of 4] - test/ok.png');
-SendKeys('{PGD}');
-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}');
-test_win_title($win, 'feh [6 of 100] - test/ok.png');
-SendKeys('{PGD}');
-test_win_title($win, 'feh [11 of 100] - test/ok.png');
-SendKeys('{HOM PGU}');
-test_win_title($win, 'feh [96 of 100] - test/ok.png');
-feh_stop();
-
-$win = feh_start('--thumbnails --thumb-title "%P [%l] %f"',
-	'test/ok.png test/ok.gif test/ok.jpg');
-test_win_title($win, 'feh [thumbnail mode]');
-$width = (GetWindowPos($win))[2];
-is($width, 640, 'thumbnail win: Correct default size');
-MoveMouseAbs(30, 30);
-ClickMouseButton(M_BTN1);
-($win) = WaitWindowViewable(qr{test/ok\.png$});
-ok($win, 'Thumbnail mode: Window opened');
-test_win_title($win, 'feh [3] test/ok.png');
-SetInputFocus($win);
-SendKeys('x');
-ok(waitfor { not FindWindowLike(qr{^ok\.png$}) }, 'Thumbnail mode: closed');
-
-MoveMouseAbs(90, 30);
-ClickMouseButton(M_BTN1);
-($win) = WaitWindowViewable(qr{test/ok\.gif$});
-ok($win, 'Thumbnail mode: Window opened');
-test_win_title($win, 'feh [3] test/ok.gif');
-
-MoveMouseAbs(150,30);
-ClickMouseButton(M_BTN1);
-($win) = WaitWindowViewable(qr{test/ok\.jpg$});
-ok($win, 'Thumbnail mode: Other window opened');
-test_win_title($win, 'feh [3] test/ok.jpg');
-
-feh_stop();
-
-feh_start('--multiwindow', 'test/ok.png test/ok.gif test/ok.jpg');
-ok(waitfor { FindWindowLike(qr{^feh - test/ok\.png$}) }, 'multiwindow 1/3');
-ok(waitfor { FindWindowLike(qr{^feh - test/ok\.gif$}) }, 'multiwindow 2/3');
-ok(waitfor { FindWindowLike(qr{^feh - test/ok\.jpg$}) }, 'multiwindow 3/3');
-
-($win) = FindWindowLike(qr{^feh - test/ok\.gif$});
-SetInputFocus($win);
-SendKeys('x');
-ok(waitfor { not FindWindowLike(qr{^feh - test/ok\.gif$}) }, 'win 1 closed');
-ok(FindWindowLike(qr{^feh - test/ok\.png$}), 'multiwindow 1/2');
-ok(FindWindowLike(qr{^feh - test/ok\.jpg$}), 'multiwindow 2/2');
-
-($win) = FindWindowLike(qr{^feh - test/ok\.jpg$});
-SetInputFocus($win);
-SendKeys('x');
-ok(waitfor { not FindWindowLike(qr{^feh - test/ok\.jpg$}) }, 'win 2 closed');
-
-($win) = FindWindowLike(qr{^feh - test/ok\.png$});
-SetInputFocus($win);
-SendKeys('x');
-test_no_win('all multiwindows closed');
-
-$win = feh_start('--start-at test/ok.jpg', 'test/ok.png test/ok.gif test/ok.jpg');
-test_win_title($win, 'feh [3 of 3] - test/ok.jpg');
-SendKeys('{RIG}');
-test_win_title($win, 'feh [1 of 3] - test/ok.png');
-feh_stop();
-
-feh_start('--caption-path .captions', 'test/ok.png');
-SendKeys('cFoo Bar Quux Moep~');
-feh_stop();
-ok(-d 'test/.captions', 'autocreated captions directory');
-is(slurp('test/.captions/ok.png.txt'), 'Foo Bar Quux Moep',
-	'Correct caption saved');
-
-feh_start('--caption-path .captions', 'test/ok.png');
-SendKeys('c');
-SendKeys('{BKS}' x length('Foo Bar Quux Moep'));
-SendKeys('Foo Bar^(~)miep~');
-feh_stop();
-is(slurp('test/.captions/ok.png.txt'), "Foo Bar\nmiep",
-	'Caption with newline + correct backspace');
-
-unlink('test/.captions/ok.png.txt');
-rmdir('test/.captions');
-
-$win = feh_start('--filelist test/filelist',
-	'test/ok.png test/ok.gif test/ok.png test/ok.jpg');
-SendKeys('{DEL}');
-test_win_title($win, "feh [1 of 3] - ${pwd}/test/ok.gif");
-feh_stop();
-
-is(slurp('test/filelist'), <<"EOF", 'Filelist saved');
-${pwd}/test/ok.gif
-${pwd}/test/ok.png
-${pwd}/test/ok.jpg
-EOF
-
-$win = feh_start('--filelist test/filelist', q{});
-test_win_title($win, "feh [1 of 3] - ${pwd}/test/ok.gif");
-feh_stop();
-unlink('test/filelist');
-
-$win = feh_start('--geometry 423x232');
-(undef, undef, $width, $height) = GetWindowPos($win);
-is($width, 423, '--geometry: correct width');
-is($height, 232, '--geometry: correct height');
-feh_stop();
-
-$win = feh_start('--full-screen');
-(undef, undef, $width, $height) = GetWindowPos($win);
-ok([(GetWindowPos($win))[2, 3]] ~~ [GetScreenRes()],
-	'fullscreen uses full screen size');
-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();
-
-$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('--no-screen-clip', 'test/huge.png');
-ok(waitfor {
-		[(GetWindowPos($win))[2, 3]] ~~ [4000, 3000]
-	},
-	'disabled screen clip');
-feh_stop();