minimal tests for xfreerdp completion

master
Guillaume Rousse 2011-01-17 22:26:50 +01:00
parent d6043b9609
commit 55c38e271c
2 changed files with 29 additions and 0 deletions

View File

@ -0,0 +1 @@
assert_source_completions xfreerdp

View File

@ -0,0 +1,28 @@
proc setup {} {
save_env
}
proc teardown {} {
assert_env_unmodified
}
setup
set test "Tab should complete options"
set cmd "xfreerdp --"
send "$cmd\t"
set expected "^$cmd\r\n--data.*--kbd-list.*--plugin\r\n/@$cmd$"
expect {
-re $expected { pass "$test" }
-re /@ { unresolved "$test at prompt" }
default { unresolved "$test" }
}
sync_after_int
teardown