F# Assert module

module Assert =
    let Throws<'a when 'a :> exn> f =
        let wasThrown = ref false
        try f () with :? 'a -> wasThrown := true
        Assert.IsTrue (!wasThrown, sprintf "%s expected, but not thrown." typeof<'a>.Name)