Index: Tools/Test/Asserter.cls.xml
===================================================================
diff -u -r1809 -r1826
--- Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1809)
+++ Tools/Test/Asserter.cls.xml	(.../Asserter.cls.xml)	(revision 1826)
@@ -321,6 +321,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertIsObjectViaMacro">
+<FormalSpec>aAutoQuoted:%String,aValue:%CacheString,aMessage:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	 Set manager=r%Manager
+	 Set aMessage=$g(aMessage)
+	     _":("_aValue_"):"
+	     _"["_..ParseAutoQuoted(aAutoQuoted,"expr")_"]"
+	 Set success = $IsObject(aValue)
+	 Do manager.LogAssert(success,"AssertIsObject",aMessage)
+	 Quit success
+]]></Implementation>
+</Method>
+
+<Method name="AssertNotIsObjectViaMacro">
+<FormalSpec>aAutoQuoted:%String,aValue:%CacheString,aMessage:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	 Set manager=r%Manager
+	 Set aMessage=$g(aMessage)
+	     _":("_aValue_"):"
+	     _"["_..ParseAutoQuoted(aAutoQuoted,"expr")_"]"
+	 Set success = $$$Not($IsObject(aValue))
+	 Do manager.LogAssert(success,"AssertNotIsObject",aMessage)
+	 Quit success
+]]></Implementation>
+</Method>
+
 <Method name="ReferentieInhoudVerschillend">
 <FormalSpec>Path:%String</FormalSpec>
 <Private>1</Private>
Index: Tools/UnitTest.inc.rou
===================================================================
diff -u -r1810 -r1826
--- Tools/UnitTest.inc.rou	(.../UnitTest.inc.rou)	(revision 1810)
+++ Tools/UnitTest.inc.rou	(.../UnitTest.inc.rou)	(revision 1826)
@@ -10,6 +10,8 @@
 #def1arg AssertEndsWith(%args)   	..Asserter.AssertEndsWithViaMacro(##quote(%args),%args)
 #def1arg AssertEqualsDate(%args)    ..Asserter.AssertEqualsDateViaMacro(##quote(%args),%args)
 #def1arg AssertClassName(%args)		..Asserter.AssertClassNameViaMacro(##quote(%args),%args)	
+#def1arg AssertIsObject(%args)		..Asserter.AssertIsObjectViaMacro(##quote(%args),%args)
+#def1arg AssertNotIsObject(%args)	..Asserter.AssertNotIsObjectViaMacro(##quote(%args),%args)
 #;
 #define LogMessage(%message)    				..Asserter.LogMessage(%message)
 #define AssertSkipped(%message)    				..Asserter.AssertSkippedViaMacro(%message)