* Write RelSrcDir to digest.cfg

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@9885 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 3 insertions, 1 deletions

diff --git a/packages/fcl-fpcunit/src/digesttestreport.pp b/packages/fcl-fpcunit/src/digesttestreport.pp
index 2453f16d34..3fc0a5b3e8 100644
--- a/packages/fcl-fpcunit/src/digesttestreport.pp
+++ b/packages/fcl-fpcunit/src/digesttestreport.pp
@@ -88,7 +88,7 @@ type
     FHostName : String;
     FComment : String;
     FCategory : String;
-  private
+    FRelSrcDir: string;
     procedure CreateTar;
   public
   {ITestListener}
@@ -101,6 +101,7 @@ type
     
     property Comment: string read FComment write FComment;
     property Category: string read FCategory write FCategory;
+    property RelSrcDir: string read FRelSrcDir write FRelSrcDir;
   end;
   
 implementation
@@ -327,6 +328,7 @@ begin
     AddLog(DigestFileName,'Machine='+FHostName);
     AddLog(DigestFileName,'Comment='+FComment);
     AddLog(DigestFileName,'Category='+FCategory);
+    AddLog(DigestFileName,'RelSrcDir='+FRelSrcDir);
 // Create .tar.gz file
     CreateTar;
     end;