source ../test/test.tcl
run_all