End of session check-in.

Hooking up the testing.
6 years ago · 01c3626f1d
4 changed files with 19 additions and 11 deletions
--- a/TestCentre/FsCTests.fs
+++ b/TestCentre/FsCTests.fs
@ -1,7 +0,0 @@
-module Say
-
-    open FsCheck
-    open FsCheck.Xunit
-    open WetPancake.Pancake
-
-    let RandomText = RequestRandomText()
--- a/TestCentre/PropTests.fs
+++ b/TestCentre/PropTests.fs
@ -0,0 +1,6 @@
+module PropTests
+
+    open FsCheck
+    open WetPancake.Pancake
+
+    let RandomText = RequestRandomText()
--- a/TestCentre/TestCentre.fsproj
+++ b/TestCentre/TestCentre.fsproj
@ -5,15 +5,14 @@
  </PropertyGroup>

  <ItemGroup>
-    <Compile Include="FsCTests.fs" />
+    <Compile Include="PropTests.fs" />
+    <Compile Include="UnitTests.fs" />
  </ItemGroup>

  <ItemGroup>
    <PackageReference Include="FsCheck" Version="2.10.10" />
-    <PackageReference Include="FsCheck.Xunit" Version="2.10.10" />
    <PackageReference Include="xunit" Version="2.3.1" />
-    <PackageReference Include="xunit.analyzers" Version="0.9.0" />
-    <PackageReference Include="xunit.runner.console" Version="2.3.1" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.3.1" />
  </ItemGroup>

  <ItemGroup>
--- a/TestCentre/UnitTests.fs
+++ b/TestCentre/UnitTests.fs
@ -0,0 +1,10 @@
+namespace TestCentre.UnitTests
+open Xunit
+open WetPancake.Pancake
+
+    module UnitTests =
+
+        [<Fact>]
+        let RandomTest1()=
+            let result = RequestRandomText
+            Assert.NotNull(result)