summaryrefslogtreecommitdiffstats
path: root/tests/string.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2012-11-16 19:17:21 (GMT)
committerdgp <dgp@users.sourceforge.net>2012-11-16 19:17:21 (GMT)
commitfd1f9d484eb12a94ef0005b475a12aa3429cfce5 (patch)
treeb53fde11422fed477ec07ef2e2a982075c11b963 /tests/string.test
parentb3a59469e023419e5a31fd41ed99714272b3819d (diff)
downloadtcl-fd1f9d484eb12a94ef0005b475a12aa3429cfce5.zip
tcl-fd1f9d484eb12a94ef0005b475a12aa3429cfce5.tar.gz
tcl-fd1f9d484eb12a94ef0005b475a12aa3429cfce5.tar.bz2
Burn the octal bridges. We're not goin' back.
Diffstat (limited to 'tests/string.test')
-rw-r--r--tests/string.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/string.test b/tests/string.test
index f558d30..e9e6e6d 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -280,10 +280,10 @@ test string-5.16 {string index, bytearray object with string obj shimmering} {
} 0
test string-5.17 {string index, bad integer} -body {
list [catch {string index "abc" 0o8} msg] $msg
-} -match glob -result {1 {*invalid octal number*}}
+} -match glob -result {1 {*}}
test string-5.18 {string index, bad integer} -body {
list [catch {string index "abc" end-0o0289} msg] $msg
-} -match glob -result {1 {*invalid octal number*}}
+} -match glob -result {1 {*}}
test string-5.19 {string index, bytearray object out of bounds} {
string index [binary format I* {0x50515253 0x52}] -1
} {}