Fsdk,Fsdk.Tests: add new ArgsParsing failing test

Fsdk.Tests/ArgsParsing.fs

@@ -0,0 +1,18 @@
+namespace Fsdk.Tests
+
+open NUnit.Framework
+
+open Fsdk
+
+[<TestFixture>]
+type ArgsParsing() =
+
+    [<Test>]
+    member __.``simplest flags usage``() =
+        let commandLine = "someProgram --someLongFlag1 -f2".Split(' ')
+        let res: Misc.ArgsParsed = Misc.ParseArgs commandLine
+
+        match res with
+        | Misc.ArgsParsed.OnlyFlags flags ->
+            Assert.That(Seq.length flags, Is.EqualTo 2)
+        | _ -> Assert.Fail "res was not ArgsParsing.OnlyFlags subtype"

Fsdk.Tests/Fsdk.Tests-legacy.fsproj

@@ -46,6 +46,7 @@
     </Reference>
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="ArgsParsing.fs" />
     <Compile Include="FSharpUtil.fs" />
     <Compile Include="AsyncExtensions.fs" />
     <Compile Include="Tsv.fs" />

Fsdk.Tests/Fsdk.Tests.fsproj

@@ -8,6 +8,7 @@
   </PropertyGroup>
 
   <ItemGroup>
+    <Compile Include="ArgsParsing.fs" />
     <Compile Include="FSharpUtil.fs" />
     <Compile Include="AsyncExtensions.fs" />
     <Compile Include="AsyncCancellation.fs" />

Fsdk/Misc.fs

@@ -94,6 +94,13 @@ module Misc =
                     args
 #endif
 
+    type ArgsParsed =
+        | OnlyFlags of seq<string>
+        | BothFlags of seq<string>*string*seq<string>
+
+    let ParseArgs (_args: array<string>): ArgsParsed =
+        failwith "NIE"
+
     let FsxOnlyArguments() =
         let cmdLineArgs = Environment.GetCommandLineArgs() |> List.ofSeq
 #if !LEGACY_FRAMEWORK