Index: vhUnitTest/APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeCalculator/Bereken/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeCalculator/Bereken/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeCalculator/Bereken/Test.cls.xml	(revision 57946)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeCalculator.Bereken.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test:1 Als basisgetal">
+<Implementation><![CDATA[
+		#dim Basisgetal As %Integer
+		
+		Set Calculator = ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeCalculator).%New()
+		Set Basisgetal = 1
+		
+		Do Calculator.Bereken(Basisgetal)
+		
+		Do $$$AssertEquals(Calculator.CodeGeformateerd,"0 000 201")
+]]></Implementation>
+</Method>
+
+<Method name="Test:100 Als basisgetal">
+<Implementation><![CDATA[
+		#dim Basisgetal As %Integer
+		
+		Set Calculator = ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeCalculator).%New()
+		Set Basisgetal = 100
+		
+		Do Calculator.Bereken(Basisgetal)
+		
+		Do $$$AssertEquals(Calculator.CodeGeformateerd,"0 00A 321")
+]]></Implementation>
+</Method>
+
+<Method name="Test:Leeg basisgetal">
+<Implementation><![CDATA[
+		#dim Basisgetal As %Integer
+		
+		Set Calculator = ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeCalculator).%New()
+		Set Basisgetal = ""
+		
+		Do Calculator.Bereken(Basisgetal)
+		
+		Do $$$AssertEquals(Calculator.CodeGeformateerd,"0 000 100")
+]]></Implementation>
+</Method>
+
+<Method name="Test:0 als basisgetal">
+<Implementation><![CDATA[
+		#dim Basisgetal As %Integer
+		
+		Set Calculator = ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeCalculator).%New()
+		Set Basisgetal = 0
+		
+		Do Calculator.Bereken(Basisgetal)
+		
+		Do $$$AssertEquals(Calculator.CodeGeformateerd,"0 000 100")
+]]></Implementation>
+</Method>
+
+<Method name="Test:18974736? als basisgetal, laatste van het type A AAA CNN">
+<Implementation><![CDATA[
+		#dim Basisgetal As %Integer
+		
+		Set Calculator = ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeCalculator).%New()
+		Set Basisgetal = 18974736
+		
+		Do Calculator.Bereken(Basisgetal)
+		
+		Do $$$AssertEquals(Calculator.CodeGeformateerd,"Z ZZZ 599")
+]]></Implementation>
+</Method>
+
+<Method name="Test:18974737 als basisgetal, eerste van het type A NNC AAA">
+<Implementation><![CDATA[
+		#dim Basisgetal As %Integer
+		
+		Set Calculator = ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeCalculator).%New()
+		Set Basisgetal = 18974737
+		
+		Do Calculator.Bereken(Basisgetal)
+		
+		Do $$$AssertEquals(Calculator.CodeGeformateerd,"0 002 00A")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>