diff --git a/TestCentre/PropertyTests.fs b/TestCentre/PropertyTests.fs index 456c7a1..68d2fe1 100644 --- a/TestCentre/PropertyTests.fs +++ b/TestCentre/PropertyTests.fs @@ -185,4 +185,16 @@ |> Async.RunSynchronously |> EndsAsIntended let results () = Assert.True(test()) + Check.Quick (results()) + + [] + let ``TextInFileIsValid returns true when processing the text in the template files`` () = + (* The template .txt files validity have been tested above. + This test is to for the function, not the .txt files. + Something has gone wrong if there are not quite a lot of explicit template file tests above. + This is why the .txt files are called at random and not broken down into seperate tests. *) + let test () = + Pancake.TextInFileIsValidAsync (ValidFileInput()) + |> Async.RunSynchronously + let results () = Assert.True (test()) Check.Quick (results()) \ No newline at end of file diff --git a/TestCentre/UnitTests.fs b/TestCentre/UnitTests.fs index df4f7d5..6892ef5 100644 --- a/TestCentre/UnitTests.fs +++ b/TestCentre/UnitTests.fs @@ -280,7 +280,7 @@ Assert.True(result) [] - let ``TextInFileIsValid returns correct boolean value when processing the files text`` () = + let ``TextInFileIsValid returns correct boolean value when processing a files text`` () = let trueResult = Pancake.TextInFileIsValidAsync TestPost |> Async.RunSynchronously