Index: TECH/ListbuildIterator.cls.xml
===================================================================
diff -u
--- TECH/ListbuildIterator.cls.xml	(revision 0)
+++ TECH/ListbuildIterator.cls.xml	(revision 1583)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.ListbuildIterator">
+<Description>
+Een lege string wordt niet aanschouwd als een piece. De HasNext() zal dus false teruggeven als de string leeg is.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Iterator</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="CurrentItem">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Listbuild">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ListbuildLength">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Listbuild:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Listbuild = Listbuild
+	Set ..CurrentItem = 0
+	Set ..ListbuildLength = $listlength(..Listbuild)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<Description>
+Returns true if the iteration has more elements.</Description>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..Listbuild '= "") && (..CurrentItem < ..ListbuildLength)
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<Description>
+Returns the next element in the iteration.
+Only returns a valid element if HasNext() returns true
+Causes an error if HasNext() returns false</Description>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	Set ..CurrentItem = ..CurrentItem + 1
+	Quit $listget(..Listbuild,..CurrentItem)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/TECH/ListbuildIterator.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ListbuildIterator.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ListbuildIterator.cls.xml	(revision 1583)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.ListbuildIterator">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<UDLText name="T">
+<Content><![CDATA[
+// do ##class(vhUnitTest.Manager).RunTest("/display=all","TECH.ListbuildIterator")
+
+]]></Content>
+</UDLText>
+
+<Method name="Test">
+<Implementation><![CDATA[
+
+	set Listbuild = $listbuild(1,2,3,4,5)
+	
+	set itListbuild = ##class(TECH.ListbuildIterator).%New(Listbuild)
+	if $$$AssertTrue(itListbuild.HasNext()) { do $$$AssertEquals(itListbuild.Next(),1,"Test eerste item") }
+	else { do $$$AssertTrue(0,"Problemen met eerste item") }
+	
+	if $$$AssertTrue(itListbuild.HasNext()) { do $$$AssertEquals(itListbuild.Next(),2,"Test tweede item") }
+	else { do $$$AssertTrue(0,"Problemen met tweede item") }
+	
+	if $$$AssertTrue(itListbuild.HasNext()) { do $$$AssertEquals(itListbuild.Next(),3,"Test derde item") }
+	else { do $$$AssertTrue(0,"Problemen met derde item") }
+	
+	if $$$AssertTrue(itListbuild.HasNext()) { do $$$AssertEquals(itListbuild.Next(),4,"Test vierde item") }
+	else { do $$$AssertTrue(0,"Problemen met vierde item") }
+	
+	if $$$AssertTrue(itListbuild.HasNext()) { do $$$AssertEquals(itListbuild.Next(),5,"Test vijfde item") }
+	else { do $$$AssertTrue(0,"Problemen met vijfde item") }
+	
+	do $$$AssertFalse(itListbuild.HasNext())
+]]></Implementation>
+</Method>
+</Class>
+</Export>