#!/opt/bin/perl
@iclist=(ic1,ic2);
@ic1=("tp1");
@ic2=("tp2","tp3");
$tet'startup="startup";
$tet'cleanup="cleanup";

sub startup {
	print "ptest1: startup\n";
	&tet'infoline("ptest1: startup");
}

sub cleanup {
	print "ptest1: cleanup\n";
	&tet'infoline("ptest1: cleanup");
}

sub tp1 {
	print "ptest1: ic1 tp1\n";
	&tet'infoline("ptest1: ic1 tp1");
	print "ptest1: This tp is $tet'thistest, test name is $tet'pname\n";
	&tet'infoline(
		"ptest1: This tp is $tet'thistest, test name is $tet'pname");
	&tet'result("PASS");
}

sub tp2 {
	print "ptest1: ic2 tp2\n";
	&tet'infoline("ptest1: ic2 tp2");
    &tet'result("FAIL");
}

sub tp3 {
	print "ptest1: ic2 tp3\n";
	&tet'infoline("ptest1: ic2 tp3");
    &tet'result("UNRESOLVED");
}

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