# do all tests
foreach i [lsort [glob *.test]] {
    catch {unset o1 o2}
    puts stdout $i
    source $i
}
# terminate (for event driven tcl/wish)
exit 0;
