summaryrefslogtreecommitdiff
path: root/test/feh.i
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2013-09-26 19:36:15 +0200
committerDaniel Friesel <derf@finalrewind.org>2013-09-26 19:36:15 +0200
commit013b068c7650ab1ef92cab6a54da6abf39673eba (patch)
treed513070f538443b7d561c5e46f988a857741d9d0 /test/feh.i
parentf74385dec092224d046dddc02b731ee30405710f (diff)
test re-organization and code cleanup
Diffstat (limited to 'test/feh.i')
-rwxr-xr-xtest/feh.i453
1 files changed, 0 insertions, 453 deletions
diff --git a/test/feh.i b/test/feh.i
deleted file mode 100755
index f9dddfb..0000000
--- a/test/feh.i
+++ /dev/null
@@ -1,453 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use 5.010;
-
-use Cwd;
-use Test::More tests => 103;
-use Time::HiRes qw/sleep/;
-use X11::GUITest qw/:ALL/;
-
-my $win;
-my ($width, $height);
-my $pwd = getcwd();
-
-$ENV{HOME} = 'test';
-
-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 png');
-SendKeys('{RIG}');
-test_win_title($win, 'feh slideshow 2/3 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');
-
-test_win_title($win, 'feh [1 of 3] - test/ok/png [Paused]');
-
-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(
- '--action3 ";echo foo" --action7 "echo foo" ' .
- '--action8 ";touch feh_test_%u_%l" --action9 "rm feh_test_%u_%l"',
- 'test/ok/png test/ok/gif test/ok/jpg'
-);
-test_win_title($win, 'feh [1 of 3] - test/ok/png');
-SendKeys('3');
-test_win_title($win, 'feh [1 of 3] - test/ok/png');
-SendKeys('7');
-test_win_title($win, 'feh [2 of 3] - test/ok/gif');
-SendKeys('8');
-test_win_title($win, 'feh [2 of 3] - test/ok/gif');
-ok(-e 'feh_test_2_3', 'feh action created file with correct format specifiers');
-SendKeys('9');
-ok(waitfor { not -e 'feh_test_2_3' }, 'feh action removed file');
-test_win_title($win, 'feh [3 of 3] - test/ok/jpg');
-feh_stop();
-
-
-# .config/feh/keys
-# Action Unbinding + non-conflicting none/shift/control/meta modifiers
-
-$ENV{XDG_CONFIG_HOME} = 'test/config/keys';
-
-$win = feh_start(
- '--action1 "touch a1" --action2 "touch a2" ' .
- '--action3 "touch a3" --action4 "touch a4" ' .
- '--action5 "touch a5" --action6 "touch a6" ',
- 'test/ok/png test/ok/jpg test/ok/pnm'
-);
-test_win_title($win, 'feh [1 of 3] - test/ok/png');
-SendKeys('6');
-test_win_title($win, 'feh [1 of 3] - test/ok/png');
-SendKeys('{RIG}');
-test_win_title($win, 'feh [1 of 3] - test/ok/png');
-SendKeys('a');
-test_win_title($win, 'feh [2 of 3] - test/ok/jpg');
-SendKeys('b');
-test_win_title($win, 'feh [3 of 3] - test/ok/pnm');
-SendKeys('c');
-test_win_title($win, 'feh [1 of 3] - test/ok/png');
-SendKeys('d');
-test_win_title($win, 'feh [3 of 3] - test/ok/pnm');
-SendKeys('e');
-test_win_title($win, 'feh [2 of 3] - test/ok/jpg');
-SendKeys('f');
-test_win_title($win, 'feh [1 of 3] - test/ok/png');
-SendKeys('1');
-test_win_title($win, 'feh [1 of 3] - test/ok/png');
-SendKeys('x');
-ok(waitfor { -e 'a1' }, 'action 1 = X ok');
-SendKeys('X');
-ok(waitfor { -e 'a2' }, 'action 2 = Shift+X ok');
-SendKeys('^(x)');
-ok(waitfor { -e 'a3' }, 'action 3 = Ctrl+X ok');
-SendKeys('^(X)');
-ok(waitfor { -e 'a4' }, 'action 4 = Ctrl+Shift+X ok');
-SendKeys('%(x)');
-ok(waitfor { -e 'a5' }, 'action 5 = Alt+X ok');
-for my $f (qw(a1 a2 a3 a4 a5)) {
- unlink($f);
-}
-feh_stop();
-
-$ENV{XDG_CONFIG_HOME} = 'test/config/themes';
-
-$win = feh_start(
- '-Ttest_general',
- 'test/ok/png test/ok/jpg'
-);
-SendKeys('1');
-ok(waitfor { -e 'a1' }, 'theme: action 1 okay');
-unlink('a1');
-feh_stop();
-
-$win = feh_start(
- '-Ttest_general --action1 "touch c1"',
- 'test/ok/png test/ok/jpg'
-);
-SendKeys('1');
-ok(waitfor { -e 'c1' }, 'theme: commandline overrides theme');
-unlink('c1');
-feh_stop();
-
-$win = feh_start(
- '-Ttest_multiline',
- 'test/ok/png test/ok/jpg'
-);
-SendKeys('1');
-ok(waitfor { -e 'a1' }, 'multiline theme: first line ok');
-SendKeys('2');
-ok(waitfor { -e 'a2' }, 'multiline theme: second line ok');
-SendKeys('3');
-ok(waitfor { -e 'a3' }, 'multiline theme: last line ok');
-for my $f (qw(a1 a2 a3)) {
- unlink($f);
-}
-feh_stop();
-
-delete $ENV{XDG_CONFIG_HOME};
-
-
-$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 -H 300 -W 310 --thumb-title "feh [%l] %f"',
- 'test/ok/png test/ok/gif test/ok/jpg');
-test_win_title($win, 'feh [thumbnail mode]');
-($width, $height) = (GetWindowPos($win))[2,3];
-is($width, 310, 'thumbnail win: Set correct width');
-is($height, 300, 'thumbnail win: Set correct height');
-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/ok/.captions', 'autocreated captions directory');
-is(slurp('test/ok/.captions/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/ok/.captions/png.txt'), "Foo Bar\nmiep",
- 'Caption with newline + correct backspace');
-
-unlink('test/ok/.captions/png.txt');
-rmdir('test/ok/.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('--fullscreen');
-(undef, undef, $width, $height) = GetWindowPos($win);
-ok([(GetWindowPos($win))[2, 3]] ~~ [GetScreenRes()],
- 'fullscreen uses full screen size');
-feh_stop();
-
-$win = feh_start(q{}, 'test/ok/png ' . 'test/fail/png ' x 7 . 'test/ok/gif');
-test_win_title($win, 'feh [1 of 9] - test/ok/png');
-SendKeys('{RIG}');
-test_win_title($win, 'feh [2 of 2] - test/ok/gif');
-SendKeys('{LEF}');
-test_win_title($win, 'feh [1 of 2] - test/ok/png');
-SendKeys('{LEF}');
-test_win_title($win, 'feh [2 of 2] - test/ok/gif');
-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();
-
-# GH-35 "Custom window title crashes feh on unloadable files"
-$win = feh_start('--title "feh %h"', 'test/ok/png test/fail/png test/ok/jpg');
-SendKeys('{RIG}');
-test_win_title($win, 'feh 16');
-feh_stop();