diff --git a/TestCentre/LibraryTests.fs b/TestCentre/LibraryTests.fs index 152758a..b9dfcc3 100644 --- a/TestCentre/LibraryTests.fs +++ b/TestCentre/LibraryTests.fs @@ -99,12 +99,14 @@ (File.Exists sPath) = true [] - // need to write a test which tests the colour is the same once coverted. - let ``Can make a solid brush from RGBA values`` () = - let brush = - makeSolidBrushFromRGBA (newRGBANum ()) (newRGBANum ()) (newRGBANum ()) (newRGBANum ()) - let b = brush :? SolidBrush - b = true + let ``SolidBrush colour matches the individual RGBA values`` () = + let a = newRGBANum () + let r = newRGBANum () + let g = newRGBANum () + let b = newRGBANum () + let referenceColour = Color.FromArgb (a, r, g, b) + let brush = makeSolidBrushFromRGBA r g b a + brush.Color = referenceColour []