Test error handler builder

TestErrorBuilder.fs

type TestErrorBuilder () =
    member this.Bind (expr, func) =
        match expr with
        | None -> None
        | Some r ->
            try func r
            with
            | _ as e ->
                printfn "%A" e
                None
    member this.Delay (f: unit -> _) =
        f ()
    member this.Return (value) =
        Some value
    member this.ReturnFrom (value) =
        value
    member this.TryFinally (expr, comp) =
        try this.ReturnFrom(expr)
        finally comp ()
    member this.Using (res : #System.IDisposable, expr) =
        this.TryFinally(expr res, fun () -> res.Dispose())
    interface IErrorHandlerBuilder with
        member this.Bind (expr, func) = this.Bind (expr, func)
        member this.Delay (f) = this.Delay (f)
        member this.Return (value) = this.Return (value)
        member this.ReturnFrom (value) = this.ReturnFrom(value)
        member this.TryFinally (expr, comp) = this.TryFinally (expr, comp)
        member this.Using (res : #System.IDisposable, expr) = this.Using (res, expr)
        member this.Zero () = None