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 | e63dcc2677b18312bcdc261a91e55ea24e07092a (patch) | |
| tree | b53fde11422fed477ec07ef2e2a982075c11b963 /tests/stringComp.test | |
| parent | 9bbc90b227c1184c4973ddbe460b1416fec9dad1 (diff) | |
| download | tcl-e63dcc2677b18312bcdc261a91e55ea24e07092a.zip tcl-e63dcc2677b18312bcdc261a91e55ea24e07092a.tar.gz tcl-e63dcc2677b18312bcdc261a91e55ea24e07092a.tar.bz2 | |
Burn the octal bridges. We're not goin' back.
Diffstat (limited to 'tests/stringComp.test')
| -rw-r--r-- | tests/stringComp.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/stringComp.test b/tests/stringComp.test index 56fb69d..017e768 100644 --- a/tests/stringComp.test +++ b/tests/stringComp.test @@ -339,11 +339,11 @@ test stringComp-5.16 {string index, bytearray object with string obj shimmering} test stringComp-5.17 {string index, bad integer} -body { proc foo {} {string index "abc" 0o8} list [catch {foo} msg] $msg -} -match glob -result {1 {*invalid octal number*}} +} -match glob -result {1 {*}} test stringComp-5.18 {string index, bad integer} -body { proc foo {} {string index "abc" end-0o0289} list [catch {foo} msg] $msg -} -match glob -result {1 {*invalid octal number*}} +} -match glob -result {1 {*}} test stringComp-5.19 {string index, bytearray object out of bounds} { proc foo {} {string index [binary format I* {0x50515253 0x52}] -1} foo |