Index: vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml =================================================================== diff -u -r45971 -r45972 --- vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml (.../Test.cls.xml) (revision 45971) +++ vhUnitTest/DOM/PM/impl/ProductImpl/Test.cls.xml (.../Test.cls.xml) (revision 45972) @@ -203,9 +203,9 @@ Set DataMProductMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() #dim Product As DOM.PM.Product = ##class(DOM.PM.impl.ProductImpl).%New(..#ProductId,DataMProductMock) - Do DataMProductMock.VerwachtMethodCall("ZetGewichtPerDuizendStuksInKG","GewichtPerDuizendStuksInKG").DanDoeNiks() + Do DataMProductMock.VerwachtMethodCall("ZetGewichtPerDuizendStuksInKG","123.45").DanDoeNiks() - Do Product.ZetGewichtPerDuizendStuksInKG("GewichtPerDuizendStuksInKG") + Do Product.ZetGewichtPerDuizendStuksInKG("123.45") Do DataMProductMock.Verifieer() ]]> @@ -216,9 +216,9 @@ Set DataMProductMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() #dim Product As DOM.PM.Product = ##class(DOM.PM.impl.ProductImpl).%New(..#ProductId,DataMProductMock) - Do DataMProductMock.VerwachtMethodCall("ZetAantalInGrootVerpakking","AantalInGrootVerpakking").DanDoeNiks() + Do DataMProductMock.VerwachtMethodCall("ZetAantalInGrootVerpakking","333").DanDoeNiks() - Do Product.ZetAantalInGrootVerpakking("AantalInGrootVerpakking") + Do Product.ZetAantalInGrootVerpakking("333") Do DataMProductMock.Verifieer() ]]> @@ -229,9 +229,9 @@ Set DataMProductMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() #dim Product As DOM.PM.Product = ##class(DOM.PM.impl.ProductImpl).%New(..#ProductId,DataMProductMock) - Do DataMProductMock.VerwachtMethodCall("ZetAantalInKleinVerpakking","AantalInKleinVerpakking").DanDoeNiks() + Do DataMProductMock.VerwachtMethodCall("ZetAantalInKleinVerpakking","111").DanDoeNiks() - Do Product.ZetAantalInKleinVerpakking("AantalInKleinVerpakking") + Do Product.ZetAantalInKleinVerpakking("111") Do DataMProductMock.Verifieer() ]]> @@ -242,9 +242,9 @@ Set DataMProductMock = ##class(vhTest.Mock.DOM.PM.impl.DataM.DataMProduct).%New() #dim Product As DOM.PM.Product = ##class(DOM.PM.impl.ProductImpl).%New(..#ProductId,DataMProductMock) - Do DataMProductMock.VerwachtMethodCall("ZetAantalInNormaleVerpakking","AantalInNormaleVerpakking").DanDoeNiks() + Do DataMProductMock.VerwachtMethodCall("ZetAantalInNormaleVerpakking","222").DanDoeNiks() - Do Product.ZetAantalInNormaleVerpakking("AantalInNormaleVerpakking") + Do Product.ZetAantalInNormaleVerpakking("222") Do DataMProductMock.Verifieer() ]]> Index: vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml =================================================================== diff -u -r45971 -r45972 --- vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml (.../Test.cls.xml) (revision 45971) +++ vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml (.../Test.cls.xml) (revision 45972) @@ -47,15 +47,15 @@ Do Product.ZetSubGroep("SubGroep") Do Product.ZetFSCHout("FSCHout") Do Product.ZetTelbaar("Telbaar") - Do Product.ZetGewichtPerDuizendStuksInKG("GewichtPerDuizendStuksInKG") - Do Product.ZetAantalInGrootVerpakking("AantalInGrootVerpakking") - Do Product.ZetAantalInKleinVerpakking("AantalInKleinVerpakking") - Do Product.ZetAantalInNormaleVerpakking("AantalInNormaleVerpakking") + Do Product.ZetGewichtPerDuizendStuksInKG("123.45") + Do Product.ZetAantalInGrootVerpakking("333") + Do Product.ZetAantalInKleinVerpakking("111") + Do Product.ZetAantalInNormaleVerpakking("222") - Do $$$AssertEquals(Product.GeefAantalInStukVerpakking(),"AantalInNormaleVerpakking") - Do $$$AssertEquals(Product.GeefAantalInKleinVerpakking(),"AantalInKleinVerpakking") - Do $$$AssertEquals(Product.GeefAantalInGrootVerpakking(),"AantalInGrootVerpakking") - Do $$$AssertEquals(Product.GeefGewichtPerDuizendStuksInKG(),"GewichtPerDuizendStuksInKG") + Do $$$AssertEquals(Product.GeefAantalInStukVerpakking(),"222") + Do $$$AssertEquals(Product.GeefAantalInKleinVerpakking(),"111") + Do $$$AssertEquals(Product.GeefAantalInGrootVerpakking(),"333") + Do $$$AssertEquals(Product.GeefGewichtPerDuizendStuksInKG(),"123.45") Do $$$AssertEquals(Product.GeefTelbaar(),"Telbaar") Do $$$AssertEquals(Product.GeefFSCHout(),"FSCHout") Do $$$AssertEquals(Product.GeefSubGroep(),"SubGroep")