Index: vhUnitTest/TECH/KeyValue/ListBase/TestBase.cls.xml
===================================================================
diff -u -r1794 -r1892
--- vhUnitTest/TECH/KeyValue/ListBase/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 1794)
+++ vhUnitTest/TECH/KeyValue/ListBase/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 1892)
@@ -130,6 +130,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestToString">
+<Implementation><![CDATA[
+	#Define Key1 "Key1"
+	#Define Key2 "Key2"
+	#Define Key3 "Key3"
+	#Define Key4 "Key4"
+	
+	#Define Value1 "Value1"
+	#Define Value2 "Value2"
+	#Define Value3 "ValueValueValue3"
+	#Define Value4 "Value4"
+	
+	Do ..KeyValueList.InsertKeyValue($$$Key1, $$$Value1)
+	Do ..KeyValueList.InsertKeyValue($$$Key2, $$$Value2)
+	Do ..KeyValueList.InsertKeyValue($$$Key3, $$$Value3)
+	Do ..KeyValueList.InsertKeyValue($$$Key4, $$$Value4)
+	
+	#dim KVPDelimiter As %String = "||"
+	#dim String As %String = ..KeyValueList.ToString(KVPDelimiter)
+	
+	Do $$$AssertEquals(String, "Key="_$$$Key1_",Value="_$$$Value1 _ KVPDelimiter _ "Key="_$$$Key2_",Value="_$$$Value2 _ KVPDelimiter _ "Key="_$$$Key3_",Value="_$$$Value3 _ KVPDelimiter _ "Key="_$$$Key4_",Value="_$$$Value4)
+]]></Implementation>
+</Method>
+
 <Method name="CreateKeyValueList">
 <Abstract>1</Abstract>
 <Private>1</Private>