(testsuite) Allow possibly leading whitespace in match_items() chunks > 1.

Thanks to Freddy Vulto.

1 files changed, 2 insertions, 1 deletions

diff --git a/test/lib/library.exp b/test/lib/library.exp
index 1da3aaf1..fe07dccf 100644
--- a/test/lib/library.exp
+++ b/test/lib/library.exp
@@ -503,7 +503,8 @@ proc match_items {items test {prompt /@} {size 20}} {
     set items [bash_sort $items]
     set result false
     for {set i 0} {$i < [llength $items]} {set i [expr {$i + $size}]} {
-        set expected ""
+            # For chunks > 1, allow leading whitespace
+        if {$i > $size} { set expected "\\s*" } else { set expected "" }
         for {set j 0} {$j < $size && $i + $j < [llength $items]} {incr j} {
             set item "[lindex $items [expr {$i + $j}]]"
                 # Escape special regexp characters