#!/usr/bin/perl
eval `cat ../regression.conf`;
use Cwd;
sub DisplayCell
{
my ($bgColor, $text) = @_;
print "| $text | \n";
}
sub ExecUnitTest
{
$CVSROOT=":pserver:anoncvs\@anoncvs.abisource.com:/cvsroot";
$ROOT=getcwd;
$ABI_BRANCH="ABI-2-4-0-STABLE";
#TODO: login
#TODO: move to config
#TODO: don't ditch the tree every time
`rm -rf .src && mkdir -p .src`;
`rm -rf .local && mkdir -p .local`;
# cvs update abiword (HEAD)
`cd .src &&\
cvs -d $CVSROOT -z3 co -r $ABI_BRANCH abi abidistfiles abiword-plugins &&\
cvs -d $CVSROOT -z3 co -r wv-1-0-0-STABLE wv`;
# build abiword
`cd .src/abi &&\
./autogen.sh &&\
CXXFLAGS="-pg -g" ./configure --prefix=$ROOT/.local --enable-gnome\
make 2>abiword_compilation_report.txt`;
# build required abiword plugins
`cd .src/abiword-plugins &&\
./nextgen.sh &&\
CXXFLAGS="-pg -g" ./configure --prefix=$ROOT/.local &&\
make 2>abiword_plugins_compilation_report.txt`;
# reporting
my $abiword_compilation_report = `cat .src/abi/abiword_compilation_report.txt`;
my $abiword_plugins_compilation_report = `cat .src/abiword-plugins/abiword_plugins_compilation_report.txt`;
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
if ($html)
{
&HtmlHeader;
}
&ExecUnitTest;
if ($html)
{
&HtmlFooter;
}