15 lines
495 B
Tcl
15 lines
495 B
Tcl
package require tcltest 2
|
||
source palindrome.tcl; # Assume that this is what loads the implementation of ‘palindrome’
|
||
|
||
tcltest::test palindrome-1 {check for palindromicity} -body {
|
||
palindrome abcdedcba
|
||
} -result 1
|
||
tcltest::test palindrome-2 {check for non-palindromicity} -body {
|
||
palindrome abcdef
|
||
} -result 0
|
||
tcltest::test palindrome-3 {check for palindrome error} -body {
|
||
palindrome
|
||
} -returnCodes error -result "wrong # args: should be \"palindrome s\""
|
||
|
||
tcltest::cleanupTests
|