From 949a12fa51e2725f5f8380fb302a466c67f09b83 Mon Sep 17 00:00:00 2001 From: "OPTIMUS-PRIME\\craig" Date: Sat, 15 Sep 2018 16:56:57 +0100 Subject: [PATCH] extended comments in library tests. --- TestCentre/LibraryTests.fs | 15 +++++++++++++++ TestCentre/Script.fsx | 1 - 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/TestCentre/LibraryTests.fs b/TestCentre/LibraryTests.fs index b0c0ed2..36fe742 100644 --- a/TestCentre/LibraryTests.fs +++ b/TestCentre/LibraryTests.fs @@ -45,6 +45,16 @@ let fileName = Path.GetFileName originalFilePath saveLocation + "/" + fileName + (* To "manually" clear out the SavingTestArea folder, use this function + in script.fsx. More information can be found there, also.*) + let resetSavingTestArea () = + let files = Directory.GetFileSystemEntries(saveLocation, "*.png") + match files.Length with + | 0 -> () + | _ -> + files + |> Array.iter (fun f -> File.Delete(f)) + module PropertyTests = open FsCheck.Xunit @@ -56,6 +66,11 @@ [] let ``Can apply grid to image and save it`` () = + (* 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 let spec = diff --git a/TestCentre/Script.fsx b/TestCentre/Script.fsx index 46dab5b..0203dea 100644 --- a/TestCentre/Script.fsx +++ b/TestCentre/Script.fsx @@ -8,7 +8,6 @@ open System.Reflection open SmoulderingBeachBall.Domain open SmoulderingBeachBall.Services open System.Threading -open System.Threading (* Populating LoadingTestArea Folder Scripts ===============================================================================