remove unused comments from property tests.

.gitignore

@@ -328,3 +328,4 @@ ASALocalRun/
 
 # MFractors (Xamarin productivity tool) working folder 
 .mfractor/
+/WetPancake/NuGet.exe

TestCentre/PropertyTests.fs

@@ -17,8 +17,7 @@
                 Pancake.CleanResultAsync (DefaultSentenceCount()) DefaultTestSentence
                 |> Async.RunSynchronously
                 |> EndsAsIntended
-            let results () = Assert.True(test())
+            test () = true
-            Check.Quick (results())
 
         [<Property>]
         let ``CleanResult returns intended number of sentences`` () =
@@ -27,15 +26,12 @@
                 Pancake.CleanResultAsync desiredSentencesCount DefaultTestSentence
                 |> Async.RunSynchronously
                 |> CountSentences
-            let results () = Assert.Equal(desiredSentencesCount , test())
+            test () = desiredSentencesCount
-            Check.Quick (results())
 
         [<Property>]
         let ``RequestAllTemplateFiles does not return an empty list`` () =
-            let test () =
+            let test () = Pancake.RequestAllTemplateFiles ()
-                Pancake.RequestAllTemplateFiles ()
+            List.isEmpty (test ()) = false
-            let results () = Assert.NotEmpty (test())
-            Check.Quick (results())
 
         [<Property>]
         let ``RequestCleanText returns a string which ends with the correct end-token`` () =
@@ -43,8 +39,8 @@
                 Pancake.RequestCleanTextAsync (ValidGibberishLevelInput()) 4
                 |> Async.RunSynchronously
                 |> EndsAsIntended
-            let results () = Assert.True(test())
+            test () = true
-            Check.Quick (results())
+
 
         [<Property>]
         let ``RequestCleanText returns intended number of sentences`` () =
@@ -53,8 +49,7 @@
                 Pancake.RequestCleanTextAsync (ValidGibberishLevelInput()) desiredSentencesCount
                 |> Async.RunSynchronously
                 |> CountSentences
-            let results () = Assert.Equal(desiredSentencesCount, test())
+            test () = desiredSentencesCount
-            Check.Quick (results())
 
         [<Property>]
         let ``RequestCleanTextFromFile returns a string which ends with the correct end-token when using console-waterworks-announcement`` () =
@@ -62,8 +57,7 @@
                 Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) ConsoleWaterworks
                 |> Async.RunSynchronously
                 |> EndsAsIntended
-            let results () = Assert.True(test())
+            test () = true
-            Check.Quick (results())
 
         [<Property>]
         let ``RequestCleanTextFromFile returns a string which ends with the correct end-token when using desktop-clock-info`` () =
@@ -71,8 +65,7 @@
                 Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) DesktopClock
                 |> Async.RunSynchronously
                 |> EndsAsIntended
-            let results () = Assert.True(test())
+            test () = true
-            Check.Quick (results())
 
         [<Property>]
         let ``RequestCleanTextFromFile returns a string which ends with the correct end-token when using test-post`` () =
@@ -80,8 +73,7 @@
                 Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) TestPost
                 |> Async.RunSynchronously
                 |> EndsAsIntended
-            let results () = Assert.True(test())
+            test () = true
-            Check.Quick (results())
 
         [<Property>]
         let ``RequestCleanTextFromFile returns a string which ends with the correct end-token when using word-generator`` () =
@@ -89,8 +81,7 @@
                 Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) WordGenerator
                 |> Async.RunSynchronously
                 |> EndsAsIntended
-            let results () = Assert.True(test())
+            test () = true
-            Check.Quick (results())
 
         [<Property>]
         let ``RequestCleanTextFromFile returns intended number of strings when using console-waterworks-announcement`` () =
@@ -99,8 +90,7 @@
                 Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) desiredSentencesCount ConsoleWaterworks
                 |> Async.RunSynchronously
                 |> CountSentences
