Index: vhUnitTest/AX/Uitgaand/PM/impl/SamenstellingBestelreferentieProductenInEenString/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/PM/impl/SamenstellingBestelreferentieProductenInEenString/Test.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/PM/impl/SamenstellingBestelreferentieProductenInEenString/Test.cls.xml	(revision 41163)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Enkel de eerste lijn is ingevuld">
+<Implementation><![CDATA[
+	#dim TestProduct As Prod.ProductTekst = ##class(Prod.ProductTekst).%New()
+	
+	Set TestProduct.Bestelreferentie1 = "Dit is de 1e regel, zonder volgende."
+	For I=1:1:19 {
+		set $property(TestProduct,"Bestelreferentie"_(I+1)) = ""
+	}
+	
+	#dim Lijnen As %String = ##class(AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString).%New().GeefBestelreferentieVoorProductTekst(TestProduct)
+	Do $$$AssertEquals(Lijnen,"Dit is de 1e regel, zonder volgende.")
+	Do $$$AssertNotEquals(Lijnen,"Dit is de 1e regel", "Regel is onvolledig, dus niet gelijk")
+	Do $$$AssertNotEquals(Lijnen,"Dit is de 1e regel, zonder volgende. ", "Spatie toegevoegd, dus niet gelijk")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Alle lijnen zijn ingevuld">
+<Implementation><![CDATA[
+	#dim TestProduct As Prod.ProductTekst = ##class(Prod.ProductTekst).%New()
+	
+	Set TestProduct.Bestelreferentie1 = "Dit is de 1e regel"
+	For I=1:1:19 {
+		set $property(TestProduct,"Bestelreferentie"_(I+1)) = "dit is de "_(I+1)_"e regel"
+	}
+	
+	#dim Lijnen As %String = ##class(AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString).%New().GeefBestelreferentieVoorProductTekst(TestProduct)
+	Do $$$AssertEquals(Lijnen,"Dit is de 1e regel dit is de 2e regel dit is de 3e regel dit is de 4e regel dit is de 5e regel dit is de 6e regel dit is de 7e regel dit is de 8e regel dit is de 9e regel dit is de 10e regel dit is de 11e regel dit is de 12e regel dit is de 13e regel dit is de 14e regel dit is de 15e regel dit is de 16e regel dit is de 17e regel dit is de 18e regel dit is de 19e regel dit is de 20e regel")
+	Do $$$AssertNotEquals(Lijnen,"Dit is de 1e regel dit is de 3e regel dit is de 4e regel dit is de 5e regel dit is de 6e regel dit is de 7e regel dit is de 8e regel dit is de 9e regel dit is de 10e regel dit is de 11e regel dit is de 12e regel dit is de 13e regel dit is de 14e regel dit is de 15e regel dit is de 16e regel dit is de 17e regel dit is de 18e regel dit is de 19e regel dit is de 20e regel","Regel overgeslagen, dus niet gelijk")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Eerste twee lijnen zijn ingevuld">
+<Implementation><![CDATA[
+	#dim TestProduct As Prod.ProductTekst = ##class(Prod.ProductTekst).%New()
+	
+	Set TestProduct.Bestelreferentie1 = "Dit is de 1e regel."
+	Set TestProduct.Bestelreferentie2 = "Dit is de 2e regel, zonder volgende."
+	For I=2:1:19 {
+		set $property(TestProduct,"Bestelreferentie"_(I+1)) = ""
+	}
+	
+	#dim Lijnen As %String = ##class(AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString).%New().GeefBestelreferentieVoorProductTekst(TestProduct)
+	Do $$$AssertEquals(Lijnen,"Dit is de 1e regel. Dit is de 2e regel, zonder volgende.")
+	Do $$$AssertNotEquals(Lijnen,"Dit is de 1e regel.Dit is de 2e regel, zonder volgende.","Tussenspatie ontbreekt, dus niet gelijk")
+	Do $$$AssertNotEquals(Lijnen,"Dit is de 1e regel.")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>