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