Address warnings

Author: gusty

tests/FSharpPlus.Tests/ComputationExpressions.fs

@@ -1,5 +1,7 @@
 namespace FSharpPlus.Tests
 
+#nowarn "10710" // This monad doesn't seem to be lazy ...
+
 open System
 open System.Threading.Tasks
 open NUnit.Framework
@@ -180,8 +182,8 @@ module ComputationExpressions =
             yield (failwith "error !!!"; 2)
             yield 3
         }
-        let x:seq<int> = monad.plus { for x in source do yield x }
-        x.GetEnumerator ()
+        let x: seq<int> = monad.plus { for x in source do yield x }
+        x.GetEnumerator () |> ignore
         ()
 
     open FsCheck

tests/FSharpPlus.Tests/Extensions.fs

@@ -443,30 +443,30 @@ module Extensions =
     areEquivalent [1;2;3] ([1;2;3] |> List.setAt 3 4)
 
   [<Test>]
-  let ``List.removeAt works with good indices`` () =
-    areEquivalent [1;3] ([1;2;3] |> List.removeAt 1)
+  let ``List.deleteAt works with good indices`` () =
+    areEquivalent [1;3] ([1;2;3] |> List.deleteAt 1)
 
   [<Test>]
-  let ``List.removeAt tolerates bad indices`` () =
-    areEquivalent [1;2;3] ([1;2;3] |> List.removeAt -1)
-    areEquivalent [1;2;3] ([1;2;3] |> List.removeAt 3)
+  let ``List.deleteAt tolerates bad indices`` () =
+    areEquivalent [1;2;3] ([1;2;3] |> List.deleteAt -1)
+    areEquivalent [1;2;3] ([1;2;3] |> List.deleteAt 3)
 
   [<Test>]
-  let ``Seq.drop returns seq unaltered with a negative count`` ()=
+  let ``Seq.drop returns seq unaltered with a negative count`` () =
     areEquivalent (seq {1; 2; 3}) (seq {1; 2; 3} |> Seq.drop -1)
 
   [<Test>]
-  let ``Seq.drop returns seq unaltered with a 0 count`` ()=
+  let ``Seq.drop returns seq unaltered with a 0 count`` () =
     areEquivalent (seq {1; 2; 3}) (seq {1; 2; 3} |> Seq.drop 0)
 
   [<Test>]
-  let ``Seq.drop returns empty when seq is empty and count is positive`` ()=
+  let ``Seq.drop returns empty when seq is empty and count is positive`` () =
     areEquivalent Seq.empty (Seq.empty |> Seq.drop 1)
 
   [<Test>]
-  let ``Seq.drop returns empty when count is larger than seq length`` ()=
+  let ``Seq.drop returns empty when count is larger than seq length`` () =
     areEquivalent Seq.empty (seq {1; 2; 3} |> Seq.drop 4)
 
   [<Test>]
-  let ``Seq.drop returns seq with count items dropped when count is positive and less than length`` ()=
+  let ``Seq.drop returns seq with count items dropped when count is positive and less than length`` () =
     areEquivalent (seq {2; 3}) (seq {1; 2; 3} |> Seq.drop 1)

tests/FSharpPlus.Tests/FSharpPlus.Tests.fsproj

@@ -54,7 +54,6 @@
     <PackageReference Include="FsCheck" Version="2.16.5" />
     <PackageReference Include="NUnit3TestAdapter" Version="4.5.0" />
     <PackageReference Include="FsCheck.NUnit" Version="2.16.5" />
-    <PackageReference Include="NUnit3TestAdapter" Version="4.2.1" />
     <PackageReference Include="Microsoft.NET.Test.Sdk" Version="17.3.1" />
   </ItemGroup>
 </Project>