Added unit tests for the "cleaning" functions.

TestCentre/UnitTests.fs

@@ -46,22 +46,26 @@
 
         [<Fact>]
         let ``RequestTextFromFile does not return a null when using desktop-clock-info`` () =
-            let result = Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) DesktopClock
+            let result =
+                Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) DesktopClock
             Assert.NotNull result
 
         [<Fact>]
         let ``RequestTextFromFile does not return a null when using console-waterworks-announcement`` () =
-            let result = Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) ConsoleWaterworks
+            let result =
+                Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) ConsoleWaterworks
             Assert.NotNull result
 
         [<Fact>]
         let ``RequestTextFromFile does not return a null when using word-generator`` () =
-            let result = Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) WordGenerator
+            let result =
+                Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) WordGenerator
             Assert.NotNull result
 
         [<Fact>]
         let ``RequestTestFromFile does not generate a null when using test-post`` () =
-            let result = Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) TestPost
+            let result =
+                Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) TestPost
             Assert.NotNull result
 
         [<Fact>]
@@ -69,6 +73,42 @@
             let result = Pancake.RequestAllTemplateFilesAsync ()
             Assert.NotNull result
 
+        [<Fact>]
+        let ``CleanResult does not return a null`` () =
+            let text = "This is a sentence. And, so is this. This shouldn't be here! How about this? No!"
+            let result = Pancake.CleanResult (ValidGibberishLevelInput()) text
+            Assert.NotNull result
+
+        [<Fact>]
+        let ``RequestCleanText does not return a null`` () =
+            let result = Pancake.RequestCleanTextAsync (ValidGibberishLevelInput()) (ValidSentencesInput())
+            Assert.NotNull result
+
+        [<Fact>]
+        let ``RequestCleanTextFromFile does not return a null when using console-waterworks-announcement`` () =
+            let result =
+                Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) ConsoleWaterworks
+            Assert.NotNull result
+
+        [<Fact>]
+        let ``RequestCleanTextFromFile does not return a null when using desktop-clock-info`` () =
+            let result =
+                Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) DesktopClock
+            Assert.NotNull result
+
+        [<Fact>]
+        let ``RequestCleanTextFromFile does not return a null when using test-post`` () =
+            let result =
+                Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) TestPost
+            Assert.NotNull result
+
+        [<Fact>]
+        let ``RequestCleanTextFromFile does not return a null when using word-generator`` () =
+            let result =
+                Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) WordGenerator
+            Assert.NotNull result
+
+
     module ``Contents Tests`` =
 
         [<Fact>]