blob: 792d52a944aa87c2381735f5951b247bab73cacc (
plain)
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
|
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
# 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} {
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
}
}
teardown
|
