#!/opt/bin/perl
@iclist=(ic1);
@ic1=("tp1");

sub tp1 {
	print "test7: ic1 tp1\n";
	&tet'infoline("test7: ic1 tp1");
	&tet'result("PASS");
	while (1) {
		sleep(1);
	}
}

require "$ENV{\"TET_ROOT\"}/lib/perl/tcm.pl";