Index: vhUnitTest/Sys/FOP/DataMgr.cls.xml
===================================================================
diff -u -r3223 -r3247
--- vhUnitTest/Sys/FOP/DataMgr.cls.xml	(.../DataMgr.cls.xml)	(revision 3223)
+++ vhUnitTest/Sys/FOP/DataMgr.cls.xml	(.../DataMgr.cls.xml)	(revision 3247)
@@ -43,6 +43,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestCopyDataToSeqItem">
+<Implementation><![CDATA[
+	Set Task=##class(Sys.FOP.Task).%New()
+	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=..GeefFOPDataMgr(Task)
+	Set blFOPData.FOPDataType="Stream"
+	Set blFOPData.FOPDataStream=StreamObj
+	
+	Set TSeq=##class(BL.Sys.FOP.Data).NewTaskSequence(Task)
+	Set SeqItem=TSeq.AddNewItem("DocBase")
+	Do blFOPData.CopyDataToSeqItem(SeqItem)
+	
+	Set DataFromSeqItem=SeqItem.DataInStream.Read()	
+	Do $$$AssertEquals(DataFromSeqItem,DummyText,"De tekst van FOPDataStream is correct ingevuld")
+	
+	Do blFOPData.Close()
+	Set blFOPData=""
+]]></Implementation>
+</Method>
+
+<Method name="aTestVerwerkerAnalyseFopTask">
+<Implementation><![CDATA[
+	Set TaskID="963063||0"
+	Set Task=##class(Sys.FOP.Task).%OpenId(TaskID)
+	Set sc=##class(BL.Sys.FOP.Verwerker).BuildTaskSequence(Task,.TSeq)
+	
+	write !,!,"TaskSequence result:",!
+	write $$ArrayToText^vhLib("TSeq",.TSeq),!
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /*