The following is my completion of the first 3 parts of Bill Wake's Test First Challenge, in Tcl:

Parts 4 and 5 deal with GUI interaction, and I honestly don't want to start making this a full Tcl/Tk application, unless there's serious motivation (people really want to see it) since this is a non-paying activity ...

If you'd just like to see the resulting tests and code at the end of Part 3, you can get them here:

If you'd like to discuss anything you see here, I can be reached at dossy@panoptic.com.