vhUnitTest.TestCase 0 TECH.Query.QueryAPI 1 %String 1 ") Do $$$AssertEquals(ResultSet.Data("Kolom2"),"") Do $$$AssertEquals(ResultSet.Data("Kolom3"),"") Do $$$AssertEquals(ResultSet.Data("ParamCount"),"2") } Do $$$AssertFalse(ResultSet.Next(),"ResultSet heeft 1 rij.") ]]> zMyQuery3Execute^"_..QueryKlasseNaam) Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.RuntimeException).%ClassName(1),Substrings)) Do ..QueryAPI.GetResultSet(ClassQuery) ]]>