From aa1faac385abb0a47e696b19ffec461285e20372 Mon Sep 17 00:00:00 2001 From: "OPTIMUS-PRIME\\craig" Date: Tue, 4 Dec 2018 01:15:03 +0000 Subject: [PATCH] add SKPoint (hor. and vert. lines) property tests (for library). --- DeathSocketCLI/Commands.fs | 3 --- TestCentre/LibraryTests.fs | 10 ++++++++++ 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/DeathSocketCLI/Commands.fs b/DeathSocketCLI/Commands.fs index 969b23c..d0fd0ed 100644 --- a/DeathSocketCLI/Commands.fs +++ b/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 diff --git a/TestCentre/LibraryTests.fs b/TestCentre/LibraryTests.fs index 6199435..a8bc0c7 100644 --- a/TestCentre/LibraryTests.fs +++ b/TestCentre/LibraryTests.fs @@ -165,6 +165,16 @@ let result = determineVerticalLines (newNum()) (newNum()) (newNum()) result.Length > 0 + [] + let ``Can return a collection of SKPoints which represent a grids horizontal lines`` () = + let result = determineSKHorizontalLines (newNum()) (newNum()) (newNum()) + result.Length > 0 + + [] + 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