|
|
|
@ -5,27 +5,32 @@
|
|
|
|
|
If you have just cloned this repository or have not run any of the tests |
|
|
|
|
before, please head over to script.fs (in Test Centre) and populate the |
|
|
|
|
LoadingTestArea and SavingTestArea folders. More information will be |
|
|
|
|
provided there about what the scripts do. It is worth pointing out here, |
|
|
|
|
though, the .gitignore file ignores any .png files in them. |
|
|
|
|
This is why you must populate them before running any tests. *) |
|
|
|
|
provided there about what the scripts do. It is worth pointing out here the |
|
|
|
|
.gitignore file ignores any .png files in them. This is why you must |
|
|
|
|
populate them before running any tests. *) |
|
|
|
|
|
|
|
|
|
module TestingHelpers = |
|
|
|
|
|
|
|
|
|
(* When you are writing tests, please keep all helper functions in this |
|
|
|
|
module. If this module grows to a point where it hinders the actual |
|
|
|
|
testing modules, consider moving it then. *) |
|
|
|
|
testing modules, consider moving it then. If you do decide to move them |
|
|
|
|
out, pay attention to ConsoleTests.fs and its helper functions. *) |
|
|
|
|
|
|
|
|
|
open System |
|
|
|
|
open System.Drawing |
|
|
|
|
open System.Reflection |
|
|
|
|
open System.IO |
|
|
|
|
|
|
|
|
|
(* These are duplicates from ConsoleTests.fs (both of them). See point |
|
|
|
|
about helpers. Tests for checking these locations can be found in |
|
|
|
|
ConsoleTests.fs.*) |
|
|
|
|
let loadLocation = __SOURCE_DIRECTORY__ + "/LoadingTestArea" |
|
|
|
|
let saveLocation = __SOURCE_DIRECTORY__ + "/SavingTestArea" |
|
|
|
|
|
|
|
|
|
let allColours = |
|
|
|
|
let properties = |
|
|
|
|
typeof<Brushes>.GetProperties(BindingFlags.Public ||| BindingFlags.Static) |
|
|
|
|
typeof<Brushes>.GetProperties |
|
|
|
|
(BindingFlags.Public ||| BindingFlags.Static) |
|
|
|
|
seq { for prop in properties -> prop} |
|
|
|
|
|> Seq.toArray |
|
|
|
|
|
|
|
|
|