test/lib/completions/apt-get.exp


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

proc setup {} {
    save_env
}


proc teardown {} {
    assert_env_unmodified
}


setup


set test "Tab should complete commands"
set cmd "apt-get "
send "$cmd\t"
set expected "^$cmd\r\n.* install .* update .*\r\n/@$cmd$"
expect {
    -re $expected { pass "$test" }
    default { fail "$test" }
}
sync_after_int


teardown