From bdecbd30df83b838bce1cb06743611abc129b208 Mon Sep 17 00:00:00 2001
From: Huang Zhw <huang_zhw@126.com>
Date: Fri, 24 Sep 2021 21:58:38 +0800
Subject: [PATCH] Fix test randstring, compare string and int is wrong. (#9544)

This will cause the generated string containing "\".
Fixes a broken change in #8687
---
 tests/support/util.tcl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tests/support/util.tcl b/tests/support/util.tcl
index 67551b041..8f093c33e 100644
--- a/tests/support/util.tcl
+++ b/tests/support/util.tcl
@@ -12,9 +12,10 @@ proc randstring {min max {type binary}} {
         set maxval 52
     }
     while {$len} {
-        set rr [format "%c" [expr {$minval+int(rand()*($maxval-$minval+1))}]]
+        set num [expr {$minval+int(rand()*($maxval-$minval+1))}]
+        set rr [format "%c" $num]
         if {$type eq {simplealpha} && ![string is alnum $rr]} {continue}
-        if {$type eq {alpha} && $rr eq 92} {continue} ;# avoid putting '\' char in the string, it can mess up TCL processing
+        if {$type eq {alpha} && $num eq 92} {continue} ;# avoid putting '\' char in the string, it can mess up TCL processing
         append output $rr
         incr len -1
     }