using Simple.Data from F# for fun

gistfile1.fs

open Simple.Data
open Xunit
open Swensen.Unquote
open ImpromptuInterface.FSharp

let adapter = new InMemoryAdapter()
adapter.SetKeyColumn("Test", "Id");
adapter.SetKeyColumn("Test", "Name");
Database.UseMockAdapter(adapter);

[<Fact>]
let ``sql data provider test`` () =
    let db = Database.Open()
    db?Test?Insert(1, "Alice")
    let record = db?Test?FindById(1)
    test <@ record?Id = 1 @>        
    test <@ record?Name = "Alice" @>