Index: vhUnitTest/vhLib/WebServiceLogger/impl/VhLibLoggerTest.cls.xml
===================================================================
diff -u
--- vhUnitTest/vhLib/WebServiceLogger/impl/VhLibLoggerTest.cls.xml	(revision 0)
+++ vhUnitTest/vhLib/WebServiceLogger/impl/VhLibLoggerTest.cls.xml	(revision 1316)
@@ -0,0 +1,144 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.vhLib.WebServiceLogger.impl.VhLibLoggerTest">
+<Super>vhUnitTest.TestCase,%Stream.Object</Super>
+
+<Property name="Logger">
+<Type>vhLib.WebServiceLogger.impl.VhLibLogger</Type>
+</Property>
+
+<Property name="LogGroep">
+<Type>%String</Type>
+<InitialExpression>"vhUnitTest.vhLib.WebServiceLogger"</InitialExpression>
+</Property>
+
+<Property name="Direction">
+<Type>%String</Type>
+<InitialExpression>"in"</InitialExpression>
+</Property>
+
+<Property name="IsTreamOneindig">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Method name="TestLogStream">
+<Implementation><![CDATA[
+	/// Actie
+	Do ..Logger.LogStream( ##this, ..Direction, ..LogGroep)
+	
+	/// Controle
+	#Dim LogItems As TECH.ResultSet
+	Set LogItems = ##class(TECH.ResultSet).Create( 
+		"SELECT * FROM vhLib.Logging WHERE Groep = ? AND Detail = ?",
+		$ListBuild( ..LogGroep, "Test" )
+	 )
+	Do $$$AssertTrue( LogItems.Next() )
+	Do $$$AssertFalse( LogItems.Next() )
+]]></Implementation>
+</Method>
+
+<Method name="TestLogStreamAfgekort">
+<Implementation><![CDATA[
+	/// Setup
+	Set ..IsTreamOneindig = 1
+	
+	/// Actie
+	Do ..Logger.LogStream( ##this, ..Direction, ..LogGroep)
+	
+	/// Controle
+	#Dim LogItems As TECH.ResultSet
+	Set LogItems = ##class(TECH.ResultSet).Create( 
+		"SELECT * FROM vhLib.Logging WHERE Groep = ? AND Detail LIKE ?",
+		$ListBuild( ..LogGroep, "Test% ..[deel ontbreekt].." )
+	 )
+	Do $$$AssertTrue( LogItems.Next() )
+	Do $$$AssertFalse( LogItems.Next() )
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..KuisOpLogItems()
+	Do ..KuisOp()
+	
+	Set ..Logger = ##class(vhLib.WebServiceLogger.impl.VhLibLogger).%New()
+	Do ..SetUpRequestStream()
+	Do ..RegistreerDatLogGroepEchtGelogdMoetWorden()
+	
+	Set ..AtEnd = 0
+	
+	Quit ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="SetUpRequestStream">
+<Implementation><![CDATA[
+	Set %request = ##class(%CSP.Request).%New()
+	Set %request.CgiEnvs("HTTP_SOAPACTION") = "TestLogStream"
+]]></Implementation>
+</Method>
+
+<Method name="RegistreerDatLogGroepEchtGelogdMoetWorden">
+<Implementation><![CDATA[
+	#Dim LogSetting As vhLib.WebServiceLogger.WebserviceLogSetting = ##class(vhLib.WebServiceLogger.WebserviceLogSetting).%New( ..LogGroep )
+	Set LogSetting.LogNiveau = ##class(vhLib.WebServiceLogger.enu.LogNiveau).Debug()
+	Do LogSetting.Save()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..KuisOp()
+	Quit ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="KuisOp">
+<Implementation><![CDATA[
+	Kill %request
+	Set %request = ""
+
+	If ##class(vhLib.WebServiceLogger.WebserviceLogSetting).%ExistsId( ..LogGroep )
+	{
+		Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(
+			##class(vhLib.WebServiceLogger.WebserviceLogSetting).%DeleteId( ..LogGroep ) )
+	}
+]]></Implementation>
+</Method>
+
+<Method name="KuisOpLogItems">
+<Implementation><![CDATA[
+	#Dim LogItems As TECH.ResultSet
+	Set ResultSet = ##class(TECH.ResultSet).Create( 
+		"DELETE FROM vhLib.Logging WHERE Groep = ?",
+		$ListBuild( ..LogGroep ) )
+]]></Implementation>
+</Method>
+
+<Method name="ReadLine">
+<Description><![CDATA[
+Read a line from the stream. This will look for the line terminator in the stream and
+once it finds the terminator it will return the string minus the terminator character/s. If it reaches the
+end of the stream before it finds a terminator it will return the data it has so far, and if you specify a
+maximum size in <var>len</var> it will only read up to this number of characters. On exit <var>len</var>
+will contain the actual number of characters read. The byref argument <var>sc</var> will
+return a %Status if any error occured during the read and the byref argument <var>eol</var>
+is true if it found the line terminator and false otherwise.]]></Description>
+<FormalSpec><![CDATA[&len:%Integer=32000,&sc:%Status,&eol:%Boolean]]></FormalSpec>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	If ('..IsTreamOneindig)
+	{
+		Set ..AtEnd = 1
+	}
+	
+	Quit "Test"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>