|
|
|
@ -2,6 +2,10 @@
|
|
|
|
|
|
|
|
|
|
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. *) |
|
|
|
|
|
|
|
|
|
open System |
|
|
|
|
open DeathSocketCLI.Validation |
|
|
|
|
|
|
|
|
@ -13,6 +17,8 @@
|
|
|
|
|
let loadPath = loadLocation + "/LoadTest.png" |
|
|
|
|
let savePath = saveLocation + "/SaveTest.png" |
|
|
|
|
|
|
|
|
|
(* Brushes converted to string []. |
|
|
|
|
CLI deals with strings before brushes. *) |
|
|
|
|
let testingColourArray = |
|
|
|
|
colourList |
|
|
|
|
|> Map.toSeq |
|
|
|
@ -75,7 +81,8 @@
|
|
|
|
|
penWidth = pWidth |
|
|
|
|
rows =randRows |
|
|
|
|
columns = randCols } |
|
|
|
|
let spec = buildSpec loadPath randRows randCols pWidth colourString savePath |
|
|
|
|
let spec = |
|
|
|
|
buildSpec loadPath randRows randCols pWidth colourString savePath |
|
|
|
|
intendedSpec = spec |
|
|
|
|
|
|
|
|
|
module UnitTests = |
|
|
|
|