tcl tree test cases