tests: Add Subversion revision info to build report

git-svn-id: http://pugixml.googlecode.com/svn/trunk@500 99668b35-9821-0410-8761-19e4c4f06640

tests/autotest-local.pl

@@ -39,6 +39,10 @@ if ($fast)
 
 print "### autotest begin " . scalar localtime() . "\n";
 
+# print SVN revision info
+print "### autotest revision $1\n" if (`svn info` =~ /Revision:\s+(\d+)/);
+
+# build all configurations
 %results = ();
 
 foreach $toolset (@toolsets)

tests/autotest-report.pl

@@ -87,6 +87,17 @@ while (<>)
 		$defines{$_} = 1 foreach (split /,/, $defineset);
 		&insertindex(\%configurations, $fullconf);
 	}
+	elsif (/^### autotest revision (\d+)/)
+	{
+		if (defined $revision && $revision != $1)
+		{
+			print STDERR "Autotest build report contains several revisions: $revision, $1\n";
+		}
+		else
+		{
+			$revision = $1;
+		}
+	}
 }
 
 # make arrays of toolsets and configurations
@@ -168,6 +179,6 @@ $date = localtime;
 
 print <<END;
 </table><br>
-Generated on $date
+Generated on $date from Subversion r$revision
 </body></html>
 END