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
|
proc setup {} {
save_env
}
proc teardown {} {
assert_env_unmodified {/ROOT=/d}
}
setup
set test "-<TAB> should complete all options"
set options [list -copy -keep -preserve -warn]
assert_complete $options "removepkg -" $test
sync_after_int
set test "should complete files in \$ROOT/var/log/packages/"
# set env(ROOT) [file normalize $::srcdir/fixtures/slackware]
# set dir $env(ROOT)/var/log/packages/
set root [file normalize $::srcdir/fixtures/slackware]
set dir $root/var/log/packages/
assert_bash_exec "ROOT=$root"
set files [split [exec bash -c "cd $dir && ls"] "\n"]
assert_complete $files "removepkg " $test
sync_after_int
teardown
|
