blob: 3456c3e7213ac441584426ecf90b6d62f3c5c785 (
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
36
37
38
39
40
41
42
43
44
45
|
proc setup {} {
save_env
}; # setup()
proc teardown {} {
assert_env_unmodified
}; # teardown()
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 -}
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
|