|
|
@ -33,7 +33,7 @@ |
|
|
|
let fullOverlay () = overlays.[Random().Next(4, 5)] |
|
|
|
let fullOverlay () = overlays.[Random().Next(4, 5)] |
|
|
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
[<Property>] |
|
|
|
let ``buildDefaultSpec creates intended type`` () = |
|
|
|
let ``Can create an intended default image spec`` () = |
|
|
|
let width = randomInt () |
|
|
|
let width = randomInt () |
|
|
|
let height = randomInt () |
|
|
|
let height = randomInt () |
|
|
|
let oSpec = |
|
|
|
let oSpec = |
|
|
@ -50,7 +50,7 @@ |
|
|
|
defaultSpec = spec |
|
|
|
defaultSpec = spec |
|
|
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
[<Property>] |
|
|
|
let ``buildSpec creates intended type with border`` () = |
|
|
|
let ``Can create an image spec with border`` () = |
|
|
|
let width = randomInt () |
|
|
|
let width = randomInt () |
|
|
|
let height = randomInt () |
|
|
|
let height = randomInt () |
|
|
|
let mainColour = randomColour () |
|
|
|
let mainColour = randomColour () |
|
|
@ -71,7 +71,7 @@ |
|
|
|
expectedSpec = spec |
|
|
|
expectedSpec = spec |
|
|
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
[<Property>] |
|
|
|
let ``buildSpec creates intended type with full overlay`` () = |
|
|
|
let ``Can create an image spec with full overlay`` () = |
|
|
|
let width = randomInt () |
|
|
|
let width = randomInt () |
|
|
|
let height = randomInt () |
|
|
|
let height = randomInt () |
|
|
|
let mainColour = randomColour () |
|
|
|
let mainColour = randomColour () |
|
|
@ -91,7 +91,7 @@ |
|
|
|
expectedSpec = spec |
|
|
|
expectedSpec = spec |
|
|
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
[<Property>] |
|
|
|
let ``buildSpec creates intended type with no overlay`` () = |
|
|
|
let ``Can create an image spec with no overlay`` () = |
|
|
|
let width = randomInt () |
|
|
|
let width = randomInt () |
|
|
|
let height = randomInt () |
|
|
|
let height = randomInt () |
|
|
|
let colour = randomColour () |
|
|
|
let colour = randomColour () |
|
|
@ -117,7 +117,7 @@ |
|
|
|
Assert.NotEmpty colourList |
|
|
|
Assert.NotEmpty colourList |
|
|
|
|
|
|
|
|
|
|
|
[<Fact>] |
|
|
|
[<Fact>] |
|
|
|
let ``getDesktopPath returns desktop path`` () = |
|
|
|
let ``Can retrieve the path to users desktop`` () = |
|
|
|
let expectedPath = |
|
|
|
let expectedPath = |
|
|
|
Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) |
|
|
|
Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) |
|
|
|
Assert.Equal (expectedPath, getDesktopPath) |
|
|
|
Assert.Equal (expectedPath, getDesktopPath) |