Fsdk.Tests(ArgsParsing): new failing test

Fsdk.Tests/ArgsParsing.fs

@@ -18,3 +18,22 @@ type ArgsParsing() =
             Assert.That(Seq.item 0 flags, Is.EqualTo "--someLongFlag1")
             Assert.That(Seq.item 1 flags, Is.EqualTo "-f2")
         | _ -> Assert.Fail "res was not ArgsParsing.OnlyFlags subtype"
+
+    [<Test>]
+    member __.``pre and post flags``() =
+        let commandLine =
+            "someProgram --someLongPreFlag1 -f2 someNonFlagArg --someLongPostFlag3 -f4"
+                .Split(' ')
+
+        let res = Misc.ParseArgs commandLine
+
+        match res with
+        | Misc.ArgsParsed.BothFlags(preFlags, arg, postFlags) ->
+            Assert.That(arg, Is.EqualTo "someNonFlagArg")
+            Assert.That(Seq.length preFlags, Is.EqualTo 2)
+            Assert.That(Seq.item 0 preFlags, Is.EqualTo "--someLongPreFlag1")
+            Assert.That(Seq.item 1 preFlags, Is.EqualTo "-f2")
+            Assert.That(Seq.length postFlags, Is.EqualTo 2)
+            Assert.That(Seq.item 0 postFlags, Is.EqualTo "--someLongPostFlag3")
+            Assert.That(Seq.item 1 postFlags, Is.EqualTo "-f4")
+        | _ -> Assert.Fail "res was not ArgsParsing.BothFlags subtype"