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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
proc setup {} {
# fake root command to get all users/groups completed at least for now
assert_bash_exec {root_command=sudo}
save_env
}
proc teardown {} {
assert_env_unmodified
}
setup
set users [exec bash -c "compgen -A user"]
assert_complete $users "chown "
sync_after_int
# Find user/group suitable for testing.
set failed_find_unique_completion 0
foreach ug {user group} {
# compgen -A is used because it's a bash builtin and available everywhere.
# The || true part prevents exec from throwing an exception if nothing is
# found (very very unlikely).
set list [split [exec bash -c "compgen -A $ug || true"] "\n"]
if {![find_unique_completion_pair $list part$ug full$ug]} {
untested "Not running complex chown tests; no suitable test $ug found."
set failed_find_unique_completion 1
}
}
# These tests require an unique completion.
if {!$failed_find_unique_completion} {
assert_complete $fulluser "chown $partuser"
sync_after_int
assert_complete $fulluser:$fullgroup "chown $fulluser:$partgroup"
sync_after_int
assert_complete "dot.user:$fullgroup" "chown dot.user:$partgroup"
sync_after_int
foreach prefix {
"funky\\ user:" "funky.user:" "funky\\.user:" "fu\\ nky.user:"
"f\\ o\\ o\\.\\bar:" "foo\\_b\\ a\\.r\\ :"
} {
set test "Check preserve special chars in $prefix$partgroup<TAB>"
#assert_complete_into "chown $prefix$partgroup" "chown $prefix$fullgroup " $test
assert_complete $prefix$fullgroup "chown $prefix$partgroup" $test
sync_after_int
}
# Check that we give up in degenerate cases instead of spewing various junk.
assert_no_complete "chown $fulluser\\\\:$partgroup"
sync_after_int
assert_no_complete "chown $fulluser\\\\\\:$partgroup"
sync_after_int
assert_no_complete "chown $fulluser\\\\\\\\:$partgroup"
sync_after_int
# Colons in user/groupnames are not usually allowed.
assert_no_complete "chown foo:bar:$partgroup"
sync_after_int
}
assert_complete {bar "bar bar.d/" foo foo.d/} "chown foo: $::srcdir/fixtures/shared/default/"
sync_after_int
assert_complete {bar "bar bar.d/" foo foo.d/} "chown :foo $::srcdir/fixtures/shared/default/"
sync_after_int
teardown
|
