Index: vhUnitTest/TECH/Persistentie/GlobalPersistenceMgr/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Persistentie/GlobalPersistenceMgr/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Persistentie/GlobalPersistenceMgr/Test.cls.xml	(revision 2322)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Persistentie.GlobalPersistenceMgr.Test">
+<ClassType/>
+<Import>zTryout.ARC.TECH.Persistentie</Import>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ^vhUnitTestTECHGlobal(1,"a")="InitWaarde"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill ^vhUnitTestTECHGlobal(1,"a")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefNode">
+<Implementation><![CDATA[
+	#dim Node As TECH.Persistentie.GlobalNode = ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().GeefNode("^vhUnitTestTECHGlobal", 1, "a")
+	
+	Do $$$AssertTrue($IsObject(Node))
+	Do $$$AssertTrue(Node.IsPersistent())
+	Do $$$AssertEquals(Node.GeefPersistenteLokatie(),"^vhUnitTestTECHGlobal(""1"",""a"")")
+	Do $$$AssertFalse(Node.IsLeeg())
+	Do $$$AssertEquals(Node.GeefPiece(1),"InitWaarde")
+]]></Implementation>
+</Method>
+
+<Method name="TestStartStop">
+<Implementation><![CDATA[
+	Do ##class(TECH.Persistentie.GlobalPersistenceMgr).Start()
+
+	#dim Node As TECH.Persistentie.GlobalNode = ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().GeefNode("^vhUnitTestTECHGlobal", 1, "a")
+
+	Do Node.ZetPiece(1,"gewijzigde waarde")
+	Do $$$AssertEquals(Node.GeefPiece(1),"gewijzigde waarde")
+
+	// Opnieuw opvragen van de node, geeft dezelfde, zolang dezelfde GlobalPersistenceMgr gebruikt wordt.
+	Set Node=##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().GeefNode("^vhUnitTestTECHGlobal", 1, "a")
+	Do $$$AssertEquals(Node.GeefPiece(1),"gewijzigde waarde")
+	
+	Do ##class(TECH.Persistentie.GlobalPersistenceMgr).Stop()
+
+	// Na sluiten van een GlobalPersistenceMgr, krijg je een nieuwe in-memory representatie.
+	Set Node=##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().GeefNode("^vhUnitTestTECHGlobal", 1, "a")
+	Do $$$AssertEquals(Node.GeefPiece(1),"InitWaarde")
+]]></Implementation>
+</Method>
+
+<Method name="TestMaakLegeNode">
+<Implementation><![CDATA[
+	#dim Node As TECH.Persistentie.GlobalNode = ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().MaakLegeNode()
+	
+	Do $$$AssertFalse(Node.IsPersistent())
+	Do $$$AssertEquals(Node.GeefPersistenteLokatie(),"")
+]]></Implementation>
+</Method>
+
+<Method name="TestMaakNodePersistent">
+<Implementation><![CDATA[
+	#dim Node As TECH.Persistentie.GlobalNode = ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().MaakLegeNode()
+	Do ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().MaakNodePersistent(Node, "^vhUnitTestTECHGlobal",2, "a")
+
+	Do $$$AssertTrue(Node.IsPersistent())
+	Do $$$AssertEquals(Node.GeefPersistenteLokatie(),"^vhUnitTestTECHGlobal(""2"",""a"")")
+]]></Implementation>
+</Method>
+
+<Method name="Test Reload PersistentNode na wijziging in de onderliggende global">
+<Implementation><![CDATA[
+	#dim Node As TECH.Persistentie.GlobalNode = ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().GeefNode("^vhUnitTestTECHGlobal", 1, "a")
+	Do $$$AssertEquals(Node.GeefPiece(1),"InitWaarde", "Initiele waarde")
+	
+	Set ^vhUnitTestTECHGlobal(1,"a")="WaardeInGlobalGewijzigd"
+	Do $$$AssertEquals(Node.GeefPiece(1),"InitWaarde", "Na wijziging global, maar nog geen Reload()")
+
+	Do Node.Reload()
+	
+	Do $$$AssertEquals(Node.GeefPiece(1),"WaardeInGlobalGewijzigd", "De waarde na Reload()")
+]]></Implementation>
+</Method>
+
+<Method name="Test Reload PersistentNode na wijziging via de Node.ZetPiece">
+<Implementation><![CDATA[
+	#dim Node As TECH.Persistentie.GlobalNode = ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().GeefNode("^vhUnitTestTECHGlobal", 1, "a")
+	Do $$$AssertEquals(Node.GeefPiece(1),"InitWaarde", "Initiele waarde")
+	
+	Do Node.ZetPiece(1,"NieuweWaarde")
+	Do $$$AssertEquals(Node.GeefPiece(1),"NieuweWaarde", "de waarde na de ZetPiece.")
+	
+	Do Node.Reload()
+	
+	Do $$$AssertEquals(Node.GeefPiece(1),"InitWaarde", "De waarde na Reload()")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>