Index: vhUnitTest/TECH/KeyValue/ListBase/TestBase.cls.xml
===================================================================
diff -u -r1892 -r3585
--- vhUnitTest/TECH/KeyValue/ListBase/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 1892)
+++ vhUnitTest/TECH/KeyValue/ListBase/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 3585)
@@ -104,6 +104,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: CreateKeyValueListFromListbuild">
+<Implementation><![CDATA[
+	#dim KeyValueListFromListbuild As TECH.KeyValue.ListBase = ..KeyValueList.CreateKeyValueListFromListbuild( $LB("Key1","Value1"), $LB("Key2","Value2") ) 
+	#dim VerwachteKlassenaam As %String = ..KeyValueList.%ClassName($$$True)
+
+	If $$$AssertEquals(KeyValueListFromListbuild.Count(), 2) {
+		Do $$$AssertEquals(KeyValueListFromListbuild.GetAt(1).Key  , "Key1"  )
+		Do $$$AssertEquals(KeyValueListFromListbuild.GetAt(1).Value, "Value1")
+		Do $$$AssertEquals(KeyValueListFromListbuild.GetAt(2).Key  , "Key2"  )
+		Do $$$AssertEquals(KeyValueListFromListbuild.GetAt(2).Value, "Value2")
+	}
+	Do $$$AssertEquals(KeyValueListFromListbuild.%ClassName($$$True), VerwachteKlassenaam)
+]]></Implementation>
+</Method>
+
 <Method name="Test: ToStream">
 <Implementation><![CDATA[
 	#Define Key1 "Key1"