Flesh out tests and transform the TM manager API into an ensemble

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