diff options
author | dgp <dgp@users.sourceforge.net> | 2016-11-08 02:56:11 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-11-08 02:56:11 (GMT) |
commit | cad330bea5eb1c5fa6958b11506b10529846eb00 (patch) | |
tree | e1ef2f40fc3b0408147198398113220f4f9d7eb4 /tests | |
parent | b1c86e9055e5384cf165f8e509583067d4b32796 (diff) | |
download | tcl-cad330bea5eb1c5fa6958b11506b10529846eb00.zip tcl-cad330bea5eb1c5fa6958b11506b10529846eb00.tar.gz tcl-cad330bea5eb1c5fa6958b11506b10529846eb00.tar.bz2 |
Route all [string last] operations through a common implementation.
Diffstat (limited to 'tests')
-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 5fdb510..11cbcff 100644 --- a/tests/string.test +++ b/tests/string.test @@ -756,13 +756,13 @@ catch {rename largest_int {}} test string-7.1 {string last, too few args} { list [catch {string last a} msg] $msg -} {1 {wrong # args: should be "string last needleString haystackString ?startIndex?"}} +} {1 {wrong # args: should be "string last needleString haystackString ?lastIndex?"}} test string-7.2 {string last, bad args} { list [catch {string last a b c} msg] $msg } {1 {bad index "c": must be integer?[+-]integer? or end?[+-]integer?}} test string-7.3 {string last, too many args} { list [catch {string last a b c d} msg] $msg -} {1 {wrong # args: should be "string last needleString haystackString ?startIndex?"}} +} {1 {wrong # args: should be "string last needleString haystackString ?lastIndex?"}} test string-7.4 {string last} { string la xxx xxxx123xx345x678 } 1 |