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

sub tp1{

	&tet'infoline("This is the first test case"); 
        &tet'result("PASS");
}

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