Browse Source

Updated RequestTestFile -- test-post.

Now "ends with end-token".
master
Craig Oates 6 years ago
parent
commit
d3be6e4c4e
  1. 5
      TestCentre/PropertyTests.fs

5
TestCentre/PropertyTests.fs

@ -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>]

Loading…
Cancel
Save