From d1f8bcc26f71f9a3cb5eea23ae4ef65611bf69e6 Mon Sep 17 00:00:00 2001
From: Vincent Snijders <vincents@freepascal.org>
Date: Fri, 2 Feb 2007 22:56:15 +0000
Subject: [PATCH] + public property TXMLResultsWriter.Document

git-svn-id: trunk@6311 -
---
 fcl/fpcunit/xmltestreport.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/fcl/fpcunit/xmltestreport.pp b/fcl/fpcunit/xmltestreport.pp
index a29a63d19c..51c64e68a2 100644
--- a/fcl/fpcunit/xmltestreport.pp
+++ b/fcl/fpcunit/xmltestreport.pp
@@ -61,6 +61,8 @@ type
     procedure StartTest(ATest: TTest); override;
     procedure EndTest(ATest: TTest); override;
     procedure WriteResult(aResult: TTestResult); override;
+    { A public property to the internal XML document }
+    property Document: TXMLDocument read FDoc;
   end;