(testsuite) Fix `assert_complete_partial()'

Make sure items are unique before assembling list of completions.
This commit is contained in:
Freddy Vulto 2009-11-29 14:40:46 +01:00
parent 1064bb1c14
commit 511b7c7f35

View File

@ -256,6 +256,8 @@ proc assert_complete_partial {expected cmd {partial ""} {test ""} {prompt /@} {s
unresolved "$test" unresolved "$test"
} else { } else {
set pick {} set pick {}
# Make sure expected items are unique
set expected [lsort -unique $expected]
foreach item $expected { foreach item $expected {
if {$partial == ""} {set partial [string range $item 0 0]} if {$partial == ""} {set partial [string range $item 0 0]}
# Only append item if starting with $partial # Only append item if starting with $partial