diff options
| author | dkf <dkf@noemail.net> | 2002-01-02 13:52:02 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2002-01-02 13:52:02 (GMT) |
| commit | bae0f037885faa64524573c38a73893f16d9506e (patch) | |
| tree | a705d6a0587c54ed5536496f94e042dd0c53b62c /tests/string.test | |
| parent | 2f1e8650b2e3c8131d88e68a4483d621fb7bac0e (diff) | |
| download | tcl-bae0f037885faa64524573c38a73893f16d9506e.zip tcl-bae0f037885faa64524573c38a73893f16d9506e.tar.gz tcl-bae0f037885faa64524573c38a73893f16d9506e.tar.bz2 | |
Fixed fault with case-insensitive string matching (Bug#233257) and rewrote
some tests to test what they claimed to be testing.
FossilOrigin-Name: 99e550c5bedfd5ee619bd6cf81b9ee09b8545f7e
Diffstat (limited to 'tests/string.test')
| -rw-r--r-- | tests/string.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/string.test b/tests/string.test index 15b88d7..2ab91b2 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.30 2001/11/14 23:16:36 hobbs Exp $ +# RCS: @(#) $Id: string.test,v 1.31 2002/01/02 13:52:04 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -855,6 +855,10 @@ test string-11.49 {string match, *special case} { test string-11.50 {string match, *special case} { string match "\\" "\\" } 0 +test string-11.51 {string match; *, -nocase and UTF-8} { + string match -nocase [binary format I 717316707] \ + [binary format I 2028036707] +} 1 test string-12.1 {string range} { |