From e1e089a559e7162b01f8ccce9a79656c085bb373 Mon Sep 17 00:00:00 2001
From: Craig Oates <craig@craigoates.net>
Date: Mon, 31 Dec 2018 11:34:41 +0000
Subject: [PATCH] add test for checking SKData with SkiaRGBBuffer.

---
 TestCentre/LibraryTests.fs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/TestCentre/LibraryTests.fs b/TestCentre/LibraryTests.fs
index ee19b4a..a3bdb4f 100644
--- a/TestCentre/LibraryTests.fs
+++ b/TestCentre/LibraryTests.fs
@@ -235,6 +235,20 @@
                 |> Async.RunSynchronously
             (result ()).IsEmpty = false
 
+        [<Property>]
+        let ``Can create a populated SKData buffer when calling createSKDataAsync with SkiaRGBBuffer`` () =
+            let result () =
+                SkiaRGBBuffer ({ filePath = fixedSkiaImagePath
+                                 red = float32 (newNum())
+                                 green = float32 (newNum())
+                                 blue = float32 (newNum())
+                                 penWidth = float32 (newPenWidth())
+                                 rows = newNum ()
+                                 columns = newNum () })
+                |> createSKDataAsync
+                |> Async.RunSynchronously
+            (result ()).IsEmpty = false
+
     module UnitTests =
 
         open System