Index: vhUnitTest/TECH/Persistentie/GlobalNode/Test.cls.xml
===================================================================
diff -u -r3070 -r3073
--- vhUnitTest/TECH/Persistentie/GlobalNode/Test.cls.xml	(.../Test.cls.xml)	(revision 3070)
+++ vhUnitTest/TECH/Persistentie/GlobalNode/Test.cls.xml	(.../Test.cls.xml)	(revision 3073)
@@ -132,12 +132,27 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test foutmelding bij meegeven van &apos;\&apos; in waarde">
+<Method name="Test foutmelding bij meegeven van delimiter &apos;\&apos; in waarde">
+<Implementation><![CDATA[	Do ..AssertFoutmeldingByGebruikVanDelimiter("\")
+]]></Implementation>
+</Method>
+
+<Method name="Test foutmelding bij meegeven van delimiter andere dan &apos;\&apos; in waarde">
 <Implementation><![CDATA[
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("De meeggegeven Waarde mag geen '\' bevatten bij het zetten van een piece!")
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	#dim Delimiter As %String = "Andere"
+	Set ..Node = ##class(TECH.Persistentie.GlobalNode).%New(Delimiter)
+	Do ..AssertFoutmeldingByGebruikVanDelimiter(Delimiter)
+]]></Implementation>
+</Method>
 
-	Do ..Node.ZetPiece(2, "\")
+<Method name="AssertFoutmeldingByGebruikVanDelimiter">
+<FormalSpec>Delimiter:%String="\"</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("De meeggegeven Waarde mag geen '" _Delimiter _"' bevatten bij het zetten van een piece!")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	Do ..Node.ZetDelimitedString(Delimiter)
+	Do ..Node.ZetPiece(2, Delimiter)
 ]]></Implementation>
 </Method>
 </Class>