diff options
author | dgp <dgp@users.sourceforge.net> | 2012-11-16 19:17:21 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2012-11-16 19:17:21 (GMT) |
commit | fd1f9d484eb12a94ef0005b475a12aa3429cfce5 (patch) | |
tree | b53fde11422fed477ec07ef2e2a982075c11b963 /tests/string.test | |
parent | b3a59469e023419e5a31fd41ed99714272b3819d (diff) | |
download | tcl-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.test | 4 |
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 } {} |