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
|
proc setup {} {
save_env
}
proc teardown {} {
assert_env_unmodified {/OLDPWD=/d}
}
setup
assert_complete_any "screen -"
sync_after_int
assert_complete {bar "bar bar.d/" foo foo.d/} \
"screen -c $::srcdir/fixtures/shared/default/" "-c should complete files/dirs"
sync_after_int
assert_complete_any "screen cat"
sync_after_int
# Limit number of matches, assume at least vt100 and friends are there
assert_complete_any "screen -T vt"
sync_after_int
assert_complete_any "screen -T foo cat"
sync_after_int
teardown
|
