anchor.diff:  
   let getMany conn = 
       for i in 1..50 do
  -        insertUser conn {id = i; name = "pepe" + i.ToString(); address = None}
  +        insertUser conn {id = i; name = "pepe" + i.ToString(); parent = None}
       let first10 = Sql.execReaderF conn "select * from person" |> Seq.ofDataReader |> Seq.truncate 10
       for i in first10 do
           printfn "%d" (i?id).Value
  
positive.code:     Sql.withNewConnection createPersistentConnection
  
  let userMapper r = 
      { id = (r?id).Value ; name = (r?name).Value; address = None}
  
  let selectById conn = Sql.execReaderF conn "select * from person where id = %d"
  
  
negative.code:     findNonExistentRecord (withNewDbFile())
  
  let findExistentRecord conn = 
      insertUser conn {id = 1; name = "pepe"; parent = None}
      let p = findUser conn 1
      Assert.IsTrue p.IsSome
      printfn "end test"
  