summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-11-08 02:56:11 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-11-08 02:56:11 (GMT)
commit3555752d45183e123a7bc2a5e8695e243bcb9d77 (patch)
treee1ef2f40fc3b0408147198398113220f4f9d7eb4 /tests
parent37fb43ad48ee8d158656f4daab42d79a02f03756 (diff)
downloadtcl-3555752d45183e123a7bc2a5e8695e243bcb9d77.zip
tcl-3555752d45183e123a7bc2a5e8695e243bcb9d77.tar.gz
tcl-3555752d45183e123a7bc2a5e8695e243bcb9d77.tar.bz2
Route all [string last] operations through a common implementation.
Diffstat (limited to 'tests')
-rw-r--r--tests/string.test4
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