vhUnitTest.TECH.Algo.SQL.SelectBuilder.Base ","1") #dim QueryInfo As TECH.Algo.SQL.SelectBuilder.Info = ..QueryBuilderImpl.Genereer(InputParameters) do $$$AssertEquals(QueryInfo.Query,"SELECT TABEL.ID, TABEL.Property1 FROM TABEL WHERE Property1 > ?") do $$$AssertEqualsListbuild(QueryInfo.Parameters,$listbuild("1")) ]]> ") #dim QueryInfo As TECH.Algo.SQL.SelectBuilder.Info = ..QueryBuilderImpl.Genereer(InputParameters) do $$$AssertEquals(QueryInfo.Query,"SELECT TABEL.ID, TABEL.Property1 FROM TABEL WHERE Property1 IS NOT NULL") do $$$AssertEqualsListbuild(QueryInfo.Parameters,"") ]]>