anchor.diff:          test <@ result.GetResult <@ List @> = [1 .. 5] @>
   
       [<Fact>]
  -    let ``Get all subcommands`` () =
  +    let ``Get all subcommand parsers`` () =
           let subcommands = parser.GetSubCommandParsers()
           test <@ subcommands.Length = 2 @>
           test <@ subcommands |> List.forall (fun sc -> sc.IsSubCommandParser) @>
  +
  +    [<Fact>]
  +    let ``Get specific subcommand parser`` () =
  +        let subcommand = parser.GetSubCommandParser <@ Push @>
  +        test <@ subcommand.IsSubCommandParser @>
   
   
       type ConflictingCliNames =
  
positive.code:         let bytes = [|1uy .. 255uy|]
          let args = parser.PrintCommandLineArguments [ Mandatory_Arg false ; Data(42, bytes) ]
          let results = parser.ParseCommandLine args
          test <@ results.GetResult <@ Data @> |> snd = bytes @>
  
      [<Fact>]
      let ``Parse equals assignment`` () =
  
negative.code: open System
  open System.IO
  open Xunit
  open FSharp.Quotations
  open Swensen.Unquote.Assertions
  
  open Argu
  