Index: APPS/PM/BulkActie/Acties/WijzigKorttekst.cls.xml
===================================================================
diff -u -r29059 -r36266
--- APPS/PM/BulkActie/Acties/WijzigKorttekst.cls.xml	(.../WijzigKorttekst.cls.xml)	(revision 29059)
+++ APPS/PM/BulkActie/Acties/WijzigKorttekst.cls.xml	(.../WijzigKorttekst.cls.xml)	(revision 36266)
@@ -3,6 +3,27 @@
 <Class name="APPS.PM.BulkActie.Acties.WijzigKorttekst">
 <Super>APPS.PM.BulkActie.ProductBulkActie</Super>
 
+<Property name="KorttekstUtils">
+<Type>DOM.PM.KorttekstUtils</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BulkFactor:%String,Omschrijving:%String,KorttekstUtils:DOM.PM.KorttekstUtils=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super(BulkFactor, Omschrijving)
+	
+	Set ..KorttekstUtils = $$$Inject(KorttekstUtils, ##class(DOM.PM.KorttekstUtils).%New())
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Valideer">
 <FormalSpec>ProductID:%String,ActieParameters:%ListOfDataTypes</FormalSpec>
 <ReturnType>APPS.PM.BulkActie.dto.ActieResultaat</ReturnType>
@@ -15,8 +36,9 @@
 <ReturnType>APPS.PM.BulkActie.dto.ActieResultaat</ReturnType>
 <Implementation><![CDATA[
 	#dim ActieResultaat As APPS.PM.BulkActie.dto.ActieResultaat = ..VervangTekstEnGeefActieResultaat(ProductID, ActieParameters)
-	#dim KortTestUtils As DOM.PM.KorttekstUtils = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefKorttekstUtils()
-	do KortTestUtils.BewaarKorttekst(ProductID,ActieResultaat.Opmerking2)
+	
+	Do ..KorttekstUtils.BewaarKorttekst(ProductID, ActieResultaat.Opmerking2)
+	
 	Quit ActieResultaat
 ]]></Implementation>
 </Method>
@@ -26,14 +48,13 @@
 <Private>1</Private>
 <ReturnType>APPS.PM.BulkActie.dto.ActieResultaat</ReturnType>
 <Implementation><![CDATA[
-	#dim startpositie As %String = ActieParameters.GetAt(1)
-	#dim patroon As %String = ActieParameters.GetAt(2)
-	Set ActieResultaat = ##class(APPS.PM.BulkActie.dto.ActieResultaat).%New()
-	#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID)
-	Set ActieResultaat.IsSuccesvol = 1
+	#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID)	
+	#dim ActieResultaat As APPS.PM.BulkActie.dto.ActieResultaat = ##class(APPS.PM.BulkActie.dto.ActieResultaat).%New()
+	
+	Set ActieResultaat.IsSuccesvol = $$$True
 	Set ActieResultaat.Opmerking = Product.GeefKorttekst()
-	#dim KorttekstUtils As DOM.PM.KorttekstUtils = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefKorttekstUtils()
-	Set ActieResultaat.Opmerking2 = KorttekstUtils.WijzigVolgensPatroon(Product.GeefKorttekst(), startpositie, patroon)
+	Set ActieResultaat.Opmerking2 = ..KorttekstUtils.WijzigVolgensPatroon(Product.GeefKorttekst(), ActieParameters.GetAt(1), ActieParameters.GetAt(2))
+	
 	Quit ActieResultaat
 ]]></Implementation>
 </Method>
FishEye: Tag 36266 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/BulkActie/WijzigKorttekst/KorttekstUtilsMock.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/PM/BulkActie/WijzigKorttekst/TestVoerUit.cls.xml
===================================================================
diff -u -r29059 -r36266
--- vhUnitTest/APPS/PM/BulkActie/WijzigKorttekst/TestVoerUit.cls.xml	(.../TestVoerUit.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/BulkActie/WijzigKorttekst/TestVoerUit.cls.xml	(.../TestVoerUit.cls.xml)	(revision 36266)
@@ -1,48 +1,40 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.PM.BulkActie.WijzigKorttekst.TestVoerUit">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.BulkActie.TestWijzigKortTekst")</Description>
 <Super>vhUnitTest.TestCase</Super>
 
 <Method name="Test">
-<Implementation><![CDATA[	Do ..VoerUit(6,"test","OL.UTPROD00","OL.UTtest00")
+<Implementation><![CDATA[	Do ..VoerUit(6, "test", "OL.UTPROD00", "OL.UTtest00")
 ]]></Implementation>
 </Method>
 
 <Method name="VoerUit">
 <FormalSpec>StartPositie:%Integer,KorttekstPatroon:%String,OorspronkelijkeKorttekst:%String,NieuweKorttekst:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	;arrange
-	set KorttekstUtilsMock = ##class(vhUnitTest.APPS.PM.BulkActie.WijzigKorttekst.KorttekstUtilsMock).%New()
-	#dim ProductAPIStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
-	do ProductAPIStub.IndienMethodCall("GeefKorttekstUtils").DanReturn(KorttekstUtilsMock)
-	do ProductAPIStub.IndienMethodCall("BestaatProduct","1001").DanReturn($$$true)
-	#dim Product As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
-	do Product.IndienMethodCall("GeefKorttekst").DanReturn(OorspronkelijkeKorttekst)
-	do ProductAPIStub.IndienMethodCall("GeefProduct","1001").DanReturn(Product)
+	#dim DummyProductId As TECH.String = "ProductId" //1001
+	#dim ProductMock As vhTest.Mock.DOM.PM.Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductMock.VerwachtMethodCall("GeefKorttekst").DanReturn(OorspronkelijkeKorttekst)
+
+	#dim KorttekstUtilsMock As vhTest.Mock.DOM.PM.KorttekstUtils = ##class(vhTest.Mock.DOM.PM.KorttekstUtils).%New()
+	Do KorttekstUtilsMock.VerwachtMethodCall("WijzigVolgensPatroon", OorspronkelijkeKorttekst, StartPositie, KorttekstPatroon).DanReturn(NieuweKorttekst)
+	Do KorttekstUtilsMock.VerwachtMethodCall("BewaarKorttekst", DummyProductId, NieuweKorttekst).DanDoeNiks()
 	
-	;act
-	set BulkActie = ##class(APPS.PM.BulkActie.Acties.WijzigKorttekst).%New($$$DummyString,$$$DummyString)
-	set ActieParameters = ##class(%ListOfDataTypes).%New()
-	do ActieParameters.Insert(StartPositie)
-	do ActieParameters.Insert(KorttekstPatroon)
-	do BulkActie.VoerUit(1001,ActieParameters)
+	#dim ProductApiMock As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", DummyProductId).DanReturn(ProductMock)
 	
-	;assert
-	do $$$AssertEquals(KorttekstUtilsMock.GeefProductID(),1001)
-	do $$$AssertEquals(KorttekstUtilsMock.GeefKorttekst(),"OL.UTtest00")
+	#dim ActieParameters As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do ActieParameters.Insert(StartPositie)
+	Do ActieParameters.Insert(KorttekstPatroon)
+	
+	#dim WijzigKorttekstBulkActie As APPS.PM.BulkActie.Acties.WijzigKorttekst = ##class(APPS.PM.BulkActie.Acties.WijzigKorttekst).%New($$$DummyString, $$$DummyString, KorttekstUtilsMock)
+	Do WijzigKorttekstBulkActie.VoerUit(DummyProductId, ActieParameters)
+	
+	Do ProductMock.Verifieer()
+	Do ProductApiMock.Verifieer()
+	Do KorttekstUtilsMock.Verifieer()
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	do ##super(aTestName)
-	do ##class(DOM.DomeinContext).Instance().PushProductAPIClassName(##class(vhTest.Mock.DOM.PM.ProductAPI).%ClassName(1))
-]]></Implementation>
-</Method>
 </Class>