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
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 saveLocation = __SOURCE_DIRECTORY__ + "/SavingTestArea"
@ -82,7 +85,6 @@
rows = newNum ()
columns = newNum () }
module PropertyTests =
open FsCheck.Xunit
@ -91,14 +93,14 @@
open DeathSocket.GridPainter
open TestingHelpers
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>]
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 ()
let oPath = generateLoadPath ()
let sPath = generateSavePath oPath
@ -115,10 +117,6 @@
[<Property>]
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 ()
let oPath = generateLoadPath ()
let sPath = generateSavePath oPath
@ -157,7 +155,6 @@
let brush = makeSolidBrushFromRGBASpec referenceSpec
brush.Color = referenceColour
[<Property>]
let ``Can return a collection of points which represent a grids horizontal lines`` () =
let result = determineHorizontalLines (newNum()) (newNum()) (newNum())

Loading…
Cancel
Save