#!/usr/bin/perl
require "../regression.conf";
sub DisplayCell
{
my ($bgColor, $text) = @_;
print "| $text | \n";
}
sub ExecUnitTest
{
my ($sn) = @_;
# reporting; just reuse the compilation reports from the bootstrap process
$abi_log = "../logs/abiword_compilation_report_$sn.txt";
$abi_plugin_log = "../logs/abiword_plugins_compilation_report_$sn.txt";
$abiword_compilation_report = `cat $abi_log`;
$abiword_plugins_compilation_report = `cat $abi_plugin_log`;
if ($html)
{
print "Summary
\n";
print "\n";
print "\n";
print "| AbiWord | \n";
if ($abiword_compilation_report)
{
DisplayCell($fail_colour, "failed log");
}
else
{
DisplayCell($pass_colour, "success");
}
print "
\n";
print "\n";
print "| AbiWord Plugins | \n";
if ($abiword__plugins_compilation_report)
{
DisplayCell($fail_colour, "failed log");
}
else
{
DisplayCell($pass_colour, "success");
}
print "
\n";
print "
\n";
}
else
{
print "\nSummary\n";
if ($abiword_compilation_report)
{
print "AbiWord: failed\n";
}
else
{
print "AbiWord: success\n";
}
if ($abiword_plugins_compilation_report)
{
print "AbiWord Plugins: failed\n";
}
else
{
print "AbiWord Plugins: success\n";
}
}
}
sub HtmlHeader {
print "\n\n\n\n";
print "AbiWord TestSuite: Compilation Warning Test Results
\n";
}
sub HtmlFooter {
print "\n\n";
}
# Main function
$#ARGV+1 == 2 || die "Usage: regression.pl \n";
if ($html)
{
&HtmlHeader;
}
my $sn = $ARGV[0];
die unless $sn;
&ExecUnitTest($sn);
if ($html)
{
&HtmlFooter;
}