add SKPoint (hor. and vert. lines) property tests (for library).

DeathSocketCLI/Commands.fs

@@ -102,14 +102,12 @@
         are reading this, it is assumed you can understand it. If so, please
         feel free to use them -- just keep their exposure to a minimum.*)
 
-        // NOT TESTED
         let ``list-skia-colours`` () =
             printfn "[INFO.] Listing available SkiaSharp colours..."
             for item in skiaColourList do
                 printfn "%s" item.Key
             showEndOfCommandMessage
 
-        // NOT TESTED
         let``add-skia-grid`` imgPath numRows numColumns pWidth colour newPath =
             printfn "[INFO.] Adding SkiaSharp grid to image..."
             buildSkiaSpec imgPath numRows numColumns pWidth colour newPath
@@ -117,7 +115,6 @@
             |> Async.Start
             showEndOfCommandMessage
 
-        // NOT TESTED
         let``add-skia-rgb-grid`` imgPath numRows numColumns pWidth r g b newPath =
             printfn "[INFO.] Adding SkiaSharp grid to image..."
             buildSkiaRGBSpec imgPath numRows numColumns pWidth r g b newPath

TestCentre/LibraryTests.fs

@@ -165,6 +165,16 @@
             let result = determineVerticalLines (newNum()) (newNum()) (newNum())
             result.Length > 0
 
+        [<Property>]
+        let ``Can return a collection of SKPoints which represent a grids horizontal lines`` () =
+            let result = determineSKHorizontalLines (newNum()) (newNum()) (newNum())
+            result.Length > 0
+
+        [<Property>]
+        let ``Can return a collection of SKPoints which represent a grids vertical lines`` () =
+            let result = determineSKVerticalLines (newNum()) (newNum()) (newNum())
+            result.Length > 0
+
     module UnitTests =
 
         open TestingHelpers