Index: vhUnitTest/PRA/GlobalNode/PersistenceMgrTests.cls.xml
===================================================================
diff -u -r29059 -r33232
--- vhUnitTest/PRA/GlobalNode/PersistenceMgrTests.cls.xml	(.../PersistenceMgrTests.cls.xml)	(revision 29059)
+++ vhUnitTest/PRA/GlobalNode/PersistenceMgrTests.cls.xml	(.../PersistenceMgrTests.cls.xml)	(revision 33232)
@@ -75,6 +75,31 @@
 	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),"de waarde", "Controle van de waarde vooraf.")
+	
+	Set ^vhUnitTestTECHGlobal(1,"a")="UT_WaardeInGlobalGewijzigd"
+	Do Node.Reload()
+	
+	Do $$$AssertEquals(Node.GeefPiece(1),"UT_WaardeInGlobalGewijzigd", "Controle van 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),"de waarde", "Controle van de waarde vooraf.")
+	
+	Do Node.ZetPiece(1,"NieuweWaarde")
+	Do $$$AssertEquals(Node.GeefPiece(1),"NieuweWaarde", "Controle van de waarde na de ZetPiece.")
+	
+	Do Node.Reload()
+	Do $$$AssertEquals(Node.GeefPiece(1),"de waarde", "Controle van de waarde na Reload.")
+]]></Implementation>
+</Method>
 </Class>