Index: Tools/UnitTest.inc.rou
===================================================================
diff -u -r1460 -r1554
--- Tools/UnitTest.inc.rou	(.../UnitTest.inc.rou)	(revision 1460)
+++ Tools/UnitTest.inc.rou	(.../UnitTest.inc.rou)	(revision 1554)
@@ -6,6 +6,8 @@
 #def1arg AssertStatusNotOK(%args) 	..Asserter.AssertStatusNotOKViaMacro(##quote(%args),%args)
 #def1arg AssertStatusEquals(%args) 	..Asserter.AssertStatusEqualsViaMacro(##quote(%args),%args)
 #def1arg AssertFilesSame(%args)   	..Asserter.AssertFilesSameViaMacro(##quote(%args),%args)
+#def1arg AssertStartsWith(%args)   	..Asserter.AssertStartsWithViaMacro(##quote(%args),%args)
+#def1arg AssertEndsWith(%args)   	..Asserter.AssertEndsWithViaMacro(##quote(%args),%args)
 #;
 #define LogMessage(%message)    				..Asserter.LogMessage(%message)
 #define AssertSkipped(%message)    				..Asserter.AssertSkippedViaMacro(%message)
Index: Tools/Test/Asserter.cls.xml
===================================================================
diff -u -r1460 -r1554
--- Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1460)
+++ Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1554)
@@ -40,6 +40,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertEndsWithViaMacro">
+<FormalSpec>aAutoQuoted:%String,aValue1:%String,aValue2:%String,aMessage:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	 Set manager=r%Manager
+	 Set aMessage=$g(aMessage)
+	     _":('"_aValue1_"' does not ends start '"_aValue2_"'):"
+	     _"["_..ParseAutoQuoted(aAutoQuoted,"ends with")_"]"
+	 Set success = ##class(TECH.StringUtils).EndsWith(aValue1,aValue2)
+	 Do manager.LogAssert(success,"AssertEndsWith",aMessage)
+	 Quit success
+]]></Implementation>
+</Method>
+
+<Method name="AssertStartsWithViaMacro">
+<FormalSpec>aAutoQuoted:%String,aValue1:%String,aValue2:%String,aMessage:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	 Set manager=r%Manager
+	 Set aMessage=$g(aMessage)
+	     _":('"_aValue1_"' does not starts with '"_aValue2_"'):"
+	     _"["_..ParseAutoQuoted(aAutoQuoted,"starts with")_"]"
+	 Set success = ##class(TECH.StringUtils).StartsWith(aValue1,aValue2)
+	 Do manager.LogAssert(success,"AssertStartsWith",aMessage)
+	 Quit success
+]]></Implementation>
+</Method>
+
 <Method name="AssertEqualsViaMacro">
 <FormalSpec>aAutoQuoted:%String,aValue1:%String,aValue2:%String,aMessage:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>