1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Test::More tests => 15;
use X11::GUITest qw/
FindWindowLike
GetWindowName
StartApp
SendKeys
WaitWindowViewable
/;
my $win;
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}");
}
return $id;
}
sub feh_stop {
SendKeys('{ESC}');
for (1 .. 10) {
sleep(0.1);
if (FindWindowLike(qr{^feh}) == 0) {
return;
}
}
BAIL_OUT("Unclosed feh window still open, cannot continue");
}
sub test_no_win {
my ($reason) = @_;
for (1 .. 10) {
sleep(0.1);
if (FindWindowLike(qr{^feh}) == 0) {
pass("Window closed ($reason)");
return;
}
}
fail("Window closed ($reason)");
BAIL_OUT("unclosed window still open, cannot continue");
}
sub test_win_title {
my ($win, $wtitle) = @_;
my $rtitle;
for (1 .. 10) {
sleep(0.1);
$rtitle = GetWindowName($win);
if ($rtitle eq $wtitle) {
pass("Window has title: $wtitle");
return;
}
}
fail("Window has title: $wtitle");
diag("expected: $wtitle");
diag(" got: $rtitle");
}
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");
|
