diff options
| author | arseny.kapoulkine <arseny.kapoulkine@99668b35-9821-0410-8761-19e4c4f06640> | 2010-05-12 17:49:38 +0000 |
|---|---|---|
| committer | arseny.kapoulkine <arseny.kapoulkine@99668b35-9821-0410-8761-19e4c4f06640> | 2010-05-12 17:49:38 +0000 |
| commit | fa5f573d0de778a0038ed68e76d966679a699aef (patch) | |
| tree | f9f7adc78efc0ce06b90c4b79b5aa09965cfb1a7 /tests/autotest-local.pl | |
| parent | 544a527abd3eb9a4d92738d7474a7c63c30ce5be (diff) | |
tests: Started autotest refactoring (extracted build log generation code)
git-svn-id: http://pugixml.googlecode.com/svn/trunk@416 99668b35-9821-0410-8761-19e4c4f06640
Diffstat (limited to 'tests/autotest-local.pl')
| -rw-r--r-- | tests/autotest-local.pl | 79 |
1 files changed, 79 insertions, 0 deletions
diff --git a/tests/autotest-local.pl b/tests/autotest-local.pl new file mode 100644 index 0000000..2dc5531 --- /dev/null +++ b/tests/autotest-local.pl @@ -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";
|