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

require "common.pl";

sub tp1{
	$tp=tp1;
	&run("-e contrib/api ptest1-4");
	&verify(grep(/ptest1: startup/,@output)==2 ||
		grep(/ptest1: cleanup/,output)==2);
}


sub tp2 {
	local(%counts);
	$tp=tp2;
	@ics=grep(/ptest1: ic/,@output);
	grep(s/(ptest1: ic.).*$/$1/,@ics);
	foreach(@ics) {
		$counts{$_}++;
	}

	@different_ics=values(%counts);

	&verify(@different_ics==2);
		
}

sub tp3 {
	local(%counts);
	$tp=tp3;

	@tps=grep(/ptest1: ic/,@output);
	grep(s/ptest1: ic. (.*)$/$1/,@tps);
	foreach(@tps) {
		$counts{$_}++;
	}

	@different_tps=values(%counts);

	&verify(@different_tps==3);
		
}

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