Finished add the contetn tests to PropertyTests.

The "end with a full stop" tests are failing at random intervals but that was epected.

TestCentre/PropertyTests.fs

@@ -88,7 +88,65 @@
     module ``Contents Test`` =
 
         [<Property>]
-        let ``RequestRandomText produces content which ends with a full stop`` () =
+        let ``RequestRandomText returns a string which contains a full stop`` () =
+            let test =
+                Pancake.RequestRandomTextAsync ()
+                |> Async.RunSynchronously
+            let results = Assert.Contains(".", test)
+            Check.Quick results
+
+        [<Property>]
+        let ``RequestText returns a string which contains a full stop`` () =
+            let gibberishLevel () = System.Random().Next(2, 10)
+            let totalSentences () = System.Random().Next(2, 10)
+            let test =
+                Pancake.RequestTextAsync (gibberishLevel()) (totalSentences())
+                |> Async.RunSynchronously
+            let results = Assert.Contains(".", test)
+            Check.Quick results
+
+        [<Property>]
+        let ``RequestTextFromFile returns a string which contains a full stop when using console-waterworks-announcement`` () =
+            let gibberishLevel () = System.Random().Next(2, 10)
+            let totalSentences () = System.Random().Next(2, 10)
+            let test =
+                Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) ConsoleWaterworks
+                |> Async.RunSynchronously
+            let results = Assert.Contains(".", test)
+            Check.Quick results
+
+        [<Property>]
+        let ``RequestTextFromFile returns a string which contains a full stop when using desktop-clock-info`` () =
+            let gibberishLevel () = System.Random().Next(2, 10)
+            let totalSentences () = System.Random().Next(2, 10)
+            let test =
+                Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) DesktopClock
+                |> Async.RunSynchronously
+            let results = Assert.Contains(".", test)
+            Check.Quick results
+
+        [<Property>]
+        let ``RequestTextFromFile returns a string which contains a full stop when using test-post`` () =
+            let gibberishLevel () = System.Random().Next(2, 10)
+            let totalSentences () = System.Random().Next(2, 10)
+            let test =
+                Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) TestPost
+                |> Async.RunSynchronously
+            let results = Assert.Contains(".", test)
+            Check.Quick results
+
+        [<Property>]
+        let ``RequestTextFromFile returns a string which contains a full stop when using word-generator`` () =
+            let gibberishLevel () = System.Random().Next(2, 10)
+            let totalSentences () = System.Random().Next(2, 10)
+            let test =
+                Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) WordGenerator
+                |> Async.RunSynchronously
+            let results = Assert.Contains(".", test)
+            Check.Quick results
+
+        [<Property>]
+        let ``RequestRandomText returns a string which ends with a full stop`` () =
             let test =
                 Pancake.RequestRandomTextAsync ()
                 |> Async.RunSynchronously
@@ -96,7 +154,7 @@
             Check.Quick results
 
         [<Property>]
-        let ``RequestTest produces content which ends with a full stop`` () =
+        let ``RequestTest returns a string which ends with a full stop`` () =
             let gibberishLevel () = System.Random().Next(2, 10)
             let totalSentences () = System.Random().Next(2, 10)
             let test =
@@ -104,3 +162,44 @@
                 |> Async.RunSynchronously
             let results = Assert.EndsWith(".", test)
             Check.Quick results
+
+        [<Property>]
+        let ``RequestTextFromFile returns a string which ends with a full stop when using console-waterwork-announcement`` () =
+            let gibberishLevel () = System.Random().Next(2, 10)
+            let totalSentences () = System.Random().Next(2, 10)
+            let test =
+                Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) ConsoleWaterworks
+                |> Async.RunSynchronously
+            let results = Assert.EndsWith(".", test)
+            Check.Quick results
+
+        [<Property>]
+        let ``RequestTextFromFile returns a string which ends with a full stop when using desktop-clock-info`` () =
+            let gibberishLevel () = System.Random().Next(2, 10)
+            let totalSentences () = System.Random().Next(2, 10)
+            let test =
+                Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) DesktopClock
+                |> Async.RunSynchronously
+            let results = Assert.EndsWith(".", test)
+            Check.Quick results
+
+        [<Property>]
+        let ``RequestTextFromFile returns a string which ends with a full stop when using test-post`` () =
+            let gibberishLevel () = System.Random().Next(2, 10)
+            let totalSentences () = System.Random().Next(2, 10)
+            let test =
+                Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) TestPost
+                |> Async.RunSynchronously
+            let results = Assert.EndsWith(".", test)
+            Check.Quick results
+
+        [<Property>]
+        let ``RequestTextFromFile returns a string which ends with a full stop when using word-generator`` () =
+            let gibberishLevel () = System.Random().Next(2, 10)
+            let totalSentences () = System.Random().Next(2, 10)
+            let test =
+                Pancake.RequestTextFromFileAsync (gibberishLevel()) (totalSentences()) WordGenerator
+                |> Async.RunSynchronously
+            let results = Assert.EndsWith(".", test)
+            Check.Quick results
+