#!/opt/bin/perl @iclist=(ic1); @ic1=("tp1","tp2","tp3","tp4"); require "common.pl"; sub tp1{ $tp=tp1; &run("-e contrib/api serial-1"); @infolines=grep(/^$TEST_CASE_INFORMATION/,@journal); $ac=0; &breakup_infoline($infolines[$ac]); $message =~ s/test(\d).+$/$1/; if ($activity!=$ac || $message!=($ac+2)) { &fail; } else { &pass; } } sub tp2{ $tp=tp2; $ac=1; &breakup_infoline($infolines[$ac]); $message =~ s/test(\d).+$/$1/; if ($activity!=$ac || $message!=($ac+2)) { &fail; } else { &pass; } } sub tp3{ $tp=tp3; $ac=2; &breakup_infoline($infolines[$ac]); $message =~ s/test(\d).+$/$1/; if ($activity!=$ac || $message!=($ac+2)) { &fail; } else { &pass; } } sub tp4{ $tp=tp4; $ac=3; &breakup_infoline($infolines[$ac]); $message =~ s/test(\d).+$/$1/; if ($activity!=$ac || $message!=($ac+2)) { &fail; } else { &pass; } } require "$ENV{\"TET_ROOT\"}/lib/perl/tcm.pl";