using Simple.Data from F# for fun and...

gistfile1.fs

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

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

//although...
//more native (and syntactically nicer) support for dynamics in #fsharp would help, too... ;)
//
[<Fact>]
let ``Simple.Data data provider test`` () =
    Database.UseMockAdapter(new InMemoryAdapter())
    let db = Database.Open()
    db.Test.Insert(Id <- 1, Name <- "Alice")
    let record = db.Test.FindById(1)
    test <@ record.Id = 1 @>        
    test <@ record.Name = "Alice" @>        

just a spike - Simple.Data is lovely and much more powerful than this simple test shows...