Index: WV FOP DocBase.prj.xml
===================================================================
diff -u -r3196 -r3222
--- WV FOP DocBase.prj.xml	(.../WV FOP DocBase.prj.xml)	(revision 3196)
+++ WV FOP DocBase.prj.xml	(.../WV FOP DocBase.prj.xml)	(revision 3222)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="WV FOP DocBase" LastModified="2011-11-28 11:27:04" TargetType="0" HttpServer="http://Cache02:1972">
+<Project name="WV FOP DocBase" LastModified="2011-11-29 13:50:21" TargetType="0" HttpServer="http://Cache02:1972">
   <Items>
     <ProjectItem name="/csp/admin1/FOPQueue.csp" type="CSP"/>
     <ProjectItem name="/csp/admin1/FOPTask.csp" type="CSP"/>
@@ -86,6 +86,7 @@
     <ProjectItem name="WS.SOAPClientExt" type="CLS"/>
     <ProjectItem name="cspBasis.SOAPlib.MAC" type="MAC"/>
     <ProjectItem name="vhDeploy.WV.Deploy20110714x0855" type="CLS"/>
+    <ProjectItem name="vhUnitTest.Sys.FOP.DataMgr" type="CLS"/>
   </Items>
 </Project>
 </Export>
Index: vhUnitTest/Sys/FOP/DataMgr.cls.xml
===================================================================
diff -u
--- vhUnitTest/Sys/FOP/DataMgr.cls.xml	(revision 0)
+++ vhUnitTest/Sys/FOP/DataMgr.cls.xml	(revision 3222)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.Sys.FOP.DataMgr">
+<Description>
+Oproepen via 
+	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","Sys.FOP.DataMgr") 
+	</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestCreateStreamFromProxy">
+<Implementation><![CDATA[
+	Set blFOPData=##class(BL.Sys.FOP.DataMgr).Instantiate()
+	Do blFOPData.Init("","")
+	; Do blFOPData.FetchData(Doc,SeqItem)
+	Set blFOPData.FOPDataType="Stream"
+	Set blFOPData.DataProxy=##class(Sys.FOP.emDocProxy).%New()
+	Set blFOPData.FOPDataStream=blFOPData.CreateStreamFromProxy("%FileBinaryStream",,0,0)
+	Set sc=blFOPData.ErrorStatus
+	
+	Do $$$AssertEquals(sc,$$$OK,"De errorStatus van de FOP.DataMgr is correct")
+	Set XMLData=blFOPData.FOPDataStream.Read()
+	Set ExpectedXMLData="<?xml version=""1.0"" encoding=""UTF-8""?>"_$$$CRLF_"<emDocProxy></emDocProxy>"
+	Do $$$AssertEquals(XMLData,ExpectedXMLData,"De xml-data van FOPDataStream is correct ingevuld")
+
+	Do blFOPData.Close()
+	Set blFOPData=""
+]]></Implementation>
+</Method>
+
+<Method name="TestSetNewStream">
+<Implementation><![CDATA[
+	Set DummyText="This is a text for TestSetNewStream."
+	Set StreamObj=##class(%FileBinaryStream).%New()   ; Fetch data is niet nodig voor de unittest 
+	Do StreamObj.Write(DummyText)
+
+	Set blFOPData=##class(BL.Sys.FOP.DataMgr).Instantiate()
+	Do blFOPData.Init("","")
+	Set blFOPData.FOPDataStream=StreamObj
+
+	Set DataFromStream=blFOPData.FOPDataStream.Read()
+	Do $$$AssertEquals(DataFromStream,DummyText,"De tekst van FOPDataStream is correct ingevuld")
+	
+	Do blFOPData.Close()
+	Set blFOPData=""
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+// Methods ter voorbereiding van de testen
+// ======= === ============= === == ====== 
+*/
+]]></Content>
+</UDLText>
+
+<Method name="CreateBlablabla">
+<ReturnType>WS.TBX.Order</ReturnType>
+<Implementation><![CDATA[	Quit Blablabla
+]]></Implementation>
+</Method>
+</Class>
+</Export>