Index: vhUnitTest/TECH/GlobalMultiDimKeyIterator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/GlobalMultiDimKeyIterator/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/GlobalMultiDimKeyIterator/Test.cls.xml	(revision 3135)
@@ -0,0 +1,124 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.GlobalMultiDimKeyIterator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="DataGlobal">
+<Type>%String</Type>
+<Default>^vhUnitTest.TECH.GlobalMultiDimKeyIterator</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:TECH.String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ..DeleteData()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:TECH.String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..DeleteData()
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Multiple integer items">
+<Implementation><![CDATA[
+	Set ^vhUnitTest.TECH.GlobalMultiDimKeyIterator(1) = "Item1"
+	Set ^vhUnitTest.TECH.GlobalMultiDimKeyIterator(2) = "Item2"
+	
+	Set Iterator = ##class(TECH.GlobalMultiDimKeyIterator).%New("^vhUnitTest.TECH.GlobalMultiDimKeyIterator")
+	Do $$$AssertTrue(Iterator.HasNext())
+	Do $$$AssertEquals(Iterator.Next(),"(1)")
+	Do $$$AssertTrue(Iterator.HasNext())
+	Do $$$AssertEquals(Iterator.Next(),"(2)")
+	Do $$$AssertFalse(Iterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Multiple items - string and integers">
+<Implementation><![CDATA[
+	Set ^vhUnitTest.TECH.GlobalMultiDimKeyIterator(1) = "Item1"
+	Set ^vhUnitTest.TECH.GlobalMultiDimKeyIterator("A") = "ItemA"
+	
+	Set Iterator = ##class(TECH.GlobalMultiDimKeyIterator).%New("^vhUnitTest.TECH.GlobalMultiDimKeyIterator")
+	Do $$$AssertTrue(Iterator.HasNext())
+	Do $$$AssertEquals(Iterator.Next(),"(1)")
+	Do $$$AssertTrue(Iterator.HasNext())
+	Do $$$AssertEquals(Iterator.Next(),"(""A"")")
+	Do $$$AssertFalse(Iterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Multiple nodes waarvan er één geskipped wordt">
+<Implementation><![CDATA[
+	Set ^vhUnitTest.TECH.GlobalMultiDimKeyIterator(1) = "SkippedNode"
+	Set ^vhUnitTest.TECH.GlobalMultiDimKeyIterator(1,1) = "Item1.1"
+	Set ^vhUnitTest.TECH.GlobalMultiDimKeyIterator(1,2) = "Item1.2"
+	Set ^vhUnitTest.TECH.GlobalMultiDimKeyIterator(1,3,1) = "Item1.3.1"
+	
+	Set Iterator = ##class(TECH.GlobalMultiDimKeyIterator).%New("^vhUnitTest.TECH.GlobalMultiDimKeyIterator(1)")
+	Do $$$AssertTrue(Iterator.HasNext())
+	Do $$$AssertEquals(Iterator.Next(),"(1,1)")
+	Do $$$AssertTrue(Iterator.HasNext())
+	Do $$$AssertEquals(Iterator.Next(),"(1,2)")
+	Do $$$AssertTrue(Iterator.HasNext())
+	Do $$$AssertEquals(Iterator.Next(),"(1,3,1)")
+	Do $$$AssertFalse(Iterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Reset">
+<Implementation><![CDATA[
+	Set ^vhUnitTest.TECH.GlobalMultiDimKeyIterator(1) = "SkippedNode"
+	Set ^vhUnitTest.TECH.GlobalMultiDimKeyIterator(1,1) = "Item1.1"
+	Set ^vhUnitTest.TECH.GlobalMultiDimKeyIterator(1,2) = "Item1.2"
+	Set ^vhUnitTest.TECH.GlobalMultiDimKeyIterator(1,3,1) = "Item1.3.1"
+	
+	Set Iterator = ##class(TECH.GlobalMultiDimKeyIterator).%New("^vhUnitTest.TECH.GlobalMultiDimKeyIterator(1)")
+	
+	Do $$$AssertTrue(Iterator.HasNext())
+	Do $$$AssertEquals(Iterator.Next(),"(1,1)")
+	Do $$$AssertTrue(Iterator.HasNext())
+	Do $$$AssertEquals(Iterator.Next(),"(1,2)")
+	Do Iterator.Reset()
+	Do $$$AssertTrue(Iterator.HasNext())
+	Do $$$AssertEquals(Iterator.Next(),"(1,1)")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Level 2 in combinatie met Level 1">
+<Implementation><![CDATA[
+	Set ^vhUnitTest.TECH.GlobalMultiDimKeyIterator(1,1) = "Item1.1"
+	Set ^vhUnitTest.TECH.GlobalMultiDimKeyIterator(2) = "Item2"
+	
+	Set Iterator = ##class(TECH.GlobalMultiDimKeyIterator).%New("^vhUnitTest.TECH.GlobalMultiDimKeyIterator")
+	Do $$$AssertTrue(Iterator.HasNext())
+	Do $$$AssertEquals(Iterator.Next(),"(1,1)")
+	Do $$$AssertTrue(Iterator.HasNext())
+	Do $$$AssertEquals(Iterator.Next(),"(2)")
+	Do $$$AssertFalse(Iterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als we lager in de tree vertrekken dan komen we geen nodes meer tegen">
+<Implementation><![CDATA[
+	Set ^vhUnitTest.TECH.GlobalMultiDimKeyIterator(1,1) = "SkippedNode"
+	Set ^vhUnitTest.TECH.GlobalMultiDimKeyIterator(2,1) = "SkippedNode"
+	
+	Set Iterator = ##class(TECH.GlobalMultiDimKeyIterator).%New("^vhUnitTest.TECH.GlobalMultiDimKeyIterator(3)")
+	Do $$$AssertFalse(Iterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="DeleteData">
+<Private>1</Private>
+<Implementation><![CDATA[	Kill @..#DataGlobal
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/GlobalMultiDimKeyIterator.cls.xml
===================================================================
diff -u
--- TECH/GlobalMultiDimKeyIterator.cls.xml	(revision 0)
+++ TECH/GlobalMultiDimKeyIterator.cls.xml	(revision 3135)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.GlobalMultiDimKeyIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="GlobalMultiDimIterator">
+<Type>TECH.GlobalMultiDimIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>GlobalReference:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..GlobalMultiDimIterator = ##class(TECH.GlobalMultiDimIterator).%New(GlobalReference)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..GlobalMultiDimIterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	Do ..GlobalMultiDimIterator.Next()
+	#dim Next As %CacheString = ..GlobalMultiDimIterator.Key()
+	Quit Next
+]]></Implementation>
+</Method>
+
+<Method name="Reset">
+<Implementation><![CDATA[	Do ..GlobalMultiDimIterator.Reset()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>