diff options
author | nijtmans <nijtmans> | 2008-07-19 22:50:38 (GMT) |
---|---|---|
committer | nijtmans <nijtmans> | 2008-07-19 22:50:38 (GMT) |
commit | 421f74b6e684727db193b1b1fc1e3a9649f86f58 (patch) | |
tree | c042d36466266a5022288e3db7d8d9a7dc6e81be /tests/tm.test | |
parent | 9c9a7764a3a00160ff48011547624ecf659a3dc9 (diff) | |
download | tcl-421f74b6e684727db193b1b1fc1e3a9649f86f58.zip tcl-421f74b6e684727db193b1b1fc1e3a9649f86f58.tar.gz tcl-421f74b6e684727db193b1b1fc1e3a9649f86f58.tar.bz2 |
fix [2021443] inconsistant "wrong # args" messages
Diffstat (limited to 'tests/tm.test')
-rw-r--r-- | tests/tm.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/tm.test b/tests/tm.test index 3484747..d2f88a2 100644 --- a/tests/tm.test +++ b/tests/tm.test @@ -6,7 +6,7 @@ # Copyright (c) 2004 by Donal K. Fellows. # All rights reserved. # -# RCS: @(#) $Id: tm.test,v 1.6 2005/08/29 21:55:27 andreas_kupries Exp $ +# RCS: @(#) $Id: tm.test,v 1.7 2008/07/19 22:50:39 nijtmans Exp $ package require Tcl 8.5 if {"::tcltest" ni [namespace children]} { @@ -23,10 +23,10 @@ test tm-1.2 {tm: path command syntax} -returnCodes error -body { } -result {unknown or ambiguous subcommand "foo": must be add, list, or remove} test tm-1.3 {tm: path command syntax} -returnCodes error -body { ::tcl::tm::path add -} -result "wrong # args: should be \"::tcl::tm::path add path ...\"" +} -result "wrong # args: should be \"::tcl::tm::path add path ?arg ...?\"" test tm-1.4 {tm: path command syntax} -returnCodes error -body { ::tcl::tm::path remove -} -result "wrong # args: should be \"::tcl::tm::path remove path ...\"" +} -result "wrong # args: should be \"::tcl::tm::path remove path ?arg ...?\"" test tm-1.5 {tm: path command syntax} -returnCodes error -body { ::tcl::tm::path list foobar } -result "wrong # args: should be \"::tcl::tm::path list\"" |