Index: vhUnitTest/TECH/Exceptions/TestExceptions.cls.xml
===================================================================
diff -u -r1931 -r1934
--- vhUnitTest/TECH/Exceptions/TestExceptions.cls.xml	(.../TestExceptions.cls.xml)	(revision 1931)
+++ vhUnitTest/TECH/Exceptions/TestExceptions.cls.xml	(.../TestExceptions.cls.xml)	(revision 1934)
@@ -7,27 +7,55 @@
 <Super>vhUnitTest.TestCase</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<UDLText name="T">
+<Content><![CDATA[
+// do ##class(vhUnitTest.TECH.Exceptions.TestExceptions).%New().TestThrowException()
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// 
+
+]]></Content>
+</UDLText>
+
 <Method name="TestThrowException">
 <Implementation><![CDATA[
 		w "---------------------------------------------------------------------",!
 		Set $ZTRAP = "CatchThrow"
 		Do ##class(vhUnitTest.TECH.Exceptions.KlasseA).ThrowException()	
+		w "---------------------------------------------------------------------",!
 		Quit
 CatchThrow Set $ZTRAP = ""
 		Set Exception = ##class(TECH.ExceptionHandler).Catch()
 		w !,Exception.ToString(),!
+		w "---------------------------------------------------------------------",!
+		quit
 ]]></Implementation>
 </Method>
 
-<Method name="TestRaisedUndefined">
+<UDLText name="T">
+<Content><![CDATA[
+// do ##class(vhUnitTest.TECH.Exceptions.TestExceptions).%New().TestRaiseUndefined()
+
+]]></Content>
+</UDLText>
+
+<Method name="TestRaiseUndefined">
 <Implementation><![CDATA[
 		w "---------------------------------------------------------------------",!
 		Set $ZTRAP = "CatchRaise"
 		Do ##class(vhUnitTest.TECH.Exceptions.KlasseA).RaiseUndefined()	
+		
+		w "---------------------------------------------------------------------",!
 		Quit
 CatchRaise Set $ZTRAP = ""
 		Set Exception = ##class(TECH.ExceptionHandler).Catch()
 		w !,Exception.ToString(),!
+		w "---------------------------------------------------------------------",!
+		quit
 ]]></Implementation>
 </Method>
 </Class>