Index: vhUnitTest/TECH/ClassUtils.cls.xml
===================================================================
diff -u -r1074 -r1895
--- vhUnitTest/TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1074)
+++ vhUnitTest/TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1895)
@@ -40,14 +40,34 @@
 <Method name="TestMethodReturnTypeValidation">
 <Implementation><![CDATA[
 
-	;do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1,"vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
-	;do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1.5,"vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
-	;do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("A","vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
+	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1,"vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1.5,"vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("A","vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("1-3","vhUnitTest.TECH.ClassUtilsChecks","IntegerCheck"))
 	
-	;do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1,"vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
-	;do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1.5,"vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
-	;do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("A","vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
+	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1,"vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
+	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(1.5,"vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod("A","vhUnitTest.TECH.ClassUtilsChecks","FloatCheck"))
+	
+	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
+	set obj.Required = "required"
+	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 1")
 
+	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
+	set obj.ValueList=""
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 2")
+
+	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
+	set obj.Required="required"
+	set obj.ValueList="a"
+	do $$$AssertFalse(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 3")
+
+	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
+	set obj.Required="required"
+	set obj.ValueList="ValueList"
+	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 4")
+
+
 	quit
 ]]></Implementation>
 </Method>