-            let results () = Assert.Equal(desiredSentencesCount, test())
+            test () = desiredSentencesCount
-            Check.Quick (results())
 
         [<Property>]
         let ``RequestCleanTextFromFile returns intended number of strings when using desktop-clock-info`` () =
@@ -109,8 +99,7 @@
                 Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) desiredSentencesCount DesktopClock
                 |> Async.RunSynchronously
                 |> CountSentences
-            let results () = Assert.Equal(desiredSentencesCount, test())
+            test () = desiredSentencesCount
-            Check.Quick (results())
 
         [<Property>]
         let ``RequestCleanTextFromFile returns intended number of strings when using test-post`` () =
@@ -119,8 +108,7 @@
                 Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) desiredSentencesCount TestPost
                 |> Async.RunSynchronously
                 |> CountSentences
-            let results () = Assert.Equal(desiredSentencesCount, test())
+            test () = desiredSentencesCount
-            Check.Quick (results())
 
         [<Property>]
         let ``RequestCleanTextFromFile returns intended number of strings when using word-generator`` () =
@@ -129,8 +117,7 @@
                 Pancake.RequestCleanTextFromFileAsync (ValidGibberishLevelInput()) desiredSentencesCount WordGenerator
                 |> Async.RunSynchronously
                 |> CountSentences
-            let results () = Assert.Equal(desiredSentencesCount, test())
+            test () = desiredSentencesCount
-            Check.Quick (results())
 
         [<Property>]
         let ``RequestRandomText returns a string which ends with the correct end-token`` () =
@@ -138,8 +125,7 @@
                 Pancake.RequestRandomTextAsync ()
                 |> Async.RunSynchronously
                 |> EndsAsIntended
-            let results () = Assert.True(test())
+            test () = true
-            Check.Quick (results())
 
         [<Property>]
         let ``RequestText returns a string which ends with the correct end-token`` () =
@@ -147,8 +133,8 @@
                 Pancake.RequestTextAsync (ValidGibberishLevelInput()) (ValidSentencesInput())
                 |> Async.RunSynchronously
                 |> EndsAsIntended
-            let results () = Assert.True(test())
+            test () = true
-            Check.Quick (results())
+
 
         [<Property>]
         let ``RequestTextFromFile returns a string which ends with with the correct end-token when using console-waterwork-announcement`` () =
@@ -156,8 +142,7 @@
                 Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) ConsoleWaterworks
                 |> Async.RunSynchronously
                 |> EndsAsIntended
-            let results () = Assert.True(test())
+            test () = true
-            Check.Quick (results())
 
         [<Property>]
         let ``RequestTextFromFile returns a string which ends with with the correct end-token when using desktop-clock-info`` () =
@@ -165,8 +150,8 @@
                 Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) DesktopClock
                 |> Async.RunSynchronously
                 |> EndsAsIntended
-            let results () = Assert.True(test())
+            test () = true
-            Check.Quick (results())
+
 
         [<Property>]
         let ``RequestTextFromFile returns a string which ends with with the correct end-token when using test-post`` () =
@@ -174,8 +159,7 @@
                 Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) TestPost
                 |> Async.RunSynchronously
                 |> EndsAsIntended
-            let results () = Assert.True(test())
+            test () = true
-            Check.Quick (results())
 
         [<Property>]
         let ``RequestTextFromFile returns a string which ends withwith the correct end-token when using word-generator`` () =
@@ -183,8 +167,7 @@
                 Pancake.RequestTextFromFileAsync (ValidGibberishLevelInput()) (ValidSentencesInput()) WordGenerator
                 |> Async.RunSynchronously
                 |> EndsAsIntended
-            let results () = Assert.True(test())
+            test () = true
-            Check.Quick (results())
 
         [<Property>]
         let ``TextInFileIsValid returns true when processing the text in the template files`` () =
@@ -195,5 +178,4 @@
             let test () =
                 Pancake.TextInFileIsValidAsync (ValidFileInput())
                 |> Async.RunSynchronously
-            let results () = Assert.True (test())
+            test () = true
-            Check.Quick (results())