Index: vhUnitTest/TECH/ClassUtils.cls.xml
===================================================================
diff -u -r1895 -r1901
--- vhUnitTest/TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1895)
+++ vhUnitTest/TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1901)
@@ -37,6 +37,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestGetMethodParameterType">
+<Implementation><![CDATA[
+	set ParameterType = ##class(TECH.ClassUtils).GetMethodParameterType("TECH.ClassUtils","GetMethodParameterType","Parameter")
+	do $$$AssertEquals("%Library.String",ParameterType,"TECH.ClassUtils_GetMethodParameterType")
+]]></Implementation>
+</Method>
+
 <Method name="TestMethodReturnTypeValidation">
 <Implementation><![CDATA[
 
@@ -59,15 +66,14 @@
 
 	set obj = ##class(vhUnitTest.TECH.ClassUtilsTestObject).%New()
 	set obj.Required="required"
-	set obj.ValueList="a"
+	set obj.ValueList="InvalidValue"
 	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"
+	set obj.ValueList="ValidValue"
 	do $$$AssertTrue(##class(TECH.ClassUtils).IsValidReturnTypeForMethod(obj,"vhUnitTest.TECH.ClassUtilsChecks","ObjectCheck"),"obj Test 4")
 
-
 	quit
 ]]></Implementation>
 </Method>