Index: vhUnitTest/APPS/common/ExceptionLogService/RegistreerExceptionLogItem/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/common/ExceptionLogService/RegistreerExceptionLogItem/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/common/ExceptionLogService/RegistreerExceptionLogItem/Test.cls.xml	(revision 35843)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.common.ExceptionLogService.RegistreerExceptionLogItem.Test">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.Exceptions.TestLogService")</Description>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestRegistreerLogItem">
+<Implementation><![CDATA[
+	Set ExceptionLogItem = ##class(APPS.common.dto.ClientExceptionLogItem).%New()
+	Set ExceptionLogItem.ClientSessieID = 123
+	Set ExceptionLogItem.GebruikerID = 14
+	Do ExceptionLogItem.Opmerkingen.Insert("Opmerking1")
+	Do ExceptionLogItem.StackTrace.Insert("StackTrace1")
+	Do ExceptionLogItem.LokaleVariabelen.Insert(##class(TECH.KeyValuePair).%New("Key","Value"))
+	Set ExceptionLogItem.MachineNaam = "De machinenaam"
+	Set ExceptionLogItem.OpstartTijdstipVhintra = ##class(TECH.DateTime).CurrentTimeStamp()
+	
+	Set Exception = ##class(APPS.common.dto.Exception).%New()
+	Set Exception.CorrelatieID = 456
+	Set Exception.Niveau = ##class(TECH.Exceptions.enu.Niveau).Error()
+	Set Exception.Sleutel = "De sleutel"
+	Set Exception.Tijdstip = ##class(TECH.DateTime).CurrentTimeStamp()
+	
+	Set ExceptionLogItem.Exception = Exception
+	
+	Set InnerException = ##class(APPS.common.dto.Exception).%New()
+	Set InnerException.CorrelatieID = 789
+	Set InnerException.Niveau = ##class(TECH.Exceptions.enu.Niveau).Waarschuwing()
+	Set InnerException.Sleutel = "De sleutel innerexceptie"
+	Set InnerException.Tijdstip = ##class(TECH.DateTime).CurrentTimeStamp()
+	
+	Set Exception.InnerException = InnerException
+	
+	Set LogService = ##class(APPS.common.ExceptionLogService).%New()
+	#dim LogItem As APPS.common.impl.ExceptionLogItem = LogService.RegistreerExceptionLogItem(ExceptionLogItem)
+	
+	Do $$$AssertTrue($IsObject(LogItem),"Het item is geregistreerd")
+	Do $$$AssertEquals(LogItem.GeefClientSessieID(),123)
+	Do $$$AssertEquals(LogItem.GeefGebruikerID(),14)
+	Do $$$AssertEquals(LogItem.GeefOpmerkingenIterator().Next(),"Opmerking1")
+	Do $$$AssertEquals(LogItem.GeefStackTraceIterator().Next(),"StackTrace1")
+	Do $$$AssertEquals(LogItem.GeefLokaleVariabelenIterator().Next(),"Value")
+	Do $$$AssertEquals(LogItem.GeefMachineNaam(),"De machinenaam")
+	Do $$$AssertEquals(LogItem.GeefOpstartTijdstipVhintra(),ExceptionLogItem.OpstartTijdstipVhintra)
+	
+	#dim LoggedException As TECH.Exceptions.Exception = LogItem.GeefLoggedException()
+	Do $$$AssertTrue($IsObject(LoggedException),"De exceptie is opgeslagen")
+	Do $$$AssertEquals(LoggedException.GeefCorrelatieID(),456)
+	Do $$$AssertEquals(LoggedException.GeefNiveau(),##class(TECH.Exceptions.enu.Niveau).Error())
+	Do $$$AssertEquals(LoggedException.GeefSleutel(),"De sleutel")
+	Do $$$AssertEquals(LoggedException.GeefTijdstip(),Exception.Tijdstip)
+	
+	#dim LoggedInnerException As TECH.Exceptions.Exception = LoggedException.GeefInnerException()
+	Do $$$AssertTrue($IsObject(LoggedInnerException),"De innerexceptie is opgeslagen")
+	Do $$$AssertEquals(LoggedInnerException.GeefCorrelatieID(),789)
+	Do $$$AssertEquals(LoggedInnerException.GeefNiveau(),##class(TECH.Exceptions.enu.Niveau).Waarschuwing())
+	Do $$$AssertEquals(LoggedInnerException.GeefSleutel(),"De sleutel innerexceptie")
+	Do $$$AssertEquals(LoggedInnerException.GeefTijdstip(),InnerException.Tijdstip)
+	
+	Do LogItem.Delete()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>