Index: vhUnitTest/TECH/Ftp/TestFtpAPI.cls.xml =================================================================== diff -u -r2242 -r2710 --- vhUnitTest/TECH/Ftp/TestFtpAPI.cls.xml (.../TestFtpAPI.cls.xml) (revision 2242) +++ vhUnitTest/TECH/Ftp/TestFtpAPI.cls.xml (.../TestFtpAPI.cls.xml) (revision 2710) @@ -35,6 +35,7 @@ Do $$$AssertTrue($$$True,"Verzenden gelukt.") } catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() + Do ##class(TECH.File).Delete(VolledigeBestandNaam) Do ..Fail(Exception.ToString()) } ]]> @@ -66,7 +67,7 @@ #dim Counter As %Integer For Counter = 1:1:10 { - Do FileWriter.WriteLine("FTP BEstand verzenden lijn : " _Counter) + Do FileWriter.WriteLine("FTP Bestand verzenden lijn : " _Counter) } Do FileWriter.Close()