Browse Source

Updated the RequestText" contains a full stop" to "ends with the correct end-token".

master
Craig Oates 6 years ago
parent
commit
992a3ccb29
  1. 5
      TestCentre/PropertyTests.fs

5
TestCentre/PropertyTests.fs

@ -103,11 +103,12 @@
Check.Quick results
[<Property>]
let ``RequestText returns a string which contains a full stop`` () =
let ``RequestText returns a string which ends with the correct end-token`` () =
let test () =
Pancake.RequestTextAsync (ValidGibberishLevelInput()) (ValidSentencesInput())
|> Async.RunSynchronously
let results = Assert.Contains(".", test())
|> EndsAsIntended
let results = Assert.True(test())
Check.Quick results
[<Property>]

Loading…
Cancel
Save