Index: vhTest/Fake/TECH/IO/Socket.cls.xml
===================================================================
diff -u
--- vhTest/Fake/TECH/IO/Socket.cls.xml	(revision 0)
+++ vhTest/Fake/TECH/IO/Socket.cls.xml	(revision 3388)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.TECH.IO.Socket">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.IO.Socket</Super>
+
+<Method name="Close">
+<FormalSpec>pIntentional:%Boolean=1,pSCReason:%Status=$$$OK</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Open">
+<FormalSpec><![CDATA[pHost:%String="",pPort:%String="",&pTimeout:%Numeric=-1]]></FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/TECH/IO/Socket.cls.xml
===================================================================
diff -u
--- vhTest/Mock/TECH/IO/Socket.cls.xml	(revision 0)
+++ vhTest/Mock/TECH/IO/Socket.cls.xml	(revision 3388)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.TECH.IO.Socket">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.IO.Socket,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Close">
+<FormalSpec>pIntentional:%Boolean=1,pSCReason:%Status=$$$OK</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Close",pIntentional,pSCReason)
+]]></Implementation>
+</Method>
+
+<Method name="Open">
+<FormalSpec><![CDATA[pHost:%String="",pPort:%String="",&pTimeout:%Numeric=-1]]></FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Open",pHost,pPort,.pTimeout)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/IO/Socket.cls.xml
===================================================================
diff -u
--- TECH/IO/Socket.cls.xml	(revision 0)
+++ TECH/IO/Socket.cls.xml	(revision 3388)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.IO.Socket">
+<Super>TECH.Mockable</Super>
+
+<Property name="IOSocket">
+<Type>%IO.Socket</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..IOSocket = ##class(%IO.Socket).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Open">
+<FormalSpec><![CDATA[pHost:%String="",pPort:%String="",&pTimeout:%Numeric=-1]]></FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim pSC As %Status = $$$OK
+	#dim OpenResult As %Boolean = ..IOSocket.Open(pHost, pPort, pTimeout, .pSC)
+	
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(pSC,"Fout bij openen van IO.Socket. Host: '"_pHost_"' en Port: '"_pPort_"'.")
+	
+	Quit OpenResult
+]]></Implementation>
+</Method>
+
+<Method name="Close">
+<FormalSpec>pIntentional:%Boolean=1,pSCReason:%Status=$$$OK</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim pSC As %Status = $$$OK
+	#dim CloseResult As %Boolean = ..IOSocket.Close(.pSC, pIntentional, pSCReason)
+	
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(pSC,"Fout bij sluiten van IO.Socket. Reden: '"_$$ParseStatus^vhLib(pSCReason)_"'.")
+	
+	Quit CloseResult
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>