replace artifact testing in script added.

WetPancake/Script.fsx

@@ -11,6 +11,7 @@
 
 open SystemServices
 open DataAccess
+open DataCleaning
 
 // System Services
 let ss_number = PickRandomNumber 10
@@ -20,4 +21,17 @@ let da_sampleFilePath = CreateSampleTextFilesPath
 let da_sampleTextFiles = FindSampleTextFiles da_sampleFilePath
 let da_sampleFiles = ListSampleFiles
 let da_randomSampleFile = SelectRandomSampleFile
-let da_file = LoadFile da_randomSampleFile
+let da_file = LoadFile da_randomSampleFile
+
+// Data Cleaning
+let dc_replace1 = ReplaceArtiface "\"" "dc_repl1 \" end."
+let dc_replace2 = ReplaceArtiface "\n\nIn" "dc_repl2 \n\nIn end."
+let dc_replace3 = ReplaceArtiface "\r" "dc_repl3 \r end."
+let dc_replace4 = ReplaceArtiface "\n" "dc_repl4 \n end."
+let dc_replace5 =
+    let testPath = "a1 \" a2 \n\nIn a3 \r a4 \n end."
+    testPath
+    |> ReplaceArtiface "\""
+    |> ReplaceArtiface "\n\nIn"
+    |> ReplaceArtiface "\r"
+    |> ReplaceArtiface "\n"