FishEye: Tag 29834 refers to a dead (removed) revision in file `vhUnitTest/DOM/PM/TAORProduct/impl/KorttekstBepaler/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/StandaardKorttekstBepaler/Test.cls.xml	(revision 29834)
@@ -0,0 +1,195 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.TAX.impl.StandaardKorttekstBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="DossierNummer">
+<Type>%String</Type>
+<Default>abc</Default>
+</Parameter>
+
+<Property name="HalffabItemsBoom">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KorttekstBepaler">
+<Type>DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TAORKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..KorttekstBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super()
+
+	Set ..TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
+]]></Implementation>
+</Method>
+
+<Method name="TestPrefix">
+<Implementation><![CDATA[	Do $$$AssertStartsWith(..BepaalKorttekst(), "TA")
+]]></Implementation>
+</Method>
+
+<Method name="TestLengte">
+<Implementation><![CDATA[	Do $$$AssertEquals($Length(..BepaalKorttekst()), 25)
+]]></Implementation>
+</Method>
+
+<Method name="TestDraagkrachtCode">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.Draagkracht = ##class(DOM.PM.enu.TAORDraagkracht).Draagkracht60()
+	
+	Do $$$AssertEquals($Extract(..BepaalKorttekst(), 3, 3), "6")
+]]></Implementation>
+</Method>
+
+<Method name="TestZijwandHoogte">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()
+	
+	Do $$$AssertEquals($Extract(..BepaalKorttekst(), 4, 4), "M")
+]]></Implementation>
+</Method>
+
+<Method name="TestDesignCode">
+<Implementation><![CDATA[	Do $$$AssertEquals($Extract(..BepaalKorttekst(), 5, 5), "/")
+]]></Implementation>
+</Method>
+
+<Method name="TestFrontBevestigingCode">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TAORFrontBevestiging).Schroef()
+	
+	Do $$$AssertEquals($Extract(..BepaalKorttekst(), 6, 6), "S")
+]]></Implementation>
+</Method>
+
+<Method name="TestFrontBevestigingCodeVoorBinnenlade">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.IsBinnenlade = $$$True
+	Set ..TAORKenmerken.FrontEindkapKleur = ##class(DOM.PM.enu.TAORFrontEindkapKleur).AluminiumLook()
+	
+	Do $$$AssertEquals($Extract(..BepaalKorttekst(), 6, 6), "Z")
+]]></Implementation>
+</Method>
+
+<Method name="TestDossierCode">
+<Implementation><![CDATA[	Do $$$AssertEquals($Extract(..BepaalKorttekst(), 7, 11), "  abc")
+]]></Implementation>
+</Method>
+
+<Method name="TestDimensieVoorBreedteKleinerDan1000">
+<Implementation><![CDATA[	Do ..AssertBreedte(600, "500x600 ")
+]]></Implementation>
+</Method>
+
+<Method name="TestDimensieVoorBreedteGroterDan1000">
+<Implementation><![CDATA[	Do ..AssertBreedte(1400, "500x1400")
+]]></Implementation>
+</Method>
+
+<Method name="TestDimensieVoorBreedteMetKomma">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte500()
+	Set ..TAORKenmerken.CorpusBinnenbreedte = 600.5
+	
+	Do $$$AssertEquals($Extract(..BepaalKorttekst(), 12, 19), "500x600.")
+]]></Implementation>
+</Method>
+
+<Method name="TestVerpakkingCodeVoorV1">
+<Implementation><![CDATA[	Do ..AssertVerpakkingType(##class(DOM.PM.enu.TAORVerpakkingType).V1(), " ")
+]]></Implementation>
+</Method>
+
+<Method name="TestVerpakkingCodeVoorProbox">
+<Implementation><![CDATA[	Do ..AssertVerpakkingType(##class(DOM.PM.enu.TAORVerpakkingType).Probox(), "X")
+]]></Implementation>
+</Method>
+
+<Method name="TestSpatie">
+<Implementation><![CDATA[	Do $$$AssertEquals($Extract(..BepaalKorttekst(), 21, 21), " ")
+]]></Implementation>
+</Method>
+
+<Method name="TestBuitenkleurCode">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurEikenhout()
+	
+	Do $$$AssertEquals($Extract(..BepaalKorttekst(), 22, 23), "NE")
+]]></Implementation>
+</Method>
+
+<Method name="TestBinnenkleurCode">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORBodemKleur).NebraskaEikenhout()
+	
+	Do $$$AssertEquals($Extract(..BepaalKorttekst(), 24, 25), "E2")
+]]></Implementation>
+</Method>
+
+<Method name="BepaalKorttekst">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#Dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(..TAORKenmerken)
+	
+	Quit ..KorttekstBepaler.BepaalKorttekst(..#DossierNummer, ..TAORKenmerken, HalffabItemsBoom)
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabItemsBoom">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
+<Implementation><![CDATA[
+	#Dim Klant As DOM.VKP.enu.Klant = ##class(DOM.VKP.enu.Klant).Halux()
+	#Dim Personality As DOM.common.VanHoeckePersonality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	#Dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1, Klant, Personality)
+	#Dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Kenmerken.GeefFamilie(), Kenmerken.GeefVariant(), BerekeningsSpecificatie)
+	
+	Do HalffabContext.GeefHalffabSpec().BerekenHalffabDetails(HalffabContext, Kenmerken)
+	
+	Quit HalffabContext.HalffabItemsBoom
+]]></Implementation>
+</Method>
+
+<Method name="AssertBreedte">
+<FormalSpec>Breedte:TECH.Numeric,VerwachteDimensie:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte500()
+	Set ..TAORKenmerken.CorpusBinnenbreedte = Breedte
+	
+	Do $$$AssertEquals($Extract(..BepaalKorttekst(), 12, 19), VerwachteDimensie)
+]]></Implementation>
+</Method>
+
+<Method name="AssertVerpakkingType">
+<FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType,VerwachteVerpakkingCode:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.VerpakkingType = VerpakkingType
+	
+	Do $$$AssertEquals($Extract(..BepaalKorttekst(), 20, 20), VerwachteVerpakkingCode)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>