Index: vhUnitTest/TECH/ObjectListUtils/RemoveItemWithPropertyValue/dto.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ObjectListUtils/RemoveItemWithPropertyValue/dto.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ObjectListUtils/RemoveItemWithPropertyValue/dto.cls.xml	(revision 2141)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ObjectListUtils.RemoveItemWithPropertyValue.dto">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="String">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Integer">
+<Type>TECH.Integer</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>String:TECH.String,Integer:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..String = String
+	Set ..Integer = Integer
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ObjectListUtils/RemoveItemWithPropertyValue/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ObjectListUtils/RemoveItemWithPropertyValue/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ObjectListUtils/RemoveItemWithPropertyValue/Test.cls.xml	(revision 2141)
@@ -0,0 +1,124 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ObjectListUtils.RemoveItemWithPropertyValue.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="MainList">
+<Type>vhUnitTest.TECH.ObjectListUtils.RemoveItemWithPropertyValue.dto</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="ExpectedList">
+<Type>vhUnitTest.TECH.ObjectListUtils.RemoveItemWithPropertyValue.dto</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..MainList = ##class(%ListOfObjects).%New()
+	Set ..ExpectedList = ##class(%ListOfObjects).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Remove from empty list">
+<Implementation><![CDATA[	Do ..AssertListAfterRemovingItem("String", "value")
+]]></Implementation>
+</Method>
+
+<Method name="Test: value not in list -&gt; no items were removed">
+<Implementation><![CDATA[
+	Do ..InsertInMainList("value 1", 1)
+	Do ..InsertInExpectedList("value 1", 1)
+	Do ..InsertInMainList("value 2", 2)
+	Do ..InsertInExpectedList("value 2", 2)
+	
+	Do ..AssertListAfterRemovingItem("String", "value")
+]]></Implementation>
+</Method>
+
+<Method name="Test: value in list -&gt; the item is removed">
+<Implementation><![CDATA[
+	Do ..InsertInMainList("value 1", 1)
+	Do ..InsertInMainList("value 2", 2)
+	Do ..InsertInExpectedList("value 2", 2)
+	
+	Do ..AssertListAfterRemovingItem("String", "value 1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: value is last in list -&gt; the item is removed">
+<Implementation><![CDATA[
+	Do ..InsertInMainList("value 1", 1)
+	Do ..InsertInExpectedList("value 1", 1)
+	Do ..InsertInMainList("value 2", 2)
+	
+	Do ..AssertListAfterRemovingItem("String", "value 2")
+]]></Implementation>
+</Method>
+
+<Method name="Test: value is multiple times in list -&gt; the items are removed">
+<Implementation><![CDATA[
+	Do ..InsertInMainList("value 1", 1)
+	Do ..InsertInMainList("value 1", 2)
+	Do ..InsertInMainList("value 2", 1)
+	Do ..InsertInExpectedList("value 2", 1)
+	Do ..InsertInMainList("value 1", 3)
+	
+	Do ..AssertListAfterRemovingItem("String", "value 1")
+]]></Implementation>
+</Method>
+
+<Method name="InsertInMainList">
+<FormalSpec>String:TECH.String,Integer:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..MainList.Insert(..CreateDto(String, Integer))
+]]></Implementation>
+</Method>
+
+<Method name="InsertInExpectedList">
+<FormalSpec>String:TECH.String,Integer:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..ExpectedList.Insert(..CreateDto(String, Integer))
+]]></Implementation>
+</Method>
+
+<Method name="CreateDto">
+<FormalSpec>String:TECH.String,Integer:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhUnitTest.TECH.ObjectListUtils.RemoveItemWithPropertyValue.dto</ReturnType>
+<Implementation><![CDATA[	Quit ##class(vhUnitTest.TECH.ObjectListUtils.RemoveItemWithPropertyValue.dto).%New(String, Integer)
+]]></Implementation>
+</Method>
+
+<Method name="AssertListAfterRemovingItem">
+<FormalSpec>Property:TECH.String,Value:%CacheString</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(TECH.ObjectListUtils).RemoveItemWithPropertyValue(..MainList, Property, Value)
+	
+	If $$$AssertEquals(..MainList.Count(), ..ExpectedList.Count()) {
+		Set MainListIt = ##class(TECH.ListIterator).%New(..MainList)
+		Set ExpectedListIt = ##class(TECH.ListIterator).%New(..ExpectedList)
+		While MainListIt.HasNext() {
+			Do ..AssertDto(MainListIt.Next(), ExpectedListIt.Next())
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AssertDto">
+<FormalSpec>MainListDto:vhUnitTest.TECH.ObjectListUtils.RemoveItemWithPropertyValue.dto,ExpectedListDto:vhUnitTest.TECH.ObjectListUtils.RemoveItemWithPropertyValue.dto</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(MainListDto.String, ExpectedListDto.String)
+	Do $$$AssertEquals(MainListDto.Integer, ExpectedListDto.Integer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>