Update some tests for latest Tcl8.6b2

We strive to be compatible with the latest Tcl8.6

Signed-off-by: Steve Bennett <steveb@workware.net.au>

2 files changed, 6 insertions, 8 deletions

diff --git a/tests/rename.test b/tests/rename.test
index 00d6c6d..617ea49 100644
--- a/tests/rename.test
+++ b/tests/rename.test
@@ -50,11 +50,11 @@ test rename-2.1 {renaming built-in command} {
 } {1 {invalid command name "list"} {a b c} 1 {invalid command name "l.new"} {111 222}}
 
 test rename-3.1 {error conditions} {
-    list [catch {rename r1} msg] $msg $errorCode
-} {1 {wrong # args: should be "rename oldName newName"} NONE}
+    list [catch {rename r1} msg] $msg
+} {1 {wrong # args: should be "rename oldName newName"}}
 test rename-3.2 {error conditions} {
-    list [catch {rename r1 r2 r3} msg] $msg $errorCode
-} {1 {wrong # args: should be "rename oldName newName"} NONE}
+    list [catch {rename r1 r2 r3} msg] $msg
+} {1 {wrong # args: should be "rename oldName newName"}}
 test rename-3.3 {error conditions} {
     proc r1 {} {}
     proc r2 {} {}
diff --git a/tests/utftcl.test b/tests/utftcl.test
index a58fdda..33b8933 100644
--- a/tests/utftcl.test
+++ b/tests/utftcl.test
@@ -53,10 +53,8 @@ test utf-2.6 {Tcl_UtfToUniChar: lead (3-byte) followed by 1 trail} {
 test utf-2.7 {Tcl_UtfToUniChar: lead (3-byte) followed by 2 trail} {
     string length [bytestring "\xE4\xb9\x8e"]
 } {1}
-test utf-2.8 {Tcl_UtfToUniChar: longer UTF sequences not supported} tcl {
-    string length [bytestring "\xF4\xA2\xA2\xA2"]
-} {4}
-test utf-2.9 {Tcl_UtfToUniChar: 4-byte UTF sequence} jim {
+# Note that Tcl may or may not support utf-8 sequences >= 4 bytes
+test utf-2.9 {Tcl_UtfToUniChar: 4-byte UTF sequence} {
     string length [bytestring "\xF4\xA2\xA2\xA2"]
 } {1}