Do not allow prefixed subcommands for mcutil

1 files changed, 10 insertions, 5 deletions

diff --git a/tests/msgcat.test b/tests/msgcat.test
index 7a095a6..847836b 100755
--- a/tests/msgcat.test
+++ b/tests/msgcat.test
@@ -1136,18 +1136,23 @@ namespace eval ::msgcat::test {
     test msgcat-15.2 {mcutil - wrong argument} -body {
 	mcutil junk
     } -returnCodes 1\
-    -result {unknown or ambiguous subcommand "junk": must be getpreferences, or getsystemlocale}
+    -result {unknown subcommand "junk": must be getpreferences, or getsystemlocale}
     
-    test msgcat-15.3 {mcutil getpreferences - no argument} -body {
+    test msgcat-15.3 {mcutil - partial argument} -body {
+	mcutil getsystem
+    } -returnCodes 1\
+    -result {unknown subcommand "getsystem": must be getpreferences, or getsystemlocale}
+    
+    test msgcat-15.4 {mcutil getpreferences - no argument} -body {
 	mcutil getpreferences
     } -returnCodes 1\
     -result {wrong # args: should be "mcutil getpreferences locale"}
     
-    test msgcat-15.4 {mcutil getpreferences - DE_de} -body {
+    test msgcat-15.5 {mcutil getpreferences - DE_de} -body {
 	mcutil getpreferences DE_de
     } -result {de_de de {}}
     
-    test msgcat-15.5 {mcutil getsystemlocale - wrong argument} -body {
+    test msgcat-15.6 {mcutil getsystemlocale - wrong argument} -body {
 	mcutil getsystemlocale DE_de
     } -returnCodes 1\
     -result {wrong # args: should be "mcutil getsystemlocale"}
@@ -1155,7 +1160,7 @@ namespace eval ::msgcat::test {
     # The result is system dependent
     # So just test if it runs
     # The environment variable version was test with test 0.x
-    test msgcat-15.6 {mcutil getsystemlocale} -body {
+    test msgcat-15.7 {mcutil getsystemlocale} -body {
 	mcutil getsystemlocale
 	set ok ok
     } -result {ok}