|
|
|
@ -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`` = |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
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 |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
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 |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
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 |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
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 |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
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 |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
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 |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
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 |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
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 |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestAllTemplateFiles does not return a null`` () = |
|
|
|
|
let test () = |
|
|
|
|
Pancake.RequestAllTemplateFilesAsync () |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
let results = Assert.NotNull (test()) |
|
|
|
|
Check.Quick results |
|
|
|
|
*) |
|
|
|
|
|
|
|
|
|
module ``Contents Test`` = |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|