Index: vhUnitTest/TECH/Ftp/FtpConfiguratie/General/TestExtendsvhUnitTest/TestCase.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Ftp/FtpConfiguratie/General/TestExtendsvhUnitTest/TestCase.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Ftp/FtpConfiguratie/General/TestExtendsvhUnitTest/TestCase.cls.xml	(revision 2240)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Ftp.FtpConfiguratie.General.TestExtendsvhUnitTest.TestCase">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Geen specifieke server info opgegeven">
+<Implementation><![CDATA[
+	set Config = ##class(TECH.Ftp.FtpConfiguratie).%New("")
+	do $$$AssertEquals(Config.Gebruiker,"")
+	do $$$AssertEquals(Config.Adres,"")
+	do $$$AssertEquals(Config.Paswoord,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: simpele constructor string ">
+<Implementation><![CDATA[
+	set Config = ##class(TECH.Ftp.FtpConfiguratie).%New("gebruiker:wachtwoord@ftp.domain.com")
+	do $$$AssertEquals(Config.Gebruiker,"gebruiker")
+	do $$$AssertEquals(Config.Adres,"ftp.domain.com")
+	do $$$AssertEquals(Config.Paswoord,"wachtwoord")
+]]></Implementation>
+</Method>
+
+<Method name="Test: wachtwoord bevat een @">
+<Implementation><![CDATA[
+	set Config = ##class(TECH.Ftp.FtpConfiguratie).%New("gebruiker:w@chtwoord@ftp.domain.com")
+	do $$$AssertEquals(Config.Gebruiker,"gebruiker")
+	do $$$AssertEquals(Config.Adres,"ftp.domain.com")
+	do $$$AssertEquals(Config.Paswoord,"w@chtwoord")
+]]></Implementation>
+</Method>
+
+<Method name="Test: wachtwoord bevat een :">
+<Implementation><![CDATA[
+	set Config = ##class(TECH.Ftp.FtpConfiguratie).%New("gebruiker:wacht:woord@ftp.domain.com")
+	do $$$AssertEquals(Config.Gebruiker,"gebruiker")
+	do $$$AssertEquals(Config.Adres,"ftp.domain.com")
+	do $$$AssertEquals(Config.Paswoord,"wacht:woord")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Poort en Timeout zijn gedefault zonder server info">
+<Implementation><![CDATA[
+	set Config = ##class(TECH.Ftp.FtpConfiguratie).%New("")
+	do $$$AssertEquals(Config.Poort,"21")
+	do $$$AssertEquals(Config.Timeout,"10")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Poort en Timeout zijn gedefault met server info">
+<Implementation><![CDATA[
+	set Config = ##class(TECH.Ftp.FtpConfiguratie).%New("gebruiker:wachtwoord@ftp.domain.com")
+	do $$$AssertEquals(Config.Poort,"21")
+	do $$$AssertEquals(Config.Timeout,"10")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>