merge release

9 files changed, 40 insertions, 38 deletions

diff --git a/tests/interp.test b/tests/interp.test
index ad99fac..4bc9fe2 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -3615,10 +3615,10 @@ test interp-38.3 {interp debug wrong args} -body {
 } -returnCodes {
     error
 } -result {wrong # args: should be "interp debug path ?-frame ?bool??"}
-test interp-38.4 {interp debug basic setup} -body {
+test interp-38.4 {interp debug basic setup} -constraints {!singleTestInterp} -body {
     interp debug {}
 } -result {-frame 0}
-test interp-38.5 {interp debug basic setup} -body {
+test interp-38.5 {interp debug basic setup} -constraints {!singleTestInterp} -body {
     interp debug {} -f
 } -result {0}
 test interp-38.6 {interp debug basic setup} -body {
diff --git a/tests/ioTrans.test b/tests/ioTrans.test
index f82c610..e179eab 100644
--- a/tests/ioTrans.test
+++ b/tests/ioTrans.test
@@ -601,8 +601,8 @@ test iortrans-4.9 {chan read, gets, bug 2921116} -setup {
 # Driver for a base channel that emits several short "files"
 # with each terminated by a fleeting EOF
     proc driver {cmd args} {
-        variable buffer
-        variable index
+        variable ::tcl::buffer
+        variable ::tcl::index
         set chan [lindex $args 0]
         switch -- $cmd {
             initialize {
diff --git a/tests/oo.test b/tests/oo.test
index 2c189ca..5fa760b 100644
--- a/tests/oo.test
+++ b/tests/oo.test
@@ -7,7 +7,7 @@
 # See the file "license.terms" for information on usage and redistribution of
 # this file, and for a DISCLAIMER OF ALL WARRANTIES.
 
-package require TclOO 1.0.1
+package require TclOO 1.0.3
 package require tcltest 2
 if {"::tcltest" in [namespace children]} {
     namespace import -force ::tcltest::*
diff --git a/tests/ooNext2.test b/tests/ooNext2.test
index 9a63577..5ecd209 100644
--- a/tests/ooNext2.test
+++ b/tests/ooNext2.test
@@ -7,7 +7,7 @@
 # See the file "license.terms" for information on usage and redistribution of
 # this file, and for a DISCLAIMER OF ALL WARRANTIES.
 
-package require TclOO 1.0.1
+package require TclOO 1.0.3
 package require tcltest 2
 if {"::tcltest" in [namespace children]} {
     namespace import -force ::tcltest::*
diff --git a/tests/parse.test b/tests/parse.test
index fe6026d..5d8afeb 100644
--- a/tests/parse.test
+++ b/tests/parse.test
@@ -303,8 +303,10 @@ test parse-6.16 {ParseTokens procedure, backslash substitution} testparser {
     testparser {\n\a\x7f} 0
 } {- {\n\a\x7f} 1 word {\n\a\x7f} 3 backslash {\n} 0 backslash {\a} 0 backslash {\x7f} 0 {}}
 test parse-6.17 {ParseTokens procedure, null characters} {testparser testbytestring} {
-    testparser [testbytestring "foo\0zz"] 0
-} "- [testbytestring foo\0zz] 1 word [testbytestring foo\0zz] 3 text foo 0 text [testbytestring \0] 0 text zz 0 {}"
+    expr {[testparser [testbytestring "foo\0zz"] 0] eq
+"- [testbytestring foo\0zz] 1 word [testbytestring foo\0zz] 3 text foo 0 text [testbytestring \0] 0 text zz 0 {}"
+	}
+} 1
 test parse-6.18 {ParseTokens procedure, seek past numBytes for close-bracket} testparser {
     # Test for Bug 681841
     list [catch {testparser {[a]} 2} msg] $msg
@@ -916,7 +918,7 @@ test parse-15.57 {CommandComplete procedure} {
 test parse-15.58 {CommandComplete procedure, memory leaks} {
     info complete "1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22"
 } 1
-test parse-15.59 {CommandComplete procedure} {
+test parse-15.59 {CommandComplete procedure} testbytestring {
     # Test for Tcl Bug 684744
     info complete [testbytestring "\x00;if 1 \{"]
 } 0
diff --git a/tests/parseOld.test b/tests/parseOld.test
index 4c08b5d..a6e07a2 100644
--- a/tests/parseOld.test
+++ b/tests/parseOld.test
@@ -263,14 +263,14 @@ test parseOld-7.11 {backslash substitution} {
     eval "list a \"b c\"\\\nd e"
 } {a {b c} d e}
 test parseOld-7.12 {backslash substitution} testbytestring {
-    list \ua2
-} [testbytestring "\xc2\xa2"]
+    expr {[list \ua2] eq [testbytestring "\xc2\xa2"]}
+} 1
 test parseOld-7.13 {backslash substitution} testbytestring {
-    list \u4e21
-} [testbytestring "\xe4\xb8\xa1"]
+    expr {[list \u4e21] eq [testbytestring "\xe4\xb8\xa1"]}
+} 1
 test parseOld-7.14 {backslash substitution} testbytestring {
-    list \u4e2k
-} [testbytestring "\xd3\xa2k"]
+    expr {[list \u4e2k] eq [testbytestring "\xd3\xa2k"]}
+} 1
 
 # Semi-colon.
 
diff --git a/tests/socket.test b/tests/socket.test
index d6cee30..eeea044 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -2249,7 +2249,7 @@ test socket-14.11.0 {pending [socket -async] and nonblocking [puts], no listener
         unset x
     } -result {socket is not connected} -returnCodes 1
 test socket-14.11.1 {pending [socket -async] and nonblocking [puts], no listener, flush} \
-    -constraints {socket} \
+    -constraints {socket nonportable} \
     -body {
         set sock [socket -async localhost [randport]]
         fconfigure $sock -blocking 0
diff --git a/tests/subst.test b/tests/subst.test
index 256b7f7..2115772 100644
--- a/tests/subst.test
+++ b/tests/subst.test
@@ -38,8 +38,8 @@ test subst-2.3 {simple strings} {
 } abcdefg
 test subst-2.4 {simple strings} testbytestring {
     # Tcl Bug 685106
-    subst [testbytestring bar\x00soom]
-} [testbytestring bar\x00soom]
+    expr {[subst [testbytestring bar\x00soom]] eq [testbytestring bar\x00soom]}
+} 1
 
 test subst-3.1 {backslash substitutions} {
     subst {\x\$x\[foo bar]\\}
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} {