aboutsummaryrefslogtreecommitdiff
path: root/tests/prefix.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/prefix.test')
-rw-r--r--tests/prefix.test6
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/prefix.test b/tests/prefix.test
index 1540f75..1fbe653 100644
--- a/tests/prefix.test
+++ b/tests/prefix.test
@@ -20,6 +20,9 @@ testConstraint namespace [expr {[info commands namespace] ne ""}]
test string-26.1 {tcl::prefix, too few args} -body {
tcl::prefix match a
} -returnCodes 1 -match glob -result {wrong # args: should be "tcl::prefix match ?options*? table string"}
+test string-26.1.1 {tcl::prefix, too few args} -body {
+ tcl::prefix
+} -returnCodes 1 -match glob -result {wrong # args: should be "tcl::prefix subcommand ?arg ...?"}
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}
@@ -27,6 +30,9 @@ 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.2.2 {tcl::prefix, bad args} -body {
+ tcl::prefix badoption
+} -returnCodes 1 -result {bad option "badoption": must be all, longest, or match}
test string-26.3.1 {tcl::prefix, bad args} -body {