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
|
proc setup {} {
save_env
}
proc teardown {} {
assert_env_unmodified {/OLDPWD=/d}
}
setup
assert_complete_any "7z "
sync_after_int
assert_complete "-tzip" "7z a ar -tzi"
sync_after_int
set dir $::srcdir/fixtures/_filedir
assert_complete_dir "-wa\\ b/" "7z x -wa\\ " $dir "" -nospace
sync_after_int
set dir $::srcdir/fixtures/7z
assert_complete_dir "a.7z" "7z x " $dir
sync_after_int
set dir $::srcdir/fixtures/7z
assert_complete_dir "abc" "7z d a.7z " $dir
sync_after_int
teardown
|
