Posted to tcl by mjanssen at Fri Sep 21 22:38:32 GMT 2007view raw
- # run as tclsh filename.tcl to run tests
- # source in other file to use totest proc
- proc totest {a b} {
- return $a$b
- }
- if {[info script] eq $argv0} {
- # called file so run tests
- package require tcltest
- tcltest::verbose pfs
- tcltest::test TestCase1 {Simple case} -body {
- totest de fg
- } -result {defg}
- tcltest::test TestCase2 {Test correct error message} -body {
- totest 12
- } -returnCodes 1 -result {wrong # args: should be "totest a b"}
- tcltest::cleanupTests
- }