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
|
proc setup {} {
save_env
}
proc teardown {} {
assert_env_unmodified
}
setup
set test "Tab should complete options"
set options {
-AcceptClipboard -AutoSelect -DebugDelay -display
-DotWhenNoCursor -FullColor -FullColour -FullScreen
-geometry -help -listen -Log
-LowColourLevel -MenuKey -name -Parent
-passwd -PasswordFile -PointerEventInterval -PreferredEncoding
-SendClipboard -SendPrimary -Shared -UseLocalCursor
-via -ViewOnly -WMDecorationHeight -WMDecorationWidth
-ZlibLevel
}
assert_complete $options {vncviewer -} $test
sync_after_int
set expected {hextile raw zrle}
assert_complete $expected "xvnc4viewer -PreferredEncoding "
sync_after_int
set expected {hextile raw zrle}
assert_complete $expected "xvnc4viewer --preferredencoding "
sync_after_int
teardown
|
