Index: vhUnitTest/TECH/File/impl/FileNameGenerator/GenerateFileName/TestFake.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/File/impl/FileNameGenerator/GenerateFileName/TestFake.cls.xml	(revision 0)
+++ vhUnitTest/TECH/File/impl/FileNameGenerator/GenerateFileName/TestFake.cls.xml	(revision 1453)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.File.impl.FileNameGenerator.GenerateFileName.TestFake">
+<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,Naam:TECH.String=..#Naam,Extensie=..#Extensie</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(vhTest.Integratie.FakeFileNameGenerator).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/File/impl/FileNameGenerator/GenerateFileName/Test.cls.xml
===================================================================
diff -u -r1422 -r1453
--- vhUnitTest/TECH/File/impl/FileNameGenerator/GenerateFileName/Test.cls.xml	(.../Test.cls.xml)	(revision 1422)
+++ vhUnitTest/TECH/File/impl/FileNameGenerator/GenerateFileName/Test.cls.xml	(.../Test.cls.xml)	(revision 1453)
@@ -3,16 +3,6 @@
 <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>
@@ -28,42 +18,21 @@
 <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)
+<Method name="Test: naam en extensie doorgeven geeft de volledige naam met naam en extensie">
+<Implementation><![CDATA[	Do ..AssertBestandNaam(..#Naam_"."_..#Extensie, ..#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)
+<Method name="Test: Geen extensie meegegeven en geen extensie in bestaande naam">
+<Implementation><![CDATA[	Do ..AssertBestandNaam(..#Naam,..#Naam,"")
 ]]></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>
+<FormalSpec>VerwachteBestandNaam:TECH.String,Naam:TECH.String,Extensie:TECH.String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim FileName As TECH.String = ..FileNameGenerator.GenerateFileName(..#Naam, ..#Extensie)
+	#dim FileName As TECH.String = ..FileNameGenerator.GenerateFileName(Naam, Extensie)
 	Do $$$AssertEquals(FileName,VerwachteBestandNaam)
 ]]></Implementation>
 </Method>
@@ -72,7 +41,7 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
-	Set ..FileNameGenerator = ##class(vhTest.Fake.TECH.File.FileNameGenerator).%New()
+	Set ..FileNameGenerator = ##class(TECH.File.impl.FileNameGenerator).%New()
 ]]></Implementation>
 </Method>
 </Class>