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

require "common.pl";

sub tp1{

	print "begin\n";
	$tp=tp1;

	&run;

	&verify(grep("Usage",@output));
}

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