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