csonto/bash-completion
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(testsuite) Make expected lists unique

Browse Source
This commit is contained in:
Freddy Vulto 2009-11-21 10:18:54 +01:00
parent 08c51bccbd
commit 75969454c0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/lib/library.exp
View File

@ -371,7 +371,7 @@ proc get_hosts {} {
if {[llength $avahi_hosts] > 0} { if {[llength $avahi_hosts] > 0} {
lappend hosts $avahi_hosts lappend hosts $avahi_hosts
}; # if }; # if
return $hosts return [lsort -unique $hosts]
}; # get_hosts() }; # get_hosts()
@ -416,7 +416,7 @@ proc get_signals {} {
# @param integer $size Chunk size # @param integer $size Chunk size
# @result boolean True if successful, False if not # @result boolean True if successful, False if not
proc match_items {items test {size 20}} { proc match_items {items test {size 20}} {
set items [exec sort << [join $items "\n"]] set items [exec sort | uniq << [join $items "\n"]]
set result false set result false
for {set i 0} {$i < [llength $items]} {set i [expr {$i + $size}]} { for {set i 0} {$i < [llength $items]} {set i [expr {$i + $size}]} {
set expected "" set expected ""