A functional testing framework in object-oriented Tcl