ClassConstructorWithEnumeralTest for VB & F#

TUnit.TestProject.FSharp/ClassConstructorWithEnumerableTest.fs

@@ -0,0 +1,28 @@
+namespace TUnit.TestProject.FSharp
+
+open System
+open Microsoft.Extensions.DependencyInjection
+open TUnit
+open TUnit.TestProject
+open TUnit.Core
+
+[<ClassConstructor(typeof<DependencyInjectionClassConstructor>)>]
+[<NotInParallel>]
+type ClassConstructorWithEnumerableTest(services: IServiceProvider) =
+    let mutable isDisposed = false
+
+    [<Before(HookType.Test)>]
+    member _.Setup() =
+        if isDisposed then
+            raise (ObjectDisposedException(nameof(ClassConstructorWithEnumerableTest)))
+
+    [<Test>]
+    [<MethodDataSource("GetValues")>]
+    member _.DoSomething(value: int) =
+        ActivatorUtilities.GetServiceOrCreateInstance<DummyReferenceTypeClass>(services) |> ignore
+
+    static member GetValues() : seq<int> = seq { yield 1; yield 2; yield 3; yield 4 }
+
+    interface IDisposable with
+        member _.Dispose() =
+            isDisposed <- true

TUnit.TestProject.FSharp/TUnit.TestProject.FSharp.fsproj

@@ -16,6 +16,7 @@
         <Compile Include="DummyReferenceTypeClass.fs" />
         <Compile Include="DependencyInjectionClassConstructor.fs" />
         <Compile Include="ClassConstructorTest.fs" />
+        <Compile Include="ClassConstructorWithEnumerableTest.fs" />
         <Compile Include="ClassDataSourceDrivenTests.fs" />
         <Compile Include="Tests.fs" />
     </ItemGroup>

TUnit.TestProject.VB.NET/ClassConstructorWithEnumerableTest.vb

@@ -0,0 +1,38 @@
+Imports System
+Imports Microsoft.Extensions.DependencyInjection
+Imports TUnit
+Imports TUnit.Core
+
+<ClassConstructor(GetType(DependencyInjectionClassConstructor))>
+<NotInParallel>
+Public NotInheritable Class ClassConstructorWithEnumerableTest
+    Implements IDisposable
+
+    Private _isDisposed As Boolean
+    Private ReadOnly _services As IServiceProvider
+
+    Public Sub New(services As IServiceProvider)
+        Me._services = services
+    End Sub
+
+    <Before(HookType.Test)>
+    Public Sub Setup()
+        If _isDisposed Then
+            Throw New ObjectDisposedException(NameOf(ClassConstructorWithEnumerableTest))
+        End If
+    End Sub
+
+    <Test>
+    <MethodDataSource(NameOf(GetValues))>
+    Public Sub DoSomething(value As Integer)
+        ActivatorUtilities.GetServiceOrCreateInstance(Of DummyReferenceTypeClass)(_services)
+    End Sub
+
+    Public Shared Function GetValues() As IEnumerable(Of Integer)
+        Return New Integer() {1, 2, 3, 4}
+    End Function
+
+    Public Sub Dispose() Implements IDisposable.Dispose
+        _isDisposed = True
+    End Sub
+End Class