An F# version of the RedirectedConsole

TestHelpers.fs

module TestHelpers

open System
open System.IO

type RedirectedConsole() =
    let outBefore = Console.Out
    let errorBefore = Console.Error
    let console = new StringWriter()

    do
        Console.SetOut(console)
        Console.SetError(console)

    member this.Output = console.ToString()
    member this.NormalizedOutput = this.Output.Replace("\r\n","\n")

    interface IDisposable with
        member this.Dispose() =
            Console.SetOut(outBefore)
            Console.SetError(errorBefore)
            console.Dispose()