update ip_prototype_test.tcl