summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2004-10-25 15:36:59 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2004-10-25 15:36:59 (GMT)
commit75edfbbf9073ea32340ab1a7315f01b8077fd1ba (patch)
tree070f8ade6c5d8896434565c304ac6652e5dd8207 /tests
parentf030067d93d70355784a6c62c76178ccdc1dfcb7 (diff)
downloadtcl-75edfbbf9073ea32340ab1a7315f01b8077fd1ba.zip
tcl-75edfbbf9073ea32340ab1a7315f01b8077fd1ba.tar.gz
tcl-75edfbbf9073ea32340ab1a7315f01b8077fd1ba.tar.bz2
Flesh out tests and transform the TM manager API into an ensemble
Diffstat (limited to 'tests')
-rw-r--r--tests/tm.test31
1 files changed, 23 insertions, 8 deletions
diff --git a/tests/tm.test b/tests/tm.test
index d270f59..ada4d46 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.1 2004/10/22 22:08:25 dkf Exp $
+# RCS: @(#) $Id: tm.test,v 1.2 2004/10/25 15:37:16 dkf Exp $
package require Tcl 8.5
if {"::tcltest" ni [namespace children]} {
@@ -18,19 +18,34 @@ test tm-1.1 {tm: path command exists} {
catch { ::tcl::tm::path }
info commands ::tcl::tm::path
} ::tcl::tm::path
-test tm-1.2 {tm: path command syntax} {
- ::tcl::tm::path FIXME
-} FIXME
-# Andreas Kupries needs to write some tests here...
+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 {
+ ::tcl::tm::path add
+} -result "wrong # args: should be \"::tcl::tm::path add path ?path ...?\""
+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 ?path ...?\""
+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\""
test tm-2.1 {tm: roots command exists} {
catch { ::tcl::tm::roots }
info commands ::tcl::tm::roots
} ::tcl::tm::roots
-test tm-1.2 {tm: roots command syntax} {
+test tm-2.2 {tm: roots command syntax} -returnCodes error -body {
::tcl::tm::roots
-} FIXME
-# Andreas Kupries needs to write some tests here...
+} -result "wrong # args: should be \"::tcl::tm::roots paths\""
+test tm-2.3 {tm: roots command syntax} -returnCodes error -body {
+ ::tcl::tm::roots foo bar
+} -result "wrong # args: should be \"::tcl::tm::roots paths\""
+
+test tm-3.1 {tm: module path management} {
+ # Andreas Kupries needs to write some tests here...
+ error FIXME
+} {}
::tcltest::cleanupTests
return