Index: vhUnitTest/TECH/Ftp/TestFtpAPI.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Ftp/TestFtpAPI.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Ftp/TestFtpAPI.cls.xml	(revision 2237)
@@ -0,0 +1,95 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Ftp.TestFtpAPI">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: VerzendBestand">
+<Implementation><![CDATA[
+	try {
+		#dim BestandNaam As %String = ..GeefBestandNaam()
+		#dim VolledigeBestandNaam As %String = ..GeefVolledigeBestandNaam(BestandNaam)
+		Do ..MaakTestBestand(VolledigeBestandNaam)		
+		
+		#dim FtpAPI As TECH.Ftp.FtpAPI = ##class(TECH.Context).Instance().GeefFtpAPI()
+		
+		Do FtpAPI.Connecteer(..GeefTestFtpConfiguratie())
+		
+		Do FtpAPI.VerzendBestand(VolledigeBestandNaam,BestandNaam) 
+		
+		#dim BestandLijst As array Of %String = FtpAPI.GeefBestandLijst()
+		if BestandLijst.Find(BestandNaam) '= 1 {
+			Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Ftp kan het bestand niet vinden ! " _BestandNaam)
+			}
+			
+		Do FtpAPI.VerwijderBestand(BestandNaam)
+		
+		Set BestandLijst = FtpAPI.GeefBestandLijst()
+		if BestandLijst.Find(BestandNaam) = 1 {
+			Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Ftp kan het bestand niet verwijderen ! " _BestandNaam)
+			}
+
+		Do FtpAPI.VerbreekVerbinding()
+		
+		Do ##class(TECH.File).Delete(VolledigeBestandNaam)
+
+		Do $$$AssertTrue($$$True,"Verzenden gelukt.")
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..Fail(Exception.ToString())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Context As TECH.Context = ##class(TECH.Context).Instance()
+	#dim HuidigeDatumTijd As TECH.Horolog = Context.GeefDateTimeAPI().CurrentHorolog()
+	#dim NieuwFormaatDatumTijd As %String = Context.GeefFormatAPI().FormatHorolog(HuidigeDatumTijd, "yyyy-mm-dd-hhnnss")
+	quit NieuwFormaatDatumTijd _$$$Server _"FtpTestBestand.txt"
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolledigeBestandNaam">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.Files).AppendFile(..GeefBestandLocatie(),BestandNaam)
+]]></Implementation>
+</Method>
+
+<Method name="MaakTestBestand">
+<FormalSpec>VolledigeBestandsNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	
+	Do FileWriter.Open(VolledigeBestandsNaam)
+	
+	#dim Counter As %Integer
+	For Counter = 1:1:10 {
+	    Do FileWriter.WriteLine("FTP BEstand verzenden lijn : " _Counter)
+	}
+	
+	Do FileWriter.Close()
+]]></Implementation>
+</Method>
+
+<Method name="GeefTestFtpConfiguratie">
+<Private>1</Private>
+<ReturnType>TECH.Ftp.FtpConfiguratie</ReturnType>
+<Implementation><![CDATA[
+	#dim FtpConfiguratie As TECH.Ftp.FtpConfiguratie = ##class(TECH.Ftp.FtpConfiguratie).%New()
+	
+	Set FtpConfiguratie.Gebruiker = "FTPKvik"
+	Set FtpConfiguratie.Paswoord = "Kv1k@VH"
+	Set FtpConfiguratie.Adres = "res.vanhoecke.be"
+	Set FtpConfiguratie.ServerBestandsLocatie = "Kvik"
+	Set FtpConfiguratie.Poort = 21
+	Set FtpConfiguratie.Timeout = 10
+
+	quit FtpConfiguratie
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>