anchor.diff:  
   let withColumns (columns : string []) (query : SearchQuery.Dto) = 
       query.Columns <- columns
  +    query
  +
  +let withSearchProfile (profileName : string) (query : SearchQuery.Dto) = 
  +    query.SearchProfile <- profileName
  +    query
  +
  +let withHighlighting (option : HighlightOption.Dto) (query : SearchQuery.Dto) = 
  +    query.Highlights <- option
  +    query
  +
  +let withOrderBy (column : string) (query : SearchQuery.Dto) = 
  +    query.OrderBy <- column
       query
   
   let withNoScore (query : SearchQuery.Dto) = 
  
positive.code:         result |> assertReturnedDocsCount 2
          test <@ result.Documents.[0].Id = expected1 @>
          test <@ result.Documents.[1].Id = expected2 @>
  
negative.code: let assertReturnedDocsCount (expected : int) (result : SearchResults) = 
      test <@ result.Documents.Count = expected @>
      test <@ result.RecordsReturned = expected @>
  
  let assertFieldValue (documentNo : int) (fieldName : string) (expectedFieldValue : string) (result : SearchResults) = 
      test <@ result.Documents.Count >= documentNo @>
      test <@ result.Documents.[documentNo].Fields.[fieldName] = expectedFieldValue @>
  
  /// Check if the total number of available document returned by the query matched the expected
  /// count
  