summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--tests/string.test7
2 files changed, 11 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 4e1b706..eb876ee 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-22 Donal K. Fellows <donal.k.fellows@man.ac.uk>
+
+ * tests/string.test (string-12.22): Flag shimmering bug found in
+ [string range].
+
2007-11-21 Donal K. Fellows <dkf@users.sf.net>
* generic/tclCompCmds.c (TclCompileEnsemble): Rewrote the ensemble
diff --git a/tests/string.test b/tests/string.test
index e421738..f8a14e9 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.67 2007/11/20 20:43:13 dkf Exp $
+# RCS: @(#) $Id: string.test,v 1.68 2007/11/22 16:32:54 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -1131,6 +1131,11 @@ test string-12.21 {string range, regenerates correct reps, bug 1410553} {
binary scan $rxCRC "H*" rxCRC_hex
list $input_hex $rxBuffer_hex $rxCRC_hex
} {000341 000341 0341}
+test string-12.22 {string range, shimmering binary/index} {
+ set s 0000000001
+ binary scan $s a* x
+ string range $s $s end
+} 000000001
test string-13.1 {string repeat} {
list [catch {string repeat} msg] $msg