diff options
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | tests/string.test | 29 |
2 files changed, 32 insertions, 1 deletions
@@ -1,3 +1,7 @@ +2007-03-30 Don Porter <dgp@users.sourceforge.net> + + * tests/string.test: More [string reverse] tests. + 2007-03-30 Miguel Sofer <msofer@users.sf.net> * generic/tclExecute.c: optimise the lookup of elements of indexed diff --git a/tests/string.test b/tests/string.test index dbffc46..6033e57 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.61 2006/11/22 23:25:17 dkf Exp $ +# RCS: @(#) $Id: string.test,v 1.62 2007/03/30 15:31:02 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -1512,6 +1512,33 @@ test string-24.4 {string reverse command - unshared string} { set y de string reverse $x$y } edcba +test string-24.5 {string reverse command - shared unicode string} { + set x abcde\udead + string reverse $x +} \udeadedcba +test string-24.6 {string reverse command - unshared string} { + set x abc + set y de\udead + string reverse $x$y +} \udeadedcba +test string-24.7 {string reverse command - simple case} { + string reverse a +} a +test string-24.8 {string reverse command - simple case} { + string reverse \udead +} \udead +test string-24.9 {string reverse command - simple case} { + string reverse {} +} {} +test string-24.10 {string reverse command - corner case} { + set x \ubeef\udead + string reverse $x +} \udead\ubeef +test string-24.11 {string reverse command - corner case} { + set x \ubeef + set y \udead + string reverse $x$y +} \udead\ubeef test string-25.1 {string is list} { string is list {a b c} |