death-socket/TestCentre/ConsoleTests.fs

namespace ConsoleTests

    module TestingHelpers =

    (* When you are writing tests, please keep all helper functions in this module.
    If this module grows to a point where it hinders the actual testing modules,
    consider moving it then. *)

        open System
        open DeathSocketCLI.Validation

        // Directory Path
        let saveLocation  = __SOURCE_DIRECTORY__ + "/SavingTestArea"
        let loadLocation = __SOURCE_DIRECTORY__ + "/LoadingTestArea"

        // File Path
        let loadPath = loadLocation + "/LoadTest.png"
        let savePath = saveLocation + "/SaveTest.png"

        (* Brushes converted to string [].
        CLI deals with strings before brushes. *)
        let testingColourArray =
            colourList
            |> Map.toSeq
            |> Seq.map fst
            |> Seq.toArray

        let randomColourString () =
            testingColourArray.[Random().Next(testingColourArray.Length - 1)]

        let randomBrush () =
            colourList
            |> Map.toSeq
            |> Seq.map snd
            |> Seq.toArray
            |> Array.item (Random().Next(colourList.Count))

    module PropertyTests =

        open System
        open FsCheck.Xunit
        open DeathSocketCLI.Validation
        open System.Drawing
        open TestingHelpers
        open DeathSocket.Domain

        [<Property>]
        let ``Pen width is set greater than 0`` () =
            (setPenWidth (Random().Next()) (Random().Next())) > 0.0f

        [<Property>]
        let ``Parsed colour matches expected colour`` () =
            let expectedColour = (randomColourString ())
            let brush = parseColour (expectedColour)
            let convertedBrush = ((brush :?> SolidBrush).Color.Name.ToLower())
            convertedBrush = expectedColour

        [<Property>]
        let ``Can build the intended default image specification`` () =
            let defaultSpec =
                { originalPath = loadPath
                  savePath = savePath
                  colour = Brushes.White
                  penWidth = setPenWidth 1000 1000
                  rows = 10
                  columns = 10 }
            let spec = buildDefaultSpec loadPath savePath
            defaultSpec = spec

        [<Property>]
        let ``Can build an image specification as intended`` () =
            let colourString = randomColourString ()
            let brush = parseColour colourString
            let pWidth = float32 (Random().Next())
            let randRows = Random().Next()
            let randCols = Random().Next()
            let intendedSpec =
                { originalPath = loadPath
                  savePath = savePath
                  colour = brush
                  penWidth = pWidth
                  rows =randRows
                  columns = randCols }
            let spec =
                buildSpec loadPath randRows randCols pWidth colourString savePath
            intendedSpec = spec

    module UnitTests =

        open System.IO
        open DeathSocketCLI.Validation
        open Xunit
        open TestingHelpers

        [<Fact>]
        let ``Saving Test Area can be located`` () =
            Assert.True (Directory.Exists saveLocation)

        [<Fact>]
        let ``Loading Test Area can be located`` () =
            Assert.True (Directory.Exists loadLocation)

        [<Fact>]
        let ``Colour list is not empty`` () =
           Assert.False (colourList.IsEmpty)

        [<Fact>]
        let ``Exception thrown when invalid colour is used`` () =
            Assert.Throws<System.ArgumentException>
                (fun () -> parseColour "not a valid colour" |> ignore)