Added property test.

6 years ago · b67f2ec2e4
1 changed files with 6 additions and 0 deletions
--- a/TestCentre/PropertyTests.fs
+++ b/TestCentre/PropertyTests.fs
@ -9,4 +9,10 @@
    let ``Request Random Text consistently produces a valid output`` () =
        let ProduceResult =
            Assert.NotNull (Pancake.RequestRandomText)
+        Check.Quick ProduceResult
+
+    [<Property>]
+    let ``Request Text consistently produces a valid output`` () =
+        let ProduceResult =
+            Assert.NotNull (Pancake.RequestText)
        Check.Quick ProduceResult