wet-pancake/TestCentre/InputGeneration.fs

module InputGeneration

    open System
    open TestingConstants

    let ValidGibberishLevelInput () =
            let testInputs = [|2 .. 20|]
            let index = Random().Next(0, testInputs.Length)
            testInputs.[index]

    let ValidSentencesInput () = System.Random().Next(2, 10)

    let InvalidGibberishLevelInput () =
        let testInputs = Array.concat [ [|0; 1|] ; [|21 .. 100|] ]
        let index = System.Random().Next(0, testInputs.Length)
        testInputs.[index]

    let InvalidSentencesInput () = System.Random().Next(-5, 1)

    let ValidFileInput () =
        let testInputs = [|ConsoleWaterworks; DesktopClock; TestPost; WordGenerator|]
        let index = Random().Next(0, testInputs.Length)
        testInputs.[index]

    [<Literal>]
    let DefaultTestSentence = "This is a sentence. And, so is this. This shouldn't be here! How about this? No!"