anchor.diff:      // delete
       commit store [delete o._id o]
       let readDeleted = 
  -        ["id", box (id.ToString())] 
  +        ["id", box id] 
           |> query<Person> store "select data from Person where data->>'_id' = :id"
       Array.length readDeleted |> should equal 0
   
  
positive.code: 
      // read
      let read = 
          [ "id", box (id.ToString()) ] 
          |> query<Person> storeSql @"SELECT [Data] from Person 
  Where Data.value('(/Person/_id)[1]', 'uniqueidentifier') = @id"
      o |> should equal read.[0]
  
negative.code: 
      // read
      let read = 
          [ "id", box id ] 
          |> query<Person> store "select data from Person where data->>'_id' = :id"
      o |> should equal read.[0]
      Array.length read |> should equal 1
  