Index: vhUnitTest/TECH/DateTime/impl/DateTimeAPI/GeefDagNummerInWeek/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/DateTime/impl/DateTimeAPI/GeefDagNummerInWeek/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/DateTime/impl/DateTimeAPI/GeefDagNummerInWeek/Test.cls.xml	(revision 3455)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.DateTime.impl.DateTimeAPI.GeefDagNummerInWeek.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	Set DateTimeApi = ##class(TECH.DateTime.impl.DateTimeAPI).%New()
+	
+	#dim Zaterdag27okt2018  As %Date = 64948   ; Random chosen Saturday 
+	#dim Zondag28okt2018    As %Date = 64949
+	#dim Maandag29okt2018   As %Date = 64950
+	#dim Dinsdag30okt2018   As %Date = 64951
+	#dim Woensdag31okt2018  As %Date = 64952
+	#dim Donderdag01nov2018 As %Date = 64953
+	#dim Vrijdag02nov2018   As %Date = 64954
+	
+	#dim EersteDagVanDollarH     As %Date = 1   ; Friday  01 jan 1841 
+	#dim EersteDinsdagVanDollarH As %Date = 5   ; Tuesday 05 jan 1841 
+	
+	Do $$$AssertEquals(DateTimeApi.GeefDagNummerInWeek(  Zaterdag27okt2018 ), 6)
+	Do $$$AssertEquals(DateTimeApi.GeefDagNummerInWeek(    Zondag28okt2018 ), 7)
+	Do $$$AssertEquals(DateTimeApi.GeefDagNummerInWeek(   Maandag29okt2018 ), 1)
+	Do $$$AssertEquals(DateTimeApi.GeefDagNummerInWeek(   Dinsdag30okt2018 ), 2)
+	Do $$$AssertEquals(DateTimeApi.GeefDagNummerInWeek(  Woensdag31okt2018 ), 3)
+	Do $$$AssertEquals(DateTimeApi.GeefDagNummerInWeek( Donderdag01nov2018 ), 4)
+	Do $$$AssertEquals(DateTimeApi.GeefDagNummerInWeek(   Vrijdag02nov2018 ), 5)
+	
+	Do $$$AssertEquals(DateTimeApi.GeefDagNummerInWeek( EersteDinsdagVanDollarH ), 2)
+	Do $$$AssertEquals(DateTimeApi.GeefDagNummerInWeek( EersteDagVanDollarH )    , 5)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>