|
|
|
@ -17,8 +17,7 @@
|
|
|
|
|
Pancake.CleanResultAsync (DefaultSentenceCount()) DefaultTestSentence |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> EndsAsIntended |
|
|
|
|
let results () = Assert.True(test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = true |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``CleanResult returns intended number of sentences`` () = |
|
|
|
@ -27,15 +26,12 @@
|
|
|
|
|
Pancake.CleanResultAsync desiredSentencesCount DefaultTestSentence |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> CountSentences |
|
|
|
|
let results () = Assert.Equal(desiredSentencesCount , test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = desiredSentencesCount |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestAllTemplateFiles does not return an empty list`` () = |
|
|
|
|
let test () = |
|
|
|
|
Pancake.RequestAllTemplateFiles () |
|
|
|
|
let results () = Assert.NotEmpty (test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
let test () = Pancake.RequestAllTemplateFiles () |
|
|
|
|
List.isEmpty (test ()) = false |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestCleanText returns a string which ends with the correct end-token`` () = |
|
|
|
@ -43,8 +39,8 @@
|
|
|
|
|
Pancake.RequestCleanTextAsync (ValidGibberishLevelInput()) 4 |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> EndsAsIntended |
|
|
|
|
let results () = Assert.True(test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = true |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestCleanText returns intended number of sentences`` () = |
|
|
|
@ -53,8 +49,7 @@
|
|
|
|
|
Pancake.RequestCleanTextAsync (ValidGibberishLevelInput()) desiredSentencesCount |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> CountSentences |
|
|
|
|
let results () = Assert.Equal(desiredSentencesCount, test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = desiredSentencesCount |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestCleanTextFromFile returns a string which ends with the correct end-token when using console-waterworks-announcement`` () = |
|
|
|
@ -62,8 +57,7 @@
|
|
|
|
|
Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) ConsoleWaterworks |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> EndsAsIntended |
|
|
|
|
let results () = Assert.True(test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = true |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestCleanTextFromFile returns a string which ends with the correct end-token when using desktop-clock-info`` () = |
|
|
|
@ -71,8 +65,7 @@
|
|
|
|
|
Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) DesktopClock |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> EndsAsIntended |
|
|
|
|
let results () = Assert.True(test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = true |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestCleanTextFromFile returns a string which ends with the correct end-token when using test-post`` () = |
|
|
|
@ -80,8 +73,7 @@
|
|
|
|
|
Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) TestPost |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> EndsAsIntended |
|
|
|
|
let results () = Assert.True(test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = true |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestCleanTextFromFile returns a string which ends with the correct end-token when using word-generator`` () = |
|
|
|
@ -89,8 +81,7 @@
|
|
|
|
|
Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) WordGenerator |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> EndsAsIntended |
|
|
|
|
let results () = Assert.True(test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = true |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestCleanTextFromFile returns intended number of strings when using console-waterworks-announcement`` () = |
|
|
|
@ -99,8 +90,7 @@
|
|
|
|
|
Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) desiredSentencesCount ConsoleWaterworks |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> CountSentences |
|
|
|
|
let results () = Assert.Equal(desiredSentencesCount, test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = desiredSentencesCount |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestCleanTextFromFile returns intended number of strings when using desktop-clock-info`` () = |
|
|
|
@ -109,8 +99,7 @@
|
|
|
|
|
Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) desiredSentencesCount DesktopClock |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> CountSentences |
|
|
|
|
let results () = Assert.Equal(desiredSentencesCount, test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = desiredSentencesCount |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestCleanTextFromFile returns intended number of strings when using test-post`` () = |
|
|
|
@ -119,8 +108,7 @@
|
|
|
|
|
Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) desiredSentencesCount TestPost |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> CountSentences |
|
|
|
|
let results () = Assert.Equal(desiredSentencesCount, test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = desiredSentencesCount |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestCleanTextFromFile returns intended number of strings when using word-generator`` () = |
|
|
|
@ -129,8 +117,7 @@
|
|
|
|
|
Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) desiredSentencesCount WordGenerator |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> CountSentences |
|
|
|
|
let results () = Assert.Equal(desiredSentencesCount, test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = desiredSentencesCount |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestRandomText returns a string which ends with the correct end-token`` () = |
|
|
|
@ -138,8 +125,7 @@
|
|
|
|
|
Pancake.RequestRandomTextAsync () |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> EndsAsIntended |
|
|
|
|
let results () = Assert.True(test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = true |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestText returns a string which ends with the correct end-token`` () = |
|
|
|
@ -147,8 +133,8 @@
|
|
|
|
|
Pancake.RequestTextAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> EndsAsIntended |
|
|
|
|
let results () = Assert.True(test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = true |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestTextFromFile returns a string which ends with with the correct end-token when using console-waterwork-announcement`` () = |
|
|
|
@ -156,8 +142,7 @@
|
|
|
|
|
Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) ConsoleWaterworks |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> EndsAsIntended |
|
|
|
|
let results () = Assert.True(test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = true |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestTextFromFile returns a string which ends with with the correct end-token when using desktop-clock-info`` () = |
|
|
|
@ -165,8 +150,8 @@
|
|
|
|
|
Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) DesktopClock |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> EndsAsIntended |
|
|
|
|
let results () = Assert.True(test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = true |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestTextFromFile returns a string which ends with with the correct end-token when using test-post`` () = |
|
|
|
@ -174,8 +159,7 @@
|
|
|
|
|
Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) TestPost |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> EndsAsIntended |
|
|
|
|
let results () = Assert.True(test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = true |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestTextFromFile returns a string which ends withwith the correct end-token when using word-generator`` () = |
|
|
|
@ -183,8 +167,7 @@
|
|
|
|
|
Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) WordGenerator |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|> EndsAsIntended |
|
|
|
|
let results () = Assert.True(test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = true |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``TextInFileIsValid returns true when processing the text in the template files`` () = |
|
|
|
@ -195,5 +178,4 @@
|
|
|
|
|
let test () = |
|
|
|
|
Pancake.TextInFileIsValidAsync (ValidFileInput()) |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
let results () = Assert.True (test()) |
|
|
|
|
Check.Quick (results()) |
|
|
|
|
test () = true |