2010-06-18 17:21:38 +02:00

46 lines
817 B
Plaintext

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 -}
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