#!/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";