#!/opt/bin/perl @iclist=(ic1); @ic1=("tp1"); sub tp1 { print "test4: ic1 tp1\n"; &tet'infoline("test4: ic1 tp1"); &tet'result("PASS"); } require "$ENV{\"TET_ROOT\"}/lib/perl/tcm.pl";