added more string comparison checks

1 files changed, 13 insertions, 1 deletions

diff --git a/tests/string.test b/tests/string.test
index 8cc5e00..d2bdb6d 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -12,7 +12,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: string.test,v 1.33 2002/02/15 14:28:50 dkf Exp $
+# RCS: @(#) $Id: string.test,v 1.34 2002/05/29 09:09:00 hobbs Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -131,6 +131,18 @@ test string-2.30 {string compare with NUL character vs. other ASCII} {
     # these puts chars in the wrong order
     string compare \x00 \x01
 } -1
+test string-2.31 {string compare, high bit} {
+    proc foo {} {string compare "a\x80" "a@"}
+    foo
+} 1
+test string-2.32 {string compare, high bit} {
+    proc foo {} {string compare "a\x00" "a\x01"}
+    foo
+} -1
+test string-2.33 {string compare, high bit} {
+    proc foo {} {string compare "\x00\x00" "\x00\x01"}
+    foo
+} -1
 
 # only need a few tests on equal, since it uses the same code as
 # string compare, but just modifies the return output