Add smoketests for NuGet testing

Author: abelbraaksma

src/FSharp.Control.TaskSeq.SmokeTests/FSharp.Control.TaskSeq.SmokeTests.fsproj

@@ -0,0 +1,29 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>net6.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+    <GenerateProgramFile>false</GenerateProgramFile>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="SmokeTests.fs" />
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="FSharp.Control.TaskSeq" Version="0.2.2" />
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="17.1.0" />
+    <PackageReference Include="xunit" Version="2.4.1" />
+    <PackageReference Include="xunit.runner.visualstudio" Version="2.4.3">
+      <IncludeAssets>runtime; build; native; contentfiles; analyzers; buildtransitive</IncludeAssets>
+      <PrivateAssets>all</PrivateAssets>
+    </PackageReference>
+    <PackageReference Include="coverlet.collector" Version="3.1.2">
+      <IncludeAssets>runtime; build; native; contentfiles; analyzers; buildtransitive</IncludeAssets>
+      <PrivateAssets>all</PrivateAssets>
+    </PackageReference>
+  </ItemGroup>
+
+</Project>

src/FSharp.Control.TaskSeq.SmokeTests/Program.fs

@@ -0,0 +1 @@
+module Program = let [<EntryPoint>] main _ = 0

src/FSharp.Control.TaskSeq.SmokeTests/SmokeTests.fs

@@ -0,0 +1,44 @@
+module Tests
+
+open System
+open System.Threading.Tasks
+open Xunit
+open FSharp.Control
+
+[<Fact>]
+let ``Use and execute a taskSeq from nuget`` () =
+    taskSeq { yield 10 }
+    |> TaskSeq.toArray
+    |> fun x -> Assert.Equal<int array>(x, [| 10 |])
+
+[<Fact>]
+let ``Use and execute a taskSeq from nuget with multiple keywords`` () =
+    taskSeq {
+        do! task { do! Task.Delay 10 }
+        let! x = task { return 1 }
+        yield x
+        let! vt = ValueTask<int>(task { return 2 })
+        yield vt
+        yield 10
+    }
+    |> TaskSeq.toArray
+    |> fun x -> Assert.Equal<int array>(x, [| 1; 2; 10 |])
+
+// from version 0.3.0:
+
+//[<Fact>]
+//let ``Use and execute a taskSeq from nuget with multiple keywords v0.3.0`` () =
+//    taskSeq {
+//        do! task { do! Task.Delay 10 }
+//        do! Task.Delay 10 // only in 0.3
+//        let! x = task { return 1 } :> Task // only in 0.3
+//        yield 1
+//        let! vt = ValueTask<int> ( task { return 2 } )
+//        yield vt
+//        let! vt = ValueTask ( task { return 2 } ) // only in 0.3
+//        do! ValueTask ( task { return 2 } ) // only in 0.3
+//        yield 3
+//        yield 10
+//    }
+//    |> TaskSeq.toArray
+//    |> fun x -> Assert.Equal<int array>(x, [| 1; 2; 3; 10 |])

src/FSharp.Control.TaskSeq.sln

@@ -34,6 +34,8 @@ Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "assets", "assets", "{B198D5
 		..\assets\taskseq-icon.png = ..\assets\taskseq-icon.png
 	EndProjectSection
 EndProject
+Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "FSharp.Control.TaskSeq.SmokeTests", "FSharp.Control.TaskSeq.SmokeTests\FSharp.Control.TaskSeq.SmokeTests.fsproj", "{784DAB92-C61A-4A00-890B-E6E3B1805473}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -48,6 +50,10 @@ Global
 		{06CA2C7E-04DA-4A85-BB8E-4D94BD67AEB3}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{06CA2C7E-04DA-4A85-BB8E-4D94BD67AEB3}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{06CA2C7E-04DA-4A85-BB8E-4D94BD67AEB3}.Release|Any CPU.Build.0 = Release|Any CPU
+		{784DAB92-C61A-4A00-890B-E6E3B1805473}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{784DAB92-C61A-4A00-890B-E6E3B1805473}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{784DAB92-C61A-4A00-890B-E6E3B1805473}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{784DAB92-C61A-4A00-890B-E6E3B1805473}.Release|Any CPU.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE