F# Canopy - text fixture syntax

example.fs

open canopy
open canopy.runner
open helpers

start firefox

fixture "asd" {
    url "http://google.com"
    "input[type=text]" << "Alexey Raga"
    "input[type=text]" == "Alexey Raga"
    sleep 3
}

run()
quit()

helpers.fs

module helpers

open canopy
open canopy.runner

type TestFixture(description) =
    let mutable funcs: (unit->unit) list = []
    member this.Zero() = ()
    member this.Delay(expression) = funcs <- expression :: funcs
    member this.Run(x) = 
        description &&& fun _ -> funcs |> List.iter (fun expr -> expr())

let fixture description = TestFixture(description)

You could extend this with the query extensions. See http://fpish.net/view/224. Very cool!