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 + [] + 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