add test for checking SKData with SkiaBuffer.

TestCentre/LibraryTests.fs

@@ -34,6 +34,9 @@
         let loadLocation = __SOURCE_DIRECTORY__ + "/LoadingTestArea"
         let saveLocation  = __SOURCE_DIRECTORY__ + "/SavingTestArea"
 
+        let fixedSkiaImagePath =
+            (loadLocation + "/RequiredInfo/Skia-599x336.png")
+
         let allColours =
             let properties =
                 typeof<Brushes>.GetProperties
@@ -105,6 +108,7 @@
         open DeathSocket.GridPainter
         open TestingHelpers
         open FsCheck.Xunit
+        open SkiaSharp
 
         (* With regards to the "saving images" tests, you should end up with
         one image left over in the SavingTestArea folder. Comment out the
@@ -219,6 +223,18 @@
             let result = determineSKVerticalLines (newNum()) (newNum()) (newNum())
             result.Length > 0
 
+        [<Property>]
+        let ``Can create a populated SKData buffer when calling createSKDataAsync with SkiaBuffer`` () =
+            let result () =
+                SkiaBuffer ({ filePath = fixedSkiaImagePath
+                              skColour = randomSKColour ()
+                              penWidth = float32 (newPenWidth())
+                              rows = newNum ()
+                              columns = newNum () })
+                |> createSKDataAsync
+                |> Async.RunSynchronously
+            (result ()).IsEmpty = false
+
     module UnitTests =
 
         open System