Add support for Expecto theory tests (#1160)

Co-authored-by: Richard Webb <richard.webb@helpsystems.com>
ionide · Sep 6, 2023 · e214ff4 · e214ff4
1 parent daf3619
commit e214ff4
Show file tree

Hide file tree

Showing 4 changed files with 27 additions and 6 deletions.
diff --git a/src/FsAutoComplete.Core/TestAdapter.fs b/src/FsAutoComplete.Core/TestAdapter.fs
@@ -73,6 +73,15 @@ let getExpectoTests (ast: ParsedInput) : TestAdapterEntry<range> list =
     || str.EndsWith "testPropertyWithConfigs"
     || str.EndsWith "ptestPropertyWithConfigs"
     || str.EndsWith "ftestPropertyWithConfigs"
+    || str.EndsWith "testTheory"
+    || str.EndsWith "ftestTheory"
+    || str.EndsWith "ptestTheory"
+    || str.EndsWith "testTheoryAsync"
+    || str.EndsWith "ftestTheoryAsync"
+    || str.EndsWith "ptestTheoryAsync"
+    || str.EndsWith "testTheoryTask"
+    || str.EndsWith "ftestTheoryTask"
+    || str.EndsWith "ptestTheoryTask"
 
   let isExpectoListName (str: string) =
     str.EndsWith "testList" || str.EndsWith "ftestList" || str.EndsWith "ptestList"

diff --git a/test/FsAutoComplete.Tests.Lsp/TestCases/ExpectoTests/ExpectoTests.fsproj b/test/FsAutoComplete.Tests.Lsp/TestCases/ExpectoTests/ExpectoTests.fsproj
@@ -1,8 +1,8 @@
-<Project Sdk="Microsoft.NET.Sdk">
+<Project Sdk="Microsoft.NET.Sdk">
 
   <PropertyGroup>
     <OutputType>Exe</OutputType>
-    <TargetFramework>netcoreapp3.1</TargetFramework>
+    <TargetFramework>net6.0</TargetFramework>
     <GenerateProgramFile>false</GenerateProgramFile>
   </PropertyGroup>
 
@@ -12,9 +12,8 @@
   </ItemGroup>
 
   <ItemGroup>
-    <PackageReference Include="Expecto" Version="9.*" />
-    <PackageReference Include="YoloDev.Expecto.TestSdk" Version="0.13.3" />
+    <PackageReference Include="Expecto" Version="10.*" />
+    <PackageReference Include="YoloDev.Expecto.TestSdk" Version="0.14.2" />
     <PackageReference Include="Microsoft.NET.Test.Sdk" Version="16.*" />
-    <PackageReference Update="FSharp.Core" Version="4.*" />
   </ItemGroup>
 </Project>
diff --git a/test/FsAutoComplete.Tests.Lsp/TestCases/ExpectoTests/Main.fs b/test/FsAutoComplete.Tests.Lsp/TestCases/ExpectoTests/Main.fs
@@ -3,4 +3,4 @@ open Expecto
 
 [<EntryPoint>]
 let main argv =
-    Tests.runTestsInAssembly defaultConfig argv
+    Tests.runTestsInAssemblyWithCLIArgs [] argv
diff --git a/test/FsAutoComplete.Tests.Lsp/TestCases/ExpectoTests/Sample.fs b/test/FsAutoComplete.Tests.Lsp/TestCases/ExpectoTests/Sample.fs
@@ -43,4 +43,17 @@ let tests =
     testAsync "simple async" {
       Expect.equal 4 (2+2) "2+2"
     }
+
+    testTheory "odd numbers" [1; 3; 5] <| fun x ->
+      Expect.isTrue (x % 2 = 1) "should be odd"
+
+    testTheoryAsync "async even numbers" [2; 4; 6] <| fun x -> async {
+      Expect.isTrue (x % 2 = 0) "should be even"
+    }
+
+    testTheoryTask "task odd numbers" [1; 3; 5;] <| fun x -> task {
+      Expect.isTrue (x % 2 = 1) "should be odd"
+    }
+
+
   ]