Для этого я написал отдельный перл модуль generateBuildReport.pm
Я не ахти какой перл программер , как говорится , только учусь , поэтому получилось что нашел я у себя критическую ошибку)
При включении моего модуля в код другого перл скрипта
use generateBuildReport.pm;
У меня в этом скрипте начинает некорректно работать функция system в ниже приведенной функции.Perl интерпретатор просто крашится и вылетает при ее выполнении.Надо сказать что в IBM clearquest perl не стандартный, а скомпилированный IBM и называется он cqperl.Возможно в этом дело
#executes selected manual test script in Rational manual tester
sub runRationalManualTester {
my ($script_name) = @_;
logger("\nRun the Rational manual tester");
chdir($manualTesterPath);
system( $rmt_binary. " -x " . "\"" . $script_name . "\"" . " -" );
}
Местный гуру посоветовал не юзать модули , если ты сам не гуру :)
В итого переписал , чтобы использовать репорт как обычный скрипт со входными параметрами
А вот и код generateBuildReport.pl
Вторая проблема что поймал , это создание массива с билдами и тесткейсами через указатели, получилась такая фишка что при создании массива в цикле использовал линки на реальные значения , а не их самих. В итого во все элементы массива вставились одни и теже значения , ибо ссылка была всегда на один и тот же тесткейс.Ниже код , где закоментарено как цикл на работал и показан работающий вариант :)
Опять же , весь код доступен тут :generateBuildReport.pl
#create an array of build hash objects.Every build object contains hash with testcases were executed on this build
sub getTestCasesByBuild {
#list of tests which are executed on every build
my @tests = @{ getTestCasesList(@configuration) };
#list of available builds
my @builds = @{ getAutomatedBuilds() };
foreach my $build (@builds) {
logger( "Create testcases list for the build " . $build->{'name'}, true );
#list of testcases which were executed or not executed on this build
my @testcasesList;
foreach my $test (@tests) {
my $verdictRec = getLatestVerdict( $test->{'id'},
$Iteration, $build->{'id'} );
my %tc = %$test;
#$test->{'result'} = $verdictRec->{'result'};
#$test->{'resultId'} = $verdictRec->{'dbid'};
$tc{'result'} = $verdictRec->{'result'};
$tc{'resultId'} = $verdictRec->{'dbid'};
push (@testcasesList, \%tc);
#push (@testcasesList, \%test);
}
push (@{$build->{'tests'}}, @testcasesList);
}
return \@builds;
}
