Make sure all uses of the [testbytestring] command are constrained.

1 files changed, 20 insertions, 20 deletions

diff --git a/tests/utf.test b/tests/utf.test
index 83daddf..ceb1af7 100644
--- a/tests/utf.test
+++ b/tests/utf.test
@@ -21,23 +21,23 @@ testConstraint testbytestring [llength [info commands testbytestring]]
 catch {unset x}
 
 test utf-1.1 {Tcl_UniCharToUtf: 1 byte sequences} testbytestring {
-    set x \x01
-} [testbytestring "\x01"]
+    expr {"\x01" eq [testbytestring "\x01"]}
+} 1
 test utf-1.2 {Tcl_UniCharToUtf: 2 byte sequences} testbytestring {
-    set x "\x00"
-} [testbytestring "\xc0\x80"]
+    expr {"\x00" eq [testbytestring "\xc0\x80"]}
+} 1
 test utf-1.3 {Tcl_UniCharToUtf: 2 byte sequences} testbytestring {
-    set x "\xe0"
-} [testbytestring "\xc3\xa0"]
+    expr {"\xe0" eq [testbytestring "\xc3\xa0"]}
+} 1
 test utf-1.4 {Tcl_UniCharToUtf: 3 byte sequences} testbytestring {
-    set x "\u4e4e"
-} [testbytestring "\xe4\xb9\x8e"]
+    expr {"\u4e4e" eq [testbytestring "\xe4\xb9\x8e"]}
+} 1
 test utf-1.5 {Tcl_UniCharToUtf: overflowed Tcl_UniChar} testbytestring {
-    format %c 0x110000
-} [testbytestring "\xef\xbf\xbd"]
+    expr {[format %c 0x110000] eq [testbytestring "\xef\xbf\xbd"]}
+} 1
 test utf-1.6 {Tcl_UniCharToUtf: negative Tcl_UniChar} testbytestring {
-    format %c -1
-} [testbytestring "\xef\xbf\xbd"]
+    expr {[format %c -1] eq [testbytestring "\xef\xbf\xbd"]}
+} 1
 
 test utf-2.1 {Tcl_UtfToUniChar: low ascii} {
     string length "abc"
@@ -128,17 +128,17 @@ test utf-10.1 {Tcl_UtfBackslash: dst == NULL} {
 } {
 }
 test utf-10.2 {Tcl_UtfBackslash: \u subst} testbytestring {
-    set x \ua2
-} [testbytestring "\xc2\xa2"]
+    expr {"\ua2" eq [testbytestring "\xc2\xa2"]}
+} 1
 test utf-10.3 {Tcl_UtfBackslash: longer \u subst} testbytestring {
-    set x \u4e21
-} [testbytestring "\xe4\xb8\xa1"]
+    expr {"\u4e21" eq [testbytestring "\xe4\xb8\xa1"]}
+} 1
 test utf-10.4 {Tcl_UtfBackslash: stops at first non-hex} testbytestring {
-    set x \u4e2k
-} "[testbytestring \xd3\xa2]k"
+    expr {"\u4e2k" eq "[testbytestring \xd3\xa2]k"}
+} 1
 test utf-10.5 {Tcl_UtfBackslash: stops after 4 hex chars} testbytestring {
-    set x \u4e216
-} "[testbytestring \xe4\xb8\xa1]6"
+    expr {"\u4e216" eq "[testbytestring \xe4\xb8\xa1]6"}
+} 1
 proc bsCheck {char num} {
     global errNum
     test utf-10.$errNum {backslash substitution} {