diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/tm.test | 31 |
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 |