Wrote CleanResult returns intended sentences property test.

TestCentre/PropertyTests.fs

@@ -93,6 +93,25 @@
 
     module ``Contents Test`` =
 
+        [<Property>]
+        let ``CleanResult returns intended number of sentences`` () =
+            let desiredSentencesCount = (DefaultSentenceCount())
+            let test () =
+                Pancake.CleanResult desiredSentencesCount DefaultTestSentence
+                |> Async.RunSynchronously
+                |> CountSentences
+            let results = Assert.Equal(desiredSentencesCount , test())
+            Check.Quick results
+
+
+        [<Property>]
+        let ``RequestAllTemplateFiles does not return an empty list`` () =
+            let test () =
+                Pancake.RequestAllTemplateFilesAsync ()
+                |> Async.RunSynchronously
+            let results = Assert.NotEmpty (test())
+            Check.Quick results
+
         [<Property>]
         let ``RequestRandomText returns a string which ends with the correct end-token`` () =
             let test () =
@@ -145,12 +164,4 @@
                 |> Async.RunSynchronously
                 |> EndsAsIntended
             let results = Assert.True(test())
-            Check.Quick results
-
-        [<Property>]
-        let ``RequestAllTemplateFiles does not return an empty list`` () =
-            let test () =
-                Pancake.RequestAllTemplateFilesAsync ()
-                |> Async.RunSynchronously
-            let results = Assert.NotEmpty (test())
             Check.Quick results