organicmaps/pugixml
13
Fork 0
Code Issues 1 Pull requests Projects Releases Wiki Activity Actions

tests: Started autotest refactoring (extracted build log generation code)

Browse source 
git-svn-id: http://pugixml.googlecode.com/svn/trunk@416 99668b35-9821-0410-8761-19e4c4f06640
This commit is contained in:
arseny.kapoulkine 2010-05-12 17:49:38 +00:00
parent 544a527abd
commit fa5f573d0d
1 changed files with 79 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

79
tests/autotest-local.pl Normal file
View file

@ -0,0 +1,79 @@
#!/usr/bin/perl
use Config;
sub permute
{
my @defines = @_;
my @result = ('');
foreach $define (@defines)
{
push @result, map { length($_) == 0 ? $define : "$_,$define" } @result;
}
@result;
}
$fast = (shift eq 'fast');
@toolsets = ($^O =~ /win/i) ? (bcc, cw, dmc, ic8, mingw34, mingw44, mingw45, msvc6, msvc7, msvc71, msvc8, msvc8_x64, msvc9, msvc9_x64, msvc10, msvc10_x64) : (gcc);
@configurations = (debug, release);
@defines = (PUGIXML_NO_XPATH, PUGIXML_NO_EXCEPTIONS, PUGIXML_NO_STL, PUGIXML_WCHAR_MODE);
@definesabbr = (noxpath, noexcept, nostl, wchar);
if ($fast)
{
@defines = (PUGIXML_WCHAR_MODE);
@definesabbr = (wchar);
}
@definesets = permute(@defines);
print "### autotest begin " . scalar localtime() . "\n";
%results = ();
foreach $toolset (@toolsets)
{
foreach $configuration (@configurations)
{
foreach $defineset (@definesets)
{
# construct define abbreviation
$defineabbr = $defineset;
$defineabbr =~ s/,/ /g;
for ($i = 0; $i < $#definesabbr + 1; ++$i)
{
$defineabbr =~ s/$defines[$i]/$definesabbr[$i]/;
}
if ($defineabbr !~ /noxpath/ && $defineabbr =~ /noexcept/) { next; }
if ($defineabbr !~ /noxpath/ && $defineabbr =~ /nostl/) { next; }
print STDERR "*** testing $toolset/$configuration ($defineabbr) ... ***\n";
# launch command
my $cmdline = "jam toolset=$toolset configuration=$configuration defines=$defineset";
print "### autotest launch $cmdline\n";
my $coverage = `$cmdline coverage`;
my $result = $? >> 8;
# print build output
print $coverage;
# parse coverage
my $coverage_pugixml = $1 if ($coverage =~ /pugixml\.cpp' executed:([^%]+)%/);
my $coverage_pugixpath = $1 if ($coverage =~ /pugixpath\.cpp' executed:([^%]+)%/);
# print build report
print "### autotest $Config{archname} $toolset $configuration [$defineabbr] result $result $coverage_pugixml $coverage_pugixpath\n";
}
last if ($fast);
}
}
print "### autotest end " . scalar localtime() . "\n";