Index: vhUnitTest/TECH/Format/FormatAPI/FormatHorolog/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Format/FormatAPI/FormatHorolog/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Format/FormatAPI/FormatHorolog/Test.cls.xml	(revision 1734)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Format.FormatAPI.FormatHorolog.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="Horolog">
+<Type>%String</Type>
+<Default>62500,33000</Default>
+</Parameter>
+
+<Property name="Formatter">
+<Type>TECH.Format.impl.FormatAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	set ..Formatter = ##class(TECH.Format.impl.FormatAPI).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	do ..Assert("DD.MM.JJ","13.02.12")
+	do ..Assert("DD.MM.YY","13.02.12")
+	do ..Assert("DD.MM.JJJJ","13.02.2012")
+	do ..Assert("DD.MM.YYYY","13.02.2012")
+	
+	do ..Assert("ddd DD mmm JJ","maa 13 feb 12")
+	do ..Assert("dddd DD mmmm JJ","maandag 13 februari 12")
+	do ..Assert("dddd D mmmm JJ","maandag 13 februari 12")
+]]></Implementation>
+</Method>
+
+<Method name="Assert">
+<FormalSpec>Format:%String,ExpectedResult:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	do $$$AssertEquals(..Formatter.FormatHorolog(..#Horolog,Format),ExpectedResult,Format)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>