blob: f37d5f5f0d5fb7fa158c509359c3363bb4a070d7 (
plain)
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
|
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
assert_complete_any "screen -T "
sync_after_int
assert_complete_any "screen -T foo cat"
sync_after_int
teardown
|