Simple unit test in Tcl

mymath.tcl

proc sum { a b } {
  return [expr $a + $b]
}

mymath.test

package require tcltest
namespace impor ::tcltest::*

source mymath.tcl

test "sum 1 + 1 must be 2" {
  Test: result == 2
} -body {
  set result [sum 1 1]
} -result 2

test "sum 2 + 3 must be 5" {
  Test: [sum 2 3] == 5
} -body {
  sum 2 3
} -result 5

cleanupTests

mymath_test.tcl

package require tcltest
namespace import ::tcltest::*

runAllTests