From e5bb1d2118176af4628c82bd65b7eeaf367da4f4 Mon Sep 17 00:00:00 2001
From: "OPTIMUS-PRIME\\craig" <craig@craigoates.net>
Date: Sat, 15 Sep 2018 15:50:03 +0100
Subject: [PATCH] add unit test to check LoadingTestArea has what it needs for
 the property tests.

---
 TestCentre/LibraryTests.fs | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/TestCentre/LibraryTests.fs b/TestCentre/LibraryTests.fs
index 22bce43..3cac331 100644
--- a/TestCentre/LibraryTests.fs
+++ b/TestCentre/LibraryTests.fs
@@ -61,4 +61,18 @@
         [<Property>]
         let ``Can populate the LoadingTestArea`` () =
             populateLoadingTestArea ()
-            true = true
\ No newline at end of file
+            true = true
+
+    module UnitTests =
+
+        open System.IO
+        open TestingHelpers
+        open Xunit
+
+        // This test is just a check to make sure the property tests have what they need to run.
+        [<Fact>]
+        let ``LoadingTestArea contains at least 100 test images`` () =
+            let files = Directory.GetFileSystemEntries (loadLocation, "*.png")
+            let length = files.Length
+            let result = if length < 100 then false else true
+            Assert.True result
\ No newline at end of file