summaryrefslogtreecommitdiffstats
path: root/tests/string.test
diff options
context:
space:
mode:
authorferrieux <ferrieux@users.sourceforge.net>2010-03-01 23:25:43 (GMT)
committerferrieux <ferrieux@users.sourceforge.net>2010-03-01 23:25:43 (GMT)
commitd11b1250fc7ee6e7a97d270d93961e8580140753 (patch)
tree3b6d6691f8ccd326327ed8754dc7b7ee55a140ec /tests/string.test
parentb44f57e1dde02e93b0193c005029439e460b7acc (diff)
downloadtcl-d11b1250fc7ee6e7a97d270d93961e8580140753.zip
tcl-d11b1250fc7ee6e7a97d270d93961e8580140753.tar.gz
tcl-d11b1250fc7ee6e7a97d270d93961e8580140753.tar.bz2
Added test case for empty table in ::prefix
Diffstat (limited to 'tests/string.test')
-rw-r--r--tests/string.test5
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/string.test b/tests/string.test
index 3fc1153..39b12ff 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: string.test,v 1.77 2009/06/24 15:17:41 dgp Exp $
+# RCS: @(#) $Id: string.test,v 1.78 2010/03/01 23:25:43 ferrieux Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -1676,6 +1676,9 @@ test string-26.1 {tcl::prefix, too few args} -body {
test string-26.2 {tcl::prefix, bad args} -body {
tcl::prefix match a b c
} -returnCodes 1 -result {bad option "a": must be -error, -exact, or -message}
+test string-26.2.1 {tcl::prefix, empty table} -body {
+ tcl::prefix match {} foo
+} -returnCodes 1 -result {bad option "foo": no valid options}
test string-26.3 {tcl::prefix, bad args} -body {
tcl::prefix match -error "{}x" -exact str1 str2
} -returnCodes 1 -result {list element in braces followed by "x" instead of space}