|
|
|
@ -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 |
|
|
|
|