Index: vhUnitTest/TECH/File/impl/FileNameGenerator/GenerateFileName/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/File/impl/FileNameGenerator/GenerateFileName/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/File/impl/FileNameGenerator/GenerateFileName/Test.cls.xml	(revision 1411)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.File.impl.FileNameGenerator.GenerateFileName.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="Groep1">
+<Type>%String</Type>
+<Default>Groep1</Default>
+</Parameter>
+
+<Parameter name="Groep2">
+<Type>%String</Type>
+<Default>Groep2</Default>
+</Parameter>
+
+<Parameter name="Naam">
+<Type>%String</Type>
+<Default>Naam</Default>
+</Parameter>
+
+<Parameter name="Extensie">
+<Type>%String</Type>
+<Default>txt</Default>
+</Parameter>
+
+<Property name="FileNameGenerator">
+<Type>TECH.File.FileNameGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test: voor bestandnaam is de groep en een aantal geplaatst">
+<Implementation><![CDATA[
+	Do ..FileNameGenerator.ZetGroep(..#Groep1)
+	Do ..AssertBestandNaam(..#Groep1_"_001_"_..#Naam_"."_..#Extensie)
+]]></Implementation>
+</Method>
+
+<Method name="Test: aantal steigt als de methode meerdere keren opgeroepen wordt">
+<Implementation><![CDATA[
+	Do ..FileNameGenerator.ZetGroep(..#Groep1)
+	Do ..AssertBestandNaam(..#Groep1_"_001_"_..#Naam_"."_..#Extensie)
+	Do ..AssertBestandNaam(..#Groep1_"_002_"_..#Naam_"."_..#Extensie)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Groep niet gezet">
+<Implementation><![CDATA[	Do ..AssertBestandNaam("001_"_..#Naam_"."_..#Extensie)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Groep veranderen, telling appart per groep">
+<Implementation><![CDATA[
+	Do ..FileNameGenerator.ZetGroep(..#Groep1)
+	Do ..AssertBestandNaam(..#Groep1_"_001_"_..#Naam_"."_..#Extensie)
+	Do ..FileNameGenerator.ZetGroep(..#Groep2)
+	Do ..AssertBestandNaam(..#Groep2_"_001_"_..#Naam_"."_..#Extensie)
+	Do ..FileNameGenerator.ZetGroep(..#Groep1)
+	Do ..AssertBestandNaam(..#Groep1_"_002_"_..#Naam_"."_..#Extensie)
+]]></Implementation>
+</Method>
+
+<Method name="AssertBestandNaam">
+<FormalSpec>VerwachteBestandNaam:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim FileName As TECH.String = ..FileNameGenerator.GenerateFileName(..#Naam, ..#Extensie)
+	Do $$$AssertEquals(FileName,VerwachteBestandNaam)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..FileNameGenerator = ##class(TECH.File.impl.FileNameGenerator).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>