|
|
|
@ -130,11 +130,12 @@
|
|
|
|
|
Check.Quick results |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|
let ``RequestTextFromFile returns a string which ends with a full stop when using test-post`` () = |
|
|
|
|
let ``RequestTextFromFile returns a string which ends with with the correct end-token when using test-post`` () = |
|
|
|
|
let test () = |
|
|
|
|
Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) TestPost |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
let results = Assert.EndsWith(".", test()) |
|
|
|
|
|> EndsAsIntended |
|
|
|
|
let results = Assert.True(test()) |
|
|
|
|
Check.Quick results |
|
|
|
|
|
|
|
|
|
[<Property>] |
|
|
|
|