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())