Browse Source

add test for checking SKData with SkiaRGBBuffer.

master
Craig Oates 5 years ago
parent
commit
e1e089a559
  1. 14
      TestCentre/LibraryTests.fs

14
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

Loading…
Cancel
Save