Index: vhUnitTest/TECH/Exceptions/TestLogService.cls.xml
===================================================================
diff -u -r2604 -r2605
--- vhUnitTest/TECH/Exceptions/TestLogService.cls.xml	(.../TestLogService.cls.xml)	(revision 2604)
+++ vhUnitTest/TECH/Exceptions/TestLogService.cls.xml	(.../TestLogService.cls.xml)	(revision 2605)
@@ -46,7 +46,20 @@
 	Do $$$AssertEquals(LogItem.GeefMachineNaam(),"De machinenaam")
 	Do $$$AssertEquals(LogItem.GeefOpstartTijdstipVhintra(),ExceptionLogItem.OpstartTijdstipVhintra)
 	
+	Set LoggedException = 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)
 	
+	Set LoggedInnerException = 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>