Refactored the unit tests.

Should be more readable in the test runner and the code itself.

TestCentre/TestCentre.fsproj

@@ -55,10 +55,12 @@
   </Choose>
   <Import Project="$(FSharpTargetsPath)" />
   <ItemGroup>
-    <Content Include="txt Files\desktop-clock-info.txt" />
+    <Content Include="TextFiles\desktop-clock-info.txt" />
     <Content Include="txt Files\console-waterworks-announcement.txt" />
     <Content Include="txt Files\word-generator.txt" />
+    <Content Include="TextFiles\console-waterworks-announcement.txt" />
     <Compile Include="AssemblyInfo.fs" />
+    <Compile Include="TestingConstants.fs" />
     <Compile Include="UnitTests.fs" />
     <None Include="Script.fsx" />
     <Content Include="packages.config" />

TestCentre/TestingConstants.fs

@@ -0,0 +1,10 @@
+module TestingConstants
+
+[<Literal>]
+let DesktopClock = __SOURCE_DIRECTORY__ + @"\TextFiles\desktop-clock-info.txt"
+
+[<Literal>]
+let ConsoleWaterworks = __SOURCE_DIRECTORY__ +  @"\TextFiles\console-waterworks-announcement.txt"
+
+[<Literal>]
+let WordGenerator = __SOURCE_DIRECTORY__ +  @"\TextFiles\word-generator.txt"

TestCentre/UnitTests.fs

@@ -1,21 +1,32 @@
 namespace TestCentre
 
-open Xunit
-open WetPancake
+    module ``Unit Tests`` = 
 
-module UnitTests =
+        open Xunit
+        open WetPancake
+        open TestingConstants
 
-    [<Fact>]
-    let ``Request Random Text does not generate a null`` () =
-        let result = Pancake.RequestRandomText
-        Assert.NotNull result
+        [<Fact>]
+        let ``Request Random Text does not generate a null`` () =
+            let result = Pancake.RequestRandomText
+            Assert.NotNull result
 
-    [<Fact>]
-    let ``Request Text does not generate a null`` () =
-        let result = Pancake.RequestText 5 5
-        Assert.NotNull result
+        [<Fact>]
+        let ``Request Text does not generate a null`` () =
+            let result = Pancake.RequestText 5 5
+            Assert.NotNull result
 
-    [<Fact>]
-    let ``Request Text From File does not generate a null`` () =
-        let result = Pancake.RequestTextFromFile 5 5 (__SOURCE_DIRECTORY__ + "\\txt Files\\word-generator.txt")
-        Assert.NotNull result
+        [<Fact>]
+        let ``Request Text From File does not generate a null for desktop-clock-info.txt`` () =
+            let result = Pancake.RequestTextFromFile 5 5 DesktopClock
+            Assert.NotNull result
+
+        [<Fact>]
+        let ``Request Text From File does not generate a null for console-waterworks-announcement.txt`` () =
+            let result = Pancake.RequestTextFromFile 5 5 ConsoleWaterworks
+            Assert.NotNull result
+
+        [<Fact>]
+        let ``Request Text From File does not generate a null for word-generator.txt`` () =
+            let result = Pancake.RequestTextFromFile 5 5 WordGenerator
+            Assert.NotNull result