Index: svn/UnitTestHelper.cls.xml
===================================================================
diff -u -r1669 -r1698
--- svn/UnitTestHelper.cls.xml	(.../UnitTestHelper.cls.xml)	(revision 1669)
+++ svn/UnitTestHelper.cls.xml	(.../UnitTestHelper.cls.xml)	(revision 1698)
@@ -112,12 +112,17 @@
 <Method name="ExecuteUnitTests">
 <FormalSpec>Filters:%ListOfDataTypes</FormalSpec>
 <Implementation><![CDATA[
-	#dim SQLSelectMode = $SYSTEM.SQL.GetSelectMode()
-	do $SYSTEM.SQL.SetSelectMode(##class(TECH.enu.ResultSetRuntimeMode).Logical())
+	try {
+		#dim SQLSelectMode = $SYSTEM.SQL.GetSelectMode()
+		do $SYSTEM.SQL.SetSelectMode(##class(TECH.enu.ResultSetRuntimeMode).Logical())
 
-	do ##class(vhUnitTest.Manager).RunTests("",Filters)
+		do ##class(vhUnitTest.Manager).RunTests("",Filters)
 	
-	do $SYSTEM.SQL.SetSelectMode(SQLSelectMode)
+		do $SYSTEM.SQL.SetSelectMode(SQLSelectMode)
+	} catch {
+		#dim Exception As TECH.Exception = ##class(TECH.ExceptionHandler).Catch()
+		write !,"Fout bij het uitvoeren van unittest : "_Exception.ToString()
+	}
 ]]></Implementation>
 </Method>
 </Class>