Index: vhUnitTest/zTryout/WV/FPV1/DOM/impl/SlicedBodemBepaler/GeefSlicedBodemInfo/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/zTryout/WV/FPV1/DOM/impl/SlicedBodemBepaler/GeefSlicedBodemInfo/Test.cls.xml	(revision 0)
+++ vhUnitTest/zTryout/WV/FPV1/DOM/impl/SlicedBodemBepaler/GeefSlicedBodemInfo/Test.cls.xml	(revision 29818)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.zTryout.WV.FPV1.DOM.impl.SlicedBodemBepaler.GeefSlicedBodemInfo.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="SlicedBodemBepaler">
+<Type>zTryout.WV.FPV1.DOM.impl.SlicedBodemBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test3Slices">
+<Implementation><![CDATA[
+	#dim TotaleNettoBreedteSlices As %Numeric = 520
+	#dim MaxToegelatenBreedte As %Numeric = 190
+	
+	Set ..SlicedBodemBepaler = ##class(zTryout.WV.FPV1.DOM.impl.SlicedBodemBepaler).%New()
+	Do ..SlicedBodemBepaler.GeefSlicedBodemInfo(TotaleNettoBreedteSlices,MaxToegelatenBreedte)   ; voorlopig nog geen resultaat teruggeven, de properties zijn momenteel nog Public  :-P 
+	
+	#dim MaxBreedteZichtkantSlice As %Numeric = ..SlicedBodemBepaler.MaxBreedteZichtkantSlice
+	Do $$$AssertEquals(MaxBreedteZichtkantSlice, 182)
+	
+	#dim AantalSlices As %Numeric = ..SlicedBodemBepaler.AantalSlices
+	Do $$$AssertEquals(AantalSlices, 3)
+
+	#dim Overmaat As %Numeric = ..SlicedBodemBepaler.Overmaat
+	Do $$$AssertEquals(Overmaat, 31)
+
+	#dim NettoBreedteZichtkantSlice As %Numeric = ..SlicedBodemBepaler.NettoBreedteZichtkantSlice
+	Do $$$AssertEquals(+$J(NettoBreedteZichtkantSlice,0,4), 173.3333)
+
+	#dim TotaalNodigeBreedte As %Numeric = ..SlicedBodemBepaler.TotaalNodigeBreedte
+	Do $$$AssertEquals(TotaalNodigeBreedte, 551)
+]]></Implementation>
+</Method>
+
+<Method name="TestOneSlice">
+<Description>
+Bij één geheel, dus geen click-verbinding, spreken we nog wel van 1 slice, want van de zijkanten wordt nog een groefje gefreesd </Description>
+<Implementation><![CDATA[
+	#dim TotaleNettoBreedteSlices As %Numeric = 520
+	#dim MaxToegelatenBreedte As %Numeric = 600
+	
+	Set ..SlicedBodemBepaler = ##class(zTryout.WV.FPV1.DOM.impl.SlicedBodemBepaler).%New()
+	Do ..SlicedBodemBepaler.GeefSlicedBodemInfo(TotaleNettoBreedteSlices,MaxToegelatenBreedte)   ; voorlopig nog geen resultaat teruggeven, de properties zijn momenteel nog Public  :-P 
+	
+	#dim MaxBreedteZichtkantSlice As %Numeric = ..SlicedBodemBepaler.MaxBreedteZichtkantSlice
+	Do $$$AssertEquals(MaxBreedteZichtkantSlice, 592)
+	
+	#dim AantalSlices As %Numeric = ..SlicedBodemBepaler.AantalSlices
+	Do $$$AssertEquals(AantalSlices, 1)
+
+	#dim Overmaat As %Numeric = ..SlicedBodemBepaler.Overmaat
+	Do $$$AssertEquals(Overmaat, 5)
+
+	#dim NettoBreedteZichtkantSlice As %Numeric = ..SlicedBodemBepaler.NettoBreedteZichtkantSlice
+	Do $$$AssertEquals(+$J(NettoBreedteZichtkantSlice,0,4), 520)
+
+	#dim TotaalNodigeBreedte As %Numeric = ..SlicedBodemBepaler.TotaalNodigeBreedte
+	Do $$$AssertEquals(TotaalNodigeBreedte, 525)
+]]></Implementation>
+</Method>
+
+<Method name="TestOnvoldoendeBreedte">
+<Description>
+Als de MaxToegelatenBreedte te klein is voor slices te maken, dan een exception </Description>
+<Implementation><![CDATA[
+	#dim TotaleNettoBreedteSlices As %Numeric = 520
+	#dim MaxToegelatenBreedte As %Numeric = 17
+	
+	#dim OmschrijvingSubStrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("De Toegelaten breedte",MaxToegelatenBreedte,"is te weinig om slices te kunnen maken")
+	#dim VerwachteExceptie = ##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",OmschrijvingSubStrings)
+	Do ..ZetVerwachteExceptie(VerwachteExceptie)
+	
+	Set ..SlicedBodemBepaler = ##class(zTryout.WV.FPV1.DOM.impl.SlicedBodemBepaler).%New()
+	Do ..SlicedBodemBepaler.GeefSlicedBodemInfo(TotaleNettoBreedteSlices,MaxToegelatenBreedte)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 29818 refers to a dead (removed) revision in file `vhUnitTest/zTryout/WV/FPV1/DOM/SlicedBodemBepaler/GeefSlicedBodemInfo/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?