Add manual console test for the token replacer

Author: AngelMunoz

src/TestConsole/ProgramTokenReplacer.fs

@@ -0,0 +1,29 @@
+module ProgramTokenReplacer
+
+open FSharp.SystemCommandLine
+open System.CommandLine.Parsing
+
+let app (package: string) =
+    if package.StartsWith("@") then
+        printfn $"{package}"
+        0
+    else
+        eprintfn "The package name does not start with a leading @"
+        1
+
+//[<EntryPoint>]
+let main argv =
+    let package =
+        Input.Option([ "--package"; "-p" ], "A package with a leading @ name")
+
+    rootCommand argv {
+        description "Can be called with a leading @ package"
+
+        useTokenReplacer (
+            // in this case we want to skip @ processing
+            TryReplaceToken (fun _ _ _ -> false)
+        )
+
+        inputs package
+        setHandler app
+    }

src/TestConsole/Properties/launchSettings.json

@@ -3,6 +3,10 @@
     "TestConsole": {
       "commandName": "Project",
       "commandLineArgs": "-w hello -w world"
+    },
+    "Leading @": {
+      "commandName": "Project",
+      "commandLineArgs": "--package @shoelace-style/shoelace"
     }
   }
 }

src/TestConsole/TestConsole.fsproj

@@ -12,10 +12,9 @@
     <Compile Include="ProgramSubCommand.fs" />
     <Compile Include="ProgramTask.fs" />
     <Compile Include="Program.fs" />
+    <Compile Include="ProgramTokenReplacer.fs" />
   </ItemGroup>
 
-  <ItemGroup />
-
   <ItemGroup>
     <ProjectReference Include="..\FSharp.SystemCommandLine\FSharp.SystemCommandLine.fsproj" />
   </ItemGroup>