death-socket/TestCentre/Script.fsx

// These DLL's must be built before you can use them in this script.
#r "bin/Debug/System.Drawing.Common.dll"
#r "bin/Debug/SmoulderingBeachBall.dll"

open System
open System.Drawing
open System.Reflection
open SmoulderingBeachBall.Domain
open SmoulderingBeachBall.Services
open System.Threading
open System.Threading

(* Populating LoadingTestArea Folder Scripts
===============================================================================
The following scripts are to help you populate a test folder of images.
You can then use these images in LibraryTests.fs -- Property Tests. 
The tests consists of loading images from LoadingTestArea, transforming them
and saving them in SavingTestArea. *)

let saveLocation = __SOURCE_DIRECTORY__ + "/LoadingTestArea"

let random = Random()

let allColours =
    let properties =
        typeof<Brushes>.GetProperties(BindingFlags.Public ||| BindingFlags.Static)
    seq { for prop in properties -> prop}
    |> Seq.toArray

let randomBrush () =
    let item = allColours.[random.Next(allColours.Length)]
    item.GetValue(null, null)

let generateDimensionSizes total =
    List.init total  (fun _ -> random.Next(3000))

let randomSize (sizes: int list) =
    // (Sleep) Helps to reduce chance of picking the same item twice in quick succession.
    Thread.Sleep 100
    sizes.Item (random.Next(sizes.Length))

let populateSpec sizes =
    { width = randomSize (sizes)
      height = randomSize (sizes)
      colour = (randomBrush ()) :?> Brush
      filePath = saveLocation
      overlay = None }

let generateSpecs amount =
    let imageSizes = generateDimensionSizes amount
    [for i in 0 .. amount -> (populateSpec (imageSizes)) ] 

let generateImage spec =
    printfn "[INFO.] Creating image [Width: %i] [Height: %i] ..." (spec.width) (spec.height)
    makeImage spec

let populateLoadingTestArea () =
    printfn "[INFO.] Populating LoadingTestArea..."
    generateSpecs 100
    |> List.map generateImage
    |> Async.Parallel
    |> Async.RunSynchronously
    |> ignore
    printfn "[INFO.] Finishing populating /LoadingTestArea."

// You should only need this once.
// Make sure you have passed the above into F# Interactive.
populateLoadingTestArea ()