Index: vhUnitTest/TECH/KeyValueList/ToStream/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/KeyValueList/ToStream/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/KeyValueList/ToStream/Test.cls.xml	(revision 996)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.KeyValueList.ToStream.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	Set KeyValueList = ##class(TECH.KeyValueList).%New()
+	Do KeyValueList.InsertKeyValuePair("Key1", "Value1")
+	Do KeyValueList.InsertKeyValuePair("Key2", "Value2")
+	Do KeyValueList.InsertKeyValuePair("Key3", "ValueValueValue3")
+	Do KeyValueList.InsertKeyValuePair("KeyKeyKeyKey4", "Value4")
+	#dim Stream As %GlobalCharacterStream = KeyValueList.ToStream()
+	Do $$$AssertEquals(Stream.ReadLine(),"Key:Key1, Value:Value1")
+	Do $$$AssertEquals(Stream.ReadLine(),"Key:Key2, Value:Value2")
+	Do $$$AssertEquals(Stream.ReadLine(),"Key:Key3, Value:ValueValueValue3")
+	Do $$$AssertEquals(Stream.ReadLine(),"Key:KeyKeyKeyKey4, Value:Value4")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>