Unit testing in TCL
The unit... #!/opt/local/bin/tclsh proc fib {n} { if {$n==1} {return $n} if {$n==2} {return [expr {$n-1}]} if {$n==3} {return [expr {$n-1}]} return [expr { [fib [expr {$n - 1}]] + [fib [expr {$n - 2}]] } ] } The test... #!/opt/local/bin/tclsh package require tcltest 2.0 namespace import ::tcltest::* source ../src/fib.tcl # 1 1 2 3 5 8 13 21 34 test fib-1 { Test first is 1 } { fib 1 } 1 test fib-2 { Test second is 1 } { fib 2 } 1 test fib-3 { Test third is 2 } { fib 3 } 2 test fib-4 { Test fourth is 3 } { fib 4 } 3 test fib-5 { Test fifth is 5 } { fib 5 } 5 test fib-6 { Test ninth is 34 } { fib 9 } 34 test fib-7 { Test f...