From 0a17bb2eedbcb7db2f9541b30503c4ed4535455e Mon Sep 17 00:00:00 2001 From: Craig Oates Date: Sun, 21 Oct 2018 07:27:07 +0100 Subject: [PATCH] update comments in Test Centre. --- TestCentre/LibraryTests.fs | 21 +++++++++------------ 1 file changed, 9 insertions(+), 12 deletions(-) diff --git a/TestCentre/LibraryTests.fs b/TestCentre/LibraryTests.fs index 52c0b9b..6199435 100644 --- a/TestCentre/LibraryTests.fs +++ b/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. *) [] 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 @@ [] 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 - [] let ``Can return a collection of points which represent a grids horizontal lines`` () = let result = determineHorizontalLines (newNum()) (newNum()) (newNum())