Index: Tools/Test/TestCase.cls.xml
===================================================================
diff -u -r1063 -r1143
--- Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 1063)
+++ Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 1143)
@@ -619,6 +619,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertPatternViaMacro">
+<FormalSpec>aAutoQuoted:%String,aValue1:%String,Pattern:%String,aMessage:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	 Set manager=r%Manager
+	 Set aMessage=$g(aMessage)
+	     _":("_aValue1_"?"_Pattern_"):"
+	     _"["_..ParseAutoQuoted(aAutoQuoted,"equals")_"]"
+	 #dim successExecute As %String = "("""_aValue1_"""?"_Pattern_")"
+	 #dim Resultaat As %Boolean = ##class(TECH.Executor).ExecuteFunction(successExecute)
+	 Do manager.LogAssert(Resultaat,"AssertPattern",aMessage)
+	 Quit Resultaat
+]]></Implementation>
+</Method>
+
 <Method name="GeefLopendeTestMethode">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..LopendeTestMethode