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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
proc setup {} {
save_env
}
proc teardown {} {
assert_env_unmodified
}
setup
assert_complete_any "slapt-get -"
sync_after_int
set test "--up<TAB> should complete \"--update --upgrade\""
assert_complete "--update --upgrade" "slapt-get --up" $test
sync_after_int
set test "--install should not complete anything if config doesn't exist"
assert_no_complete "slapt-get -c non-existent-file --install " $test
sync_after_int
set test "--install should complete available packages"
set config $::srcdir/fixtures/slackware/etc/slapt-get/slapt-getrc
set workdir [file normalize $::srcdir/fixtures/slackware/var/slapt-get/]
set pkg_data "$workdir/package_data"
# write simple config
set f [open $config w]
puts $f "WORKINGDIR=$workdir"
puts $f "SOURCE=file:///home/"
close $f
set packages [split [exec bash -c "sed -n \
'/^PACKAGE NAME:/{s/^PACKAGE NAME: \\{1,\\}\\(.*\\).t\[gbxl\]z/\\1/;p}' \
$pkg_data"] "\n"]
assert_complete $packages "slapt-get -c $config --install " $test
sync_after_int
teardown
|
