summaryrefslogtreecommitdiffstats
path: root/tests/tm.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-09-26 19:54:56 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-09-26 19:54:56 (GMT)
commit030aaf8733e03063daa3c730c5b258575b9386ba (patch)
tree5ed68f5145215b594f13c8ca19970b476d33002b /tests/tm.test
parented14e02fc83fc5a7dab826db93ce7e2d4e276a96 (diff)
downloadtcl-030aaf8733e03063daa3c730c5b258575b9386ba.zip
tcl-030aaf8733e03063daa3c730c5b258575b9386ba.tar.gz
tcl-030aaf8733e03063daa3c730c5b258575b9386ba.tar.bz2
TIP #323 IMPLEMENTATION (partial)
* doc/tm.n: Revise [tcl::tm::path add] and * library/tm.tcl: [tcl::tm::path remove] to accept zero paths. * tests/tm.test:
Diffstat (limited to 'tests/tm.test')
-rw-r--r--tests/tm.test10
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/tm.test b/tests/tm.test
index d2f88a2..72bcc72 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.7 2008/07/19 22:50:39 nijtmans Exp $
+# RCS: @(#) $Id: tm.test,v 1.8 2008/09/26 19:54:59 dgp Exp $
package require Tcl 8.5
if {"::tcltest" ni [namespace children]} {
@@ -21,12 +21,12 @@ test tm-1.1 {tm: path command exists} {
test tm-1.2 {tm: path command syntax} -returnCodes error -body {
::tcl::tm::path foo
} -result {unknown or ambiguous subcommand "foo": must be add, list, or remove}
-test tm-1.3 {tm: path command syntax} -returnCodes error -body {
+test tm-1.3 {tm: path command syntax} {
::tcl::tm::path add
-} -result "wrong # args: should be \"::tcl::tm::path add path ?arg ...?\""
-test tm-1.4 {tm: path command syntax} -returnCodes error -body {
+} {}
+test tm-1.4 {tm: path command syntax} {
::tcl::tm::path remove
-} -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\""