Wrote RequestCleanText return intended sentences property test.

Minor rearranging of contents tests in property tests.

TestCentre/PropertyTests.fs

@@ -93,6 +93,15 @@
 
     module ``Contents Test`` =
 
+        [<Property>]
+        let ``CleanResult returns a string which ends with the correct end-token`` () =
+            let test () =
+                Pancake.CleanResultAsync (DefaultSentenceCount()) DefaultTestSentence
+                |> Async.RunSynchronously
+                |> EndsAsIntended
+            let results () = Assert.True(test())
+            Check.Quick (results())
+
         [<Property>]
         let ``CleanResult returns intended number of sentences`` () =
             let desiredSentencesCount = (DefaultSentenceCount())
@@ -104,20 +113,30 @@
             Check.Quick (results())
 
         [<Property>]
-        let ``CleanResult returns a string which ends with the correct end-token`` () =
+        let ``RequestAllTemplateFiles does not return an empty list`` () =
             let test () =
-                Pancake.CleanResultAsync (DefaultSentenceCount()) DefaultTestSentence
+                Pancake.RequestAllTemplateFilesAsync ()
+                |> Async.RunSynchronously
+            let results = Assert.NotEmpty (test())
+            Check.Quick results
+
+        [<Property>]
+        let ``RequestCleanText returns a string which ends with the correct end-token`` () =
+            let test () =
+                Pancake.RequestCleanTextAsync (ValidGibberishLevelInput()) (ValidSentencesInput())
                 |> Async.RunSynchronously
                 |> EndsAsIntended
             let results () = Assert.True(test())
-            Check.Quick (results())
+            Check.Quick results
 
         [<Property>]
-        let ``RequestAllTemplateFiles does not return an empty list`` () =
+        let ``RequestCleanText returns intended number of sentences`` () =
+            let desiredSentencesCount = (ValidSentencesInput())
             let test () =
-                Pancake.RequestAllTemplateFilesAsync ()
+                Pancake.RequestCleanTextAsync (ValidGibberishLevelInput()) desiredSentencesCount
                 |> Async.RunSynchronously
-            let results = Assert.NotEmpty (test())
+                |> CountSentences
+            let results = Assert.Equal(desiredSentencesCount, test())
             Check.Quick results
 
         [<Property>]