vhUnitTest.TestCase ","UnExistingField,vhUnitTest.TECH.JSON.Parser.Parse") do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings)) #dim JSONString As %String = "{ ""UnExistingField"":""Field1Value"" , ""Embedded"" :[{ ""Field1"":""EmbeddedField1Value""}] }" #dim Object As vhUnitTest.TECH.JSON.Parser.ParseJSON.Main = ..Parse(JSONString) ]]> JSONString:%String vhUnitTest.TECH.JSON.Parser.ParseJSON.Main