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

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

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