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