|
|
|
@ -58,13 +58,6 @@
|
|
|
|
|
let ``Pen width is set greater than 0`` () = |
|
|
|
|
(setPenWidth (Random().Next()) (Random().Next())) > 0.0f |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``Parsed colour matches expected colour`` () = |
|
|
|
|
let expectedColour = (randomColourString ()) |
|
|
|
|
let brush = parseColour (expectedColour) |
|
|
|
|
let convertedBrush = ((brush :?> SolidBrush).Color.Name.ToLower()) |
|
|
|
|
convertedBrush = expectedColour |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``Can build the intended default image specification`` () = |
|
|
|
|
let defaultSpec = |
|
|
|
|