diff --git a/TestCentre/PropertyTests.fs b/TestCentre/PropertyTests.fs index dd790f6..456c7a1 100644 --- a/TestCentre/PropertyTests.fs +++ b/TestCentre/PropertyTests.fs @@ -9,87 +9,6 @@ open Helpers open InputGeneration - (* Note: Do the null tests need to remain? - =============================================================================================================== - These tests do not test anything beyond the unit tests. - Considering deleting the null tests... - =============================================================================================================== - module ``Null Tests`` = - - [] - let ``Request Random Text does not return a null when using the built-in random settings`` () = - let test = - Pancake.RequestRandomTextAsync () - |> Async.RunSynchronously - let results = Assert.NotNull test - Check.Quick results - - [] - let ``Request Text does not return a null when using fixed input parameters`` () = - // Change the values for a quick way to manually test the (test) code. - let test ()= - Pancake.RequestTextAsync 5 5 - |> Async.RunSynchronously - let results = Assert.NotNull (test()) - Check.Quick results - - [] - let ``Request Text does not return a null when using a random gibberish level`` () = - let test ()= - Pancake.RequestTextAsync (ValidGibberishLevelInput()) 5 - |> Async.RunSynchronously - let results = Assert.NotNull (test()) - Check.Quick results - - [] - let ``Request Text does not return a null when using a random sentence count`` () = - let test () = - Pancake.RequestTextAsync 5 (ValidSentencesInput()) - |> Async.RunSynchronously - let results = Assert.NotNull test - Check.Quick results - - [] - let ``RequestTextFromFile does not return a null when using console-waterworks-info`` () = - let test () = - Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) ConsoleWaterworks - |> Async.RunSynchronously - let results = Assert.NotNull (test()) - Check.Quick results - - [] - let ``RequestTextFromFile does not return a null when using desktop-clock-info`` () = - let test ()= - Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) DesktopClock - |> Async.RunSynchronously - let results = Assert.NotNull (test()) - Check.Quick results - - [] - let ``RequestTextFromFile does not return a null when using word-generator`` () = - let test () = - Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) WordGenerator - |> Async.RunSynchronously - let results = Assert.NotNull (test()) - Check.Quick results - - [] - let ``RequestTextFromFile does not return a null when using test-post`` () = - let test () = - Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) TestPost - |> Async.RunSynchronously - let results = Assert.NotNull (test()) - Check.Quick results - - [] - let ``RequestAllTemplateFiles does not return a null`` () = - let test () = - Pancake.RequestAllTemplateFilesAsync () - |> Async.RunSynchronously - let results = Assert.NotNull (test()) - Check.Quick results - *) - module ``Contents Test`` = []