diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2010-03-01 23:25:43 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2010-03-01 23:25:43 (GMT) |
| commit | d11b1250fc7ee6e7a97d270d93961e8580140753 (patch) | |
| tree | 3b6d6691f8ccd326327ed8754dc7b7ee55a140ec | |
| parent | b44f57e1dde02e93b0193c005029439e460b7acc (diff) | |
| download | tcl-d11b1250fc7ee6e7a97d270d93961e8580140753.zip tcl-d11b1250fc7ee6e7a97d270d93961e8580140753.tar.gz tcl-d11b1250fc7ee6e7a97d270d93961e8580140753.tar.bz2 | |
Added test case for empty table in ::prefix
| -rw-r--r-- | tests/string.test | 5 |
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} |