New info in /Test: version, debug mode

Author: eduard93

MDX2JSON/AbstractREST.cls.xml

@@ -252,6 +252,36 @@ Issue an '500' error and give some indication as to what occurred.<br>
 ]]></Implementation>
 </Method>
 
+<Method name="GetMappings">
+<Description>
+Retums info about MDX2JSON package mapping</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set result = ##class(%ArrayOfObjects).%New()
+	Set mapped = ##class(%ListOfDataTypes).%New()
+	Set unmapped = ##class(%ListOfDataTypes).%New()
+	Set st = ##class(%CSP.Portal.Utils).%GetNamespaceList(.nslist)
+	If $$$ISERR(st) Quit st
+	Set namespace = $O(nslist(""))
+	While namespace '= "" {
+		Set enabled = $lg(nslist(namespace),1)
+		If enabled = 1 {
+			Set st = ..CheckNamespace(namespace)
+			if $$$ISOK(st) {
+				do mapped.Insert(namespace)
+			} else {
+				do unmapped.Insert(namespace)
+			}	
+		}
+		Set namespace = $O(nslist(namespace))
+	}
+	do result.SetAt(mapped,"Mapped")
+	do result.SetAt(unmapped,"Unmapped")
+	return result
+]]></Implementation>
+</Method>
+
 <Method name="CheckNamespace">
 <Description><![CDATA[
 Returns OK if namespace both exists and contains MDX2JSON package.<br>

MDX2JSON/REST.cls.xml

@@ -103,7 +103,17 @@ Test method, outputs <b>%request</b>, <b>%response</b> and <b>%session</b> objec
 <ClassMethod>1</ClassMethod>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-    write "{"_ $$$ZENJSPAIR("Status","OK") _"," _ $$$ZENJSPAIR("User",$Username) _"}"
+	set obj = ##class(%ZEN.proxyObject).%New()
+	set obj.Status = "OK"
+	set obj.User = $Username
+	set obj.Version = "2.0"
+	if $$$Debug {
+		set obj.Roles = $Roles
+		set obj.Namespace = $Namespace
+		set obj.Mappings = ..GetMappings()
+		set obj.Cache = $zv
+	}
+    do obj.%ToJSON()
     return $$$OK
 ]]></Implementation>
 </Method>