testCase "CLIType DBRef token without include Test" <| fun _ ->
useDatabase <| fun db ->
let company = {Id = 1; Name = "InitializedCompanyName"}
let order = { Id = 1; Company = company; EOrders = []}
db.Insert(company)
db.Insert(order)
let m = db.Query<Order>().FirstOrDefault()
Expect.equal m.Company.Id 1 "CLIType DBRef token without include Test corrently"
this tests is failed while below test with Include(convertExpr <@ fun c -> c.Company @> is passed
testCase "CLIType DBRef NestedId token Test" <| fun _ ->
useDatabase <| fun db ->
let company = {Id = 1; Name = "InitializedCompanyName"}
let order = { Id = 1; Company = company; EOrders = []}
db.Insert(company)
db.Insert(order)
let m = db.Query<Order>().Include(convertExpr <@ fun c -> c.Company @> ).FirstOrDefault()
Expect.equal m.Company.Id 1 "CLIType DBRef NestedId token Test Corrently"
this tests is failed while below test with
Include(convertExpr <@ fun c -> c.Company @>
is passed