Left end of seesion notes.

TestCentre/PropertyTests.fs

@@ -9,6 +9,13 @@
     open System
     open InputGeneration
 
+    (* End of Session Note - Monday 23rd July
+    ==================================================================================================================
+    [] Remove the "contains a full stop" tests -- no longer needed due to change in functionality.
+    [] Update the "end with a full-stop" tests -- expanded the way a sentence can end.
+    [] Double check UnitTests.fs
+    *)
+
     module ``Null Tests`` =
 
         [<Property>]

TestCentre/UnitTests.fs

@@ -8,6 +8,13 @@
     open InputGeneration
     open System.Text.RegularExpressions
 
+    (* End of Session Note - Monday 23rd July
+    ==================================================================================================================
+    [] Remove the "contains a full stop" tests -- no longer needed due to change in functionality.
+    [] Update the "end with a full-stop" tests -- expanded the way a sentence can end.
+    [] Double check PropertyTests.fs
+    *)
+
     module ``File Access Tests`` =
 
         (* These tests check to see if the .txt files exists in the Test Centre project.

WetPancake/DataServices.fs

@@ -87,9 +87,10 @@
        SplitText splits the text and adds a space at the split.
        This leads to the text having double-spaces when concatenated back together.
     *)
+    // NOT QUITE RIGHT. PRODUCING RANDOM OBOBS.
     let RemoveArtifactSentences noOfSentences text =
         text
         |> SplitText @"(?<=[\.\!\?]\s)"
         |> Array.take noOfSentences
         |> ConcatToString
-        |> ReplaceArtifact "  "
+        |> ReplaceArtifact "  " // <- MY MONEY IS HERE...

WetPancake/ProductServices.fs

@@ -13,6 +13,7 @@ module  Pancake =
     open System.IO
 
     // TODO: Add XML comments to CleanResult function.
+    // Not 100% correct. Hunch is in RemoveArtifactSentences.
     let CleanResult noOfSentences text =
         async {
             let cleanText =