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

require "common.pl";

sub tp1{
	$tp=tp1;
	&run("-e contrib/api ctest1-1");
	@coutput=@output;
	@cjournal=@journal;
	&run("-e contrib/api ptest1-1");

#	process both output files to remove known differences
	grep(s/ctest/test/g,@coutput);
	grep(s!results/.*/journal!results/0000e/journal!,@coutput);
	grep(s/tmp\/.*/tmp/g,@coutput);
	
	grep(s/ptest/test/g,@output);
	grep(s!results/.*/journal!results/0000e/journal!,@output);
	grep(s/tmp\/.*/tmp/g,@output);

	&verify(&compare_arrays(*coutput,*output));
}


sub tp2 {
	$tp=tp2;

# 	process both journal files to remove known differences
	grep(s/\d\d:\d\d:\d\d/00:00:00/g,@cjournal);
	grep(s/($TEST_CASE_INFORMATION\|\d+ \d+) \S+ /$1 0000 /o,@cjournal);
	grep(s/ctest/test/g,@cjournal);
	grep(s/\d\.\d-lite 1/XXX/g,@cjournal);
	grep(s/tmp\/.*/tmp/g,@cjournal);

	grep(s/\d\d:\d\d:\d\d/00:00:00/g,@journal);
	grep(s/($TEST_CASE_INFORMATION\|\d+ \d+) \S+ /$1 0000 /o,@journal);
	grep(s/\d\.\d 1/XXX/g,@journal);
	grep(s/ptest/test/g,@journal);
	grep(s/tmp\/.*/tmp/g,@journal);

	&verify(&compare_arrays(*cjournal,*journal));
}

sub tp3 {
	$tp=tp3;
	&run("-e contrib/api stest1-1");
	grep(s/stest/test/g,@output);
	grep(s!results/.*/journal!results/0000e/journal!,@output);
	grep(s/tmp\/.*/tmp/g,@output);

	$DEBUG=true;
	&verify(&compare_arrays(*coutput,*output));
}

sub tp4 {
	$tp=tp4;

	grep(s/\d\d:\d\d:\d\d/00:00:00/g,@journal);
	grep(s/($TEST_CASE_INFORMATION\|\d+ \d+) \S+ /$1 0000 /o,@journal);
	grep(s/stest/test/g,@journal);
	grep(s/\d\.\d 1/XXX/g,@journal);
	grep(s/tmp\/.*/tmp/g,@journal);

	&verify(&compare_arrays(*cjournal,*journal));
}

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