Browse Source

update comments in Test Centre.

master
Craig Oates 6 years ago
parent
commit
0a17bb2eed
  1. 21
      TestCentre/LibraryTests.fs

21
TestCentre/LibraryTests.fs

@ -26,7 +26,10 @@
(* These are duplicates from ConsoleTests.fs (both of them). See point (* These are duplicates from ConsoleTests.fs (both of them). See point
about helpers. Tests for checking these locations can be found in about helpers. Tests for checking these locations can be found in
ConsoleTests.fs. *) ConsoleTests.fs.
Also, these folders should not show up in Visual Studios
Solution Explorer -- unless you are viewing the solution in its folder
format. *)
let loadLocation = __SOURCE_DIRECTORY__ + "/LoadingTestArea" let loadLocation = __SOURCE_DIRECTORY__ + "/LoadingTestArea"
let saveLocation = __SOURCE_DIRECTORY__ + "/SavingTestArea" let saveLocation = __SOURCE_DIRECTORY__ + "/SavingTestArea"
@ -82,7 +85,6 @@
rows = newNum () rows = newNum ()
columns = newNum () } columns = newNum () }
module PropertyTests = module PropertyTests =
open FsCheck.Xunit open FsCheck.Xunit
@ -91,14 +93,14 @@
open DeathSocket.GridPainter open DeathSocket.GridPainter
open TestingHelpers open TestingHelpers
open System.IO open System.IO
open System
(* With regards to the "saving images" tests, you should end up with
one image left over in the SavingTestArea folder. Comment out the
"reset" function to see all the images produced by this test. This will
mean you will need to manually delete the images yourself if you do. *)
[<Property>] [<Property>]
let ``Can apply grid to image and save it using BrushSpec`` () = let ``Can apply grid to image and save it using BrushSpec`` () =
(* You should end up with one image left over in SavingTestArea.
Comment out the "reset" function to see all the images produced,
by this test. This will mean you will need to manually delete the
images yourself if you do. *)
resetSavingTestArea () resetSavingTestArea ()
let oPath = generateLoadPath () let oPath = generateLoadPath ()
let sPath = generateSavePath oPath let sPath = generateSavePath oPath
@ -115,10 +117,6 @@
[<Property>] [<Property>]
let ``Can apply grid to image and save it using RGBASpec`` () = let ``Can apply grid to image and save it using RGBASpec`` () =
(* You should end up with one image left over in SavingTestArea.
Comment out the "reset" function to see all the images produced,
by this test. This will mean you will need to manually delete the
images yourself if you do. *)
resetSavingTestArea () resetSavingTestArea ()
let oPath = generateLoadPath () let oPath = generateLoadPath ()
let sPath = generateSavePath oPath let sPath = generateSavePath oPath
@ -157,7 +155,6 @@
let brush = makeSolidBrushFromRGBASpec referenceSpec let brush = makeSolidBrushFromRGBASpec referenceSpec
brush.Color = referenceColour brush.Color = referenceColour
[<Property>] [<Property>]
let ``Can return a collection of points which represent a grids horizontal lines`` () = let ``Can return a collection of points which represent a grids horizontal lines`` () =
let result = determineHorizontalLines (newNum()) (newNum()) (newNum()) let result = determineHorizontalLines (newNum()) (newNum()) (newNum())

Loading…
Cancel
Save