Index: vhUnitTest/TECH/ArrayMultiDimIterator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ArrayMultiDimIterator/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ArrayMultiDimIterator/Test.cls.xml	(revision 1583)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ArrayMultiDimIterator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestGeeftZelfdeResultaatAlsDeOneDimIterator">
+<Description>
+Deze method test dat het gedrag van de ArrayMultiDimIterator exact gelijk is aan dat van de ArrayOneDimIterator bij een 1-dim array
+Voorwaarde : de input is een 1-dim array (m.a.w. slechts 1 subnode-niveau)</Description>
+<Implementation><![CDATA[
+	#define DummyGetal   5
+	
+	#dim LocalArrayOneDim As %String
+	Set LocalArrayOneDim = $$$DummyGetal
+	set LocalArrayOneDim(1)="Item1"
+	set LocalArrayOneDim(2)="Item2"
+	set LocalArrayOneDim("A")="Item3"
+	
+	Set OneDimIterator=##class(TECH.ArrayOneDimIterator).%New(.LocalArrayOneDim)
+	Set MultiDimIterator=##class(TECH.ArrayMultiDimIterator).%New(.LocalArrayOneDim)
+	
+	#dim List1 As %ListOfDataTypes = ..GeefLijst(OneDimIterator)
+	#dim List2 As %ListOfDataTypes = ..GeefLijst(MultiDimIterator)
+
+	do ..AssertLijsten(List1,List2)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijst">
+<FormalSpec>Iterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set List = ##class(%ListOfDataTypes).%New()
+	While (Iterator.HasNext()) {
+		Do List.Insert(Iterator.Next())
+	}
+	Quit List
+]]></Implementation>
+</Method>
+
+<Method name="AssertLijsten">
+<FormalSpec>List1:%ListOfDataTypes,List2:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do $$$AssertEqualsList(List1,List2)
+	do $$$AssertEquals(##class(TECH.ListUtils).ListToPieces(List1),##class(TECH.ListUtils).ListToPieces(List2))   ; meer leesbare versie, interessant indien fouten :-P
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>