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)
commitcad330bea5eb1c5fa6958b11506b10529846eb00 (patch)
treee1ef2f40fc3b0408147198398113220f4f9d7eb4 /tests
parentb1c86e9055e5384cf165f8e509583067d4b32796 (diff)
downloadtcl-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.